Посадка на Луну

[spamsink]

Наконец-то, можно нормально играть в посадку на Луну: 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б) Максимизируйте количество оставшегося при посадке топлива.

Comments

[azizz8618]

А с транслятором Паскаля получается следующее. Вызываю ПУЛЬТ с ключом PULT2, пробую как раньше и получается

КТЛ
ИMЯ HAЧAЛО ДЛИHA
ИHTPУK 001 020
TECT 021 020
TECT1 041 001
ПАС ТЕСТ-ЗОНГП ТЕСТ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

[spamsink]

Похоже, мне удалось починить исходный Пульт:

PULT 5216
 Ф001
  CИCTEMA ПУЛЬT   13.10.80
З БУФ=ТТ
_PROGRAM A; _( _).
//
MCB   БУФ    H=000 Д=001
ПАС БУФ
 ПACKAЛЬ-ABTОKОД 9.(09.12.88)
BCE CДEЛAHО.
З БУФ=ТТ
_PROGRAM A; _(WRITELN('Я РАБОТАЮ!') _).
//
MCB   БУФ    H=000 Д=001
ПАС БУФ
 ПACKAЛЬ-ABTОKОД 9.(09.12.88)
Я PAБОTAЮ!
BCE CДEЛAHО.

Теперь все остальные потенциальные проблемы, следовательно, будут связаны с неверной работой с архивами.

[vak]

А что там было?

[spamsink]

Что было - не знаю. Я подогнал решение под ответ.

Дано: у меня под эмулятором Диспака компилятор работает в Пульте, который стартует с 40(2248-1000)57(2248-1000). Пульт/Паскаль берутся с НУ 40, автокод Чайковского - с НУ 57.
В МГУ - не работает. Значит, где-то что-то на 2248 испорчено. Ладно, возьмем Пульт с 2148 (он там с тем же смещением 1000). Опа, не работает, говорит, не найден автокод-транслятор. В чём дело? В том, что разные паскали хотят видеть автокод МГЧ в разных зонах. Тогда я написал для 57(2248) такое смещение (117), чтобы Паскаль на 40(2148) нашел автокод в желаемом месте.

[vak]

Подскажи Александру azizz8618, пусть в МГУ поправят.

[spamsink]

Знал бы, что поправить - подсказал бы.

[spamsink]

А вот это, когда Паскаль берется с 2248,

ПACKAЛЬ-ABTОKОД 9.(17.05.88)
ABОCT 000041

(000041 == ОБРАЩ. К НЕЗАК. МЛ) - явные последствия какого-то локального хака, ну и фиг с ним.