Космическая посадка

Вы находитесь в транспортном модуле массой М (кг), который, имея запас топлива Z (кг), отделился от космического корабля, движущегося со скоростью V (м/с) на высоте h (м) от поверхности планеты, и выполняет посадку на эту планету. Торможение модуля (уменьшение скорости V до скорости посадки) обеспечивается действием реактивной струи двигательной установки (ДУ) и определяется скоростью истечения рабочего топлива f (м/с) и его удельным расходом Р (кг/с). Если Р = 0, то ДУ выключена и модуль находится в свободном падении с ускорением падения 9 (м/с^2). Время работы ДУ характеризуется интервалом тормозного цикла Δt (c), за который расходуется Δt*Р топлива. Оценив обстановку (текущие значения V, h, Z), Вы должны выбрать значения Δt и Р, ввести их в бортовой компьютер и выполнить по программе очередной цикл торможения. Указанная последовательность операций повторяется до момента посадки. Если сближение с планетой идет по программе, дисплей бортового компьютера отображает текущее значение удаленности (h) модуля от поверхности планеты после завершения цикла. Момент посадки фиксируется сообщением ЕГГОГ (Для ЭКВМ - "ERROR") на дисплее.

Качество посадки характеризуется глубиной (е) образовавшегося кратера (отрицательное число):

|e| < 0,5 - мягкая посадка в стиле Бака Роджерса;

0,5 ≤ |e| < 5 - грубая посадка;

5 ≤ |e| < 50 - повреждения и травмы;

|e| ≥ 50 - Вы разбились.

Исходные данные записываются в ячейки памяти: скорость модуля V (м/с) - в ячейку ПА, высота h (м) - в ячейку ПВ, масса модуля М (кг) - в ячейку ПС, запас топлива Z (кг) - в ячейку ПD, скорость истечения рабочего топлива f (м/с) - в ячейку П7, ускорение свободного падения на планете g (м/с^2) - в ячейку П9, интервал тормозного цикла Дt (с) - в ячейку П6. Удельный расход топлива Р (кг/с) вводится последним в регистр Х.

Результаты вычислений записываются в ячейки памяти: текущее значение высоты после окончания цикла торможения h (м) - в ячейку ПВ и отображается на дисплее, текущий запас топлива Z (кг) - в ячейку ПD, глубина кратера (после посадки) е - в ячейку ПВ.

Инструкция по пользованию программой для МК-52 с БРП-4

• 1. Наберите адрес 1334698 и введите программу, нажав клавиши А↑, ↑↓.
• 2. Введите исходные данные.
• 3. Включите счет, нажав клавиши В/0, С/П (первое торможение). Время вычисления около 24 с.
• 4. Выполните очередное торможение: введите Δt → П6, Р → Х и включите счет, нажав клавишу С/П. Время вычисления около 24 с.
• 5. Повторите п.4 до момента посадки (появления сообщения ЕГГОГ).
• 6. Оцените качество посадки.

Инструкция по пользованию программой для ЭКВМ

• 1. Загрузите программу с нулевого адреса.
• 2. Введите исходные данные.
• 3. Включите счет, нажав клавиши В/0, С/П (первое торможение).
• 4. Выполните очередное торможение: введите Δt → П6, Р → Х и включите счет, нажав клавишу С/П.
• 5. Повторите п.4 до момента посадки (появления сообщения "ЕRRОR").
• 6. Оцените качество посадки.

Тестовый пример

Посадка на луну: g = 1,7 м/с², V = 3000 м/с, h = 200000 м, М = 20000 кг, Z = 7000 кг, f = 12000 м/с, Δt = 10 с, Р = 0 + 150 кг/с (значения Δt и Р рекомендуются Баком Роджерсом).

Первое торможение: Δt = 10 с, Р = 100 кг/с, h = 172279 м, V = 2544 м/с, Z = 6000 кг.

Программа "Космическая посадка"

Программа 51 из блока расширения памяти БРП-4, переключатель "1/2" блока в положении "2", адрес 1334698.

Файл brp4-51.mkp (КС 6255/89)

Исходный текст для кросс-компилятора

Файл brp4-51.mkl

.CHARSET 1251

; БРП-4
; 51. Игра "Космическая посадка" (2 - 1334698)

.ORG 0

A0:	 ; с адреса 67
	K ABS
	+/-
	150 
	+/-
	K MAX
	+/-
	M 8
	2
	M 2

A11:	 ; с адреса 82
	RM D
	F X!=0 A72

A14:	 ; с адреса 74
	RM 8
	RM 6
	*
	M 1
	-
	F X>=0 A76
	M D
	RM 9
	RM 6
	*
	RM A
	M 4
	+
	RM C
	*
	RM 1
	RM 7
	*
	-
	RM C
	RM 1
	-
	M C
	/
	M A
	RM 4
	RM 6
	*
	RM 4
	RM A
	-
	/
	M 3
	F X>=0 A54
	RM 6
	-
	F X>=0 A84

A54:	 ; с адреса 48, 91
	RM B
	RM A
	RM 4
	+
	2
	/
	RM 6
	*
	-
	F X>=0 A93
	M B
	R/S
	F L2 A0
	10
	M 6

A72:	 ; с адреса 12
	0
	M 8
	GOTO A14

A76:	 ; с адреса 19
	RM D
	RM 8
	/
	M 6
	1
	M 2
	GOTO A11

A84:	 ; с адреса 52
	RM B
	RM 6
	RM 3
	*
	2 
	*
	-
	F X<0 A54

A93:	 ; с адреса 63
	9 
	/
	M B
	0
	F 1/X
.END 

Примечание. Упомянутый в описании Бак Роджерс, вероятно, персонаж американских комиксов (программа была написана в СССР в годы "перестройки").

Энтони "Бак" Роджерс появился впервые в журнале "Удивительные истории" за август 1928 года в новелле "Армагеддон 2419 н.э." за авторством Филипа Френсиса Нолана, а затем и в продолжении – "Властители неба ханов" – за март 1929 года.

Ветеран Первой мировой, инженер Американской Корпорации Радиоактивного Газа, Энтони Роджерс попадает под обвал в пещере. В связи с тем, что по своей специальности Энтони постоянно имел дело с радиоактивными газами, он не умирает, а впадает в анабиоз или, проще говоря, кому. И просыпается он лишь спустя пять столетий – в 2419 году.

Будущее, в котором оказывается пришелец из прошлого, трудно назвать счастливым. Америка захвачена ордой ханов азиатского происхождения, американский народ угнетен, их загнали в леса и чащи, а для наглядности и профилактической чистки их время от времени дезинтегрируют специальными лучами. Имеющий боевой опыт пилот Энтони оказывается весьма кстати, чтобы помочь одичавшим и утратившим весь боевой дух американцам, он помогает им сплотить партизанское движение, в первый же день сбивает вражеский ханский корабль и уничтожает клан предателей.

На волне успеха 7 января 1929 года на свет вышел первый как вообще, так и первый научно-фантастический в частности комикс "Бак Роджерс в 25 веке".

Информация взята с сайта:
http://www.starkindustries.ru/board/samyj_pervyj_supergeroj_bak_rodzhers/5-1-0-163