|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.12.2013, 17:59 | #1 |
Регистрация: 19.11.2013
Сообщений: 9
|
Написать программу которая расшифрует код?
как написать программу на Паскале которая когда пишешь код,в ответе расшифрует? Например,111900 – 11 число, 19 ч. 00 мин. – время передачи телеграммы по Гринвичу. ПОМОГИТЕ!
|
04.12.2013, 18:20 | #2 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
А формат кодирования всегда такой? Фиксированный?
Может быть 41100 4-е число 11 часов 00 минут ? |
04.12.2013, 19:24 | #3 |
Регистрация: 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 – долгота. |
05.12.2013, 07:04 | #4 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Работай как с текстовым файлом. Число знаков тебе заранее известно. Последовательно читаешь переменные, на основании считанных значений выводишь что-либо.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Написать программу, которая считывает текст | 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 |