Посадка на Луну
Aug. 8th, 2020 12:58 pmНаконец-то, можно нормально играть в посадку на Луну: https://github.com/besm6/bega-re/blob/master/landing.pas
https://github.com/besm6/bega-re/blob/master/landing.sh
Дело было в том, что по умолчанию вывод на экран в Паскаль-автокоде делается через Пульт, который всё печатает в сокращенном наборе символов для телетайпа (например, ! превращается в .I), и принудительно делая перевод строки после 72 символов. "Посадка" пыталась это обойти с помощью выдачи экстракода вывода на экран, указывая предполагаемый адрес буфера файла output, но почему-то в нашем случае это не работало.
Я эти мелочи проигнорировал. Теперь с помощью этой программы можно давать задачки по физмату и программированию:
1) Покажите, что на уровне 0 (15000 фунтов топлива) сесть невозможно.
2а) Напишите программу, за короткое время находящую последовательность действий, приводящих к мягкой посадке на уровне 1 (15500 фунтов топлива).
2б) Максимизируйте количество оставшегося при посадке топлива.
https://github.com/besm6/bega-re/blob/master/landing.sh
Дело было в том, что по умолчанию вывод на экран в Паскаль-автокоде делается через Пульт, который всё печатает в сокращенном наборе символов для телетайпа (например, ! превращается в .I), и принудительно делая перевод строки после 72 символов. "Посадка" пыталась это обойти с помощью выдачи экстракода вывода на экран, указывая предполагаемый адрес буфера файла output, но почему-то в нашем случае это не работало.
Я эти мелочи проигнорировал. Теперь с помощью этой программы можно давать задачки по физмату и программированию:
1) Покажите, что на уровне 0 (15000 фунтов топлива) сесть невозможно.
2а) Напишите программу, за короткое время находящую последовательность действий, приводящих к мягкой посадке на уровне 1 (15500 фунтов топлива).
2б) Максимизируйте количество оставшегося при посадке топлива.
no subject
Date: 2020-10-14 07:59 am (UTC)no subject
Date: 2020-10-14 10:43 am (UTC)ECTЬ
З ТЕСТ2
MCB TECT2 H=042 Д=020
ПАС ТЕСТ-ЗОНГП ТЕСТ1
ПACKAЛЬ-ABTОKОД 9.(17.05.88)
ABОCT 000041
PASCALИHФ О CTEKE CBEPXУ
1. AДPEC CTEKA=12287БEЗ PMД
2. AДPEC CTEKA=0БEЗ PMД
3. AДPEC CTEKA=0БEЗ PMД
ABОCT 000024
Снял пароли с 2061, но всё по-прежнему.
no subject
Date: 2020-10-14 03:03 pm (UTC)Там же видно, что по команде ПАС вызывается компилятор версии 09.12.88.
no subject
Date: 2020-10-14 04:14 pm (UTC)