На горизонте кит 1
Главная / ЭКВМ / Программы для ЭКВМ / Игры

Исходная игра была опубликована в журнале "Техника - молодёжи" 8-87, автор: Борис Лабутин, г. Пермь.

Описание игры взято из журнала и доработано для соответствия с новой версией.

схема для игры На горизонте кит - ТМ 8-87

Суть игры: подойти к киту на расстояние выстрела, но не слишком близко (чтобы не спугнуть его), хорошенько прицелиться и выстрелить. Кит меняет скорость и направление движения случайным образом, судном командуете вы. Время манёвра постоянно.

Манёвр задаётся следующим образом. Надо набрать направление движение судна (то есть угол относительно оси X, см. схему), нажать стрелку вверх, затем набрать скорость (одно из чисел от 0 до 5) и С/П. После останова на индикаторе высвечивается:
RT="Скорость кита"
RZ="Курс кита"
RY="Y кита от судна"
RX="X кита от судна"

Если до кита ещё далеко, вы продолжаете дальнейшее преследование. При сближении с китом на расстояние менее 500 м на индикатор выводится сообщение о том, что кит испугался и ушёл под воду. Нажмите С/П - после останова вы узнаете, где всплыл кит. Преследование приходится начинать сначала.

Если же вы подошли к киту на расстояние меньше 1000 м (но больше 500 м), то вы получаете право на выстрел - на индикаторе выводится сообщение. Для выстрела надо набрать угол наведения гарпунной пушки относительно оси X, нажать стрелку вверх, набрать направление движения, стрелку вверх, скорость и С/П. Выстрел произведён. При попадании на экран будет выведено сообщение и в RX указано число сделанных ходов. При промахе - сообщение и расстояние от кита до точки попадания гарпуна.

Для возобновления игры необходимо нажать В/О, С/П.

Дистанции и продолжительность манёвра задаются в начале программы и могут быть изменены. Все углы задаются относительно положительного направления оси X, против часовой стрелки. Направление движения кита задаётся в пределах от минус 90°C до 90°C, направление движения судна и угол наводки гарпунной пушки - от минус 180°C до 180°C. Переключатель размерности Р-ГРД-Г устанавливается в положение Г.

Автор версии: paul-161, опубликовано: http://community.livejournal.com/mk_152/22788.html


Программа "На горизонте кит 1"

Версия 1.01 (КС 33901/105)

  0 1 2 3 4 5 6 7 8 9
000 Cx П 6 1 8 0 П 8 5 0 0 П 9
010 6 0 П C 1 П B 3 П 0 K ИП 6 ИП 0 П E
020 K СЧ B↑ ВП 4 K П E PF L0 00 18 ↔ 5
030 × П 1 ↔ F tg F arctg П 4 0 1 7 6
040 PP П 90 26 ИП 1 ИП 4 ИП 2 ИП 3 С/П B↑ 5
050 × P ПП 01 47 ИП 1 ИП 4 P ПП 01 52 ИП B
060 P x<0 00 90 F O ИП 8 P ПП 01 47 ↔ B↑
070 B↑ 2 0 - P x≥0 01 35 ↔ 0 1
080 8 9 PP П 90 26 ↔ С/П P БП 00 10
090 ИП 5 ИП 9 - P x≥0 01 23 F Bx - P x<0 00
100 17 ИП 5 ИП 8 ÷ П C ИП B /-/ П B 0 2
110 2 5 PP П 90 26 Cx B↑ B↑ ИП 5 С/П
120 P БП 00 17 0 2 1 3 PP П 90 26
130 ИП 5 С/П P БП 00 10 0 1 9 7 PP П
140 90 26 ИП 6 С/П P БП 00 00 ↔ 1 8
150 0 + П 7 F cos ↔ ИП C × × F Bx ИП 7
160 F sin × ИП 2 + П 2 F x2 ↔ ИП 3 + П 3
170 F x2 + F √ П 5 ↔ В/О 82h 82h 85h 84h
180 88h 92h 85h 20h 95h 8Eh 84h 3Ah 00h 8Fh
190 90h 8Eh 8Ch 80h 95h 21h 00h 85h 91h 92h
200 9Ch 20h 8Fh 8Eh 8Fh 80h 84h 80h 8Dh 88h
210 85h 21h 00h 8Ah 88h 92h 20h 8Dh 9Bh 90h
220 8Dh 93h 8Bh 21h 00h 91h 92h 90h 85h 8Bh
230 9Fh 89h 92h 85h 21h 00h        


Версии

1.00 - 07.07.09. - 239 байт. Первая версия.

1.01 - 13.07.09. - 236 байт. Изменения:
- поправлены ошибки с повторным заходом на кита и выводом неверного расстояния до гарпуна;
- игровое поле уменьшено до 10x10 км (реалистичнее и динамичнее);
- скорость кита увеличена.

НПП "СЕМИКО" (383) 271-01-25 (многоканальный)