Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2013, 17:59   #1
Zhaniya
 
Регистрация: 19.11.2013
Сообщений: 9
По умолчанию Написать программу которая расшифрует код?

как написать программу на Паскале которая когда пишешь код,в ответе расшифрует? Например,111900 – 11 число, 19 ч. 00 мин. – время передачи телеграммы по Гринвичу. ПОМОГИТЕ!
Zhaniya вне форума Ответить с цитированием
Старый 04.12.2013, 18:20   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

А формат кодирования всегда такой? Фиксированный?
Может быть
41100
4-е число
11 часов
00 минут
?
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 04.12.2013, 19:24   #3
Zhaniya
 
Регистрация: 19.11.2013
Сообщений: 9
По умолчанию

у меня просто задание такое:
TBUS 1 KWBC 111900
APT PREDICT
081435 NOAA 10
Part I
09912 01419 04205 00128 T0116 L2531
99160 22712 10256
99200 91219 25615
99241 55726 35487
Part II
02810 070028 04810 141044 06810 212061 08810 282079
10810 353099 12810 423122 14810 493149 16810 562184
18810 630231 20810 696303 22810 757433 24820 803704
26821 809156 28821 769474 30821 710625 32821 645707
34821 577758 36821 508795 38812 439776 40812 369752
42812 299732 44812 229713 46822 158696 48822 087680
50822 017664
Надо расшифровать все эти цифры.я в ручную расшифровала теперь надо написать программу.А расшифровка такая:
TBUS 1 – Бюллетень АПТ, издаваема в США для метеорологических ИСЗ, имеющих восходящий участок орбиты в ночное время суток.
KWBC – Позывной сигнал радиостанции Вашингтона.
111900 – 11 число, 19 ч. 00 мин. – время передачи телеграммы по Гринвичу.
APT PREDICT – Прогноз автоматической передачи изображений (содержание сводки).
081435 NOAA 10 – Период действия прогноза до 8 месяца 14 числа, спутник № 35 NOAA 10.

Часть 1:

09912 – 0 –пересечение экватора спутником мерной орбиты, 9912 – номер мерной орбиты.
01419 – 0 - пересечение экватора спутником мерной орбиты, 14 – число по Гринвичу, 19- часы по Гринвичу.
04205 – 0 - пересечение экватора спутником мерной орбиты, 42 мин. 05 с. – время когда спутник пересекает экватор в северном направлении в мерной орбите 9912.
01940 – 0 – октант, 01,28 – долгота на которой спутник пересекает экватор в северном направлении на мерной орбите.
T0116 – T – период обращения, 01 мин. 16 с.
L2531 – L – инкремент долготы, 25,31° между последовательными пересечениями спутником экватора.
99160 22712 – номер четвертой орбиты 9916, следующей за мерной. 2 ч. 27 мин. 12 с. – время по Гринвичу, пересечения спутником экватора в северном направлении на четвертой (после мерной) орбите.
10256 – 1 - октант, 02,56 - долгота на которой спутник пересекает экватор в северном направлении на четвертой (после мерной) орбите.
99200 91219 - номер восьмой орбиты 9920, следующей за мерной. 09 ч. 12 мин. 19 с. – время по Гринвичу, пересечения спутником экватора в северном направлении на восьмой (после мерной) орбите.
25615 – 2 - октант, 5615 – долгота восходящего узла этой орбиты.
99241 55726 – номер восьмой орбиты 9924, следующей за мерной. 15 ч. 57 мин. 26 с. – время по Гринвичу, пересечения спутником экватора в северном направлении на двенадцатой (после мерной) орбите.
35487 - 3 - октант, 54,87 – восходящего узла этой орбиты.

Часть 2:

02810 – 02 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
070028 – 07,0 – широта, 02,8 – долгота.
04810 – 04 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
141044 – 14,1 – широта, 04,4 – долгота.
06810 – 06 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
212061 – 21,2 – широта, 06,1 – долгота.
08810 – 08 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
282079 – 28,2 – широта, 07,9 – долгота.
10810 – 10 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
353099 – 35,3 – широта, 09,9 – долгота.
12810 – 12 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
423122 – 42,3 – широта, 12,2 – долгота.
14810 – 14 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
493149 – 49,3 – широта, 14,9 – долгота.
16810 – 16 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
562184 – 56,2 – широта, 18,4 – долгота.
18810 – 18 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
630231 – 63,0 – широта, 23,1 – долгота.
20810 – 20 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
696303 – 69,6 – широта, 30,3 – долгота.
22810 – 22 – время от экватора, 81 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
757433 – 75,7 – широта, 43,3 – долгота.
24820 – 24 – время от экватора, 82 – высота спутника в десятках километрах, 0 – октант в котором находится подспутниковая точка.
803704 – 80,3 – широта, 70,4 – долгота.
26821 – 26 – время от экватора, 82 – высота спутника в десятках километрах, 1 – октант в котором находится подспутниковая точка.
809156 – 80,9 – широта, 15,6 – долгота.
Zhaniya вне форума Ответить с цитированием
Старый 05.12.2013, 07:04   #4
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Работай как с текстовым файлом. Число знаков тебе заранее известно. Последовательно читаешь переменные, на основании считанных значений выводишь что-либо.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать программу, которая считывает текст guksm Паскаль, Turbo Pascal, PascalABC.NET 8 05.04.2014 16:05
Написать программу, которая проверяет(Pascal) xhatex Паскаль, Turbo Pascal, PascalABC.NET 1 23.11.2012 00:57
Написать программу,которая вычисляет длину кривой холодная92 Паскаль, Turbo Pascal, PascalABC.NET 7 15.06.2012 04:01
Написать программу, которая считывает исходный код этой программы LORD90 Помощь студентам 4 07.01.2011 14:04