Падающие точки

Главная / ЭКВМ / Программы для ЭКВМ / Демонстрации

Падающие линии

Программа заполняет экран линиями, прочерчивающимися сверху вниз с заданной скоростью, и имеющими случайные координаты по х.

	0	1	2	3	4	5	6	7	8	9
00	Cx	РР П	90	10	К СЧ	1	2	8	×	K [x]
10	П 0	Cx	П 1	1	0	РР П	90	50	К ГРФ	ИП 1
20	ИП 0	РР П	90	11	РР ИП	90	50	F x=0	18	ИП 1
30	1	+	П 1	6	4	-	F x=0	18	БП	04

Алгоритм её чрезвычайно прост:

0-3 – очищаем графический экран;

4-12 – делаем СЧ и заносим его в П0 (там будет храниться координата х), заносим 0 в П1 (там будет храниться координата у);

13-17 – запускаем таймер [если вместо 10 в адресах 14-15 ввести другое число, скорость прорисовки линий изменится];

18-23 – рисуем точку на графическом экране;

24-28 – смотрим, не истекло ли заданное в таймере время, если нет – рисуем точку ещё раз, перейдя назад на адрес 18. Это бесполезное действие повторяется, пока не истечёт время таймера. Когда при очередной проверке оказывается, что время истекло, идём дальше;

29-39 – прибавляем 1 к координате у и проверяем, не достигнута ли точка (х;65). Если нет, рисуем новую точку с новой координатой (шаг 18), если да, возвращаемся к изготовлению случайного числа, чтобы начать новую линию (шаг 4).

Падающие точки

Слегка усовершенствованный вариант первой программы – вместо линий выводятся "падающие" точки, координата х которых также случайна.

	0	1	2	3	4	5	6	7	8	9
00	Cx	РР П	90	10	3	РР П	90	01	К СЧ	1
10	2	8	×	K [x]	П 0	Cx	П 1	ПП	50	К ГРФ
20	0	1	РР П	90	50	РР ИП	90	50	F x=0	25
30	ПП	50	ИП 1	1	+	П 1	6	4	-	F x≠0
40	08	ПП	50	БП	19
50	ИП 1	ИП 0	РР П	90	11	В/О

0-3 – очистка экрана;

4-7 – устанавливаем атрибуты вывода так, чтобы дважды выведенная на одно и то же место экрана тёмная точка давала светлую точку;

8-16 – аналогично адресам 4-12 предыдущей программы;

17-19 – вызов подпрограммы;

20-29 – работа с таймером, аналог которой - в предыдущей программе;

30-44 – вызов подпрограммы, прибавление 1 к П1, проверка, не достигло ли П1 величины 65, если да, переходим к изготовлению СЧ, нет – рисуем тёмную точку с новой координатой П1 и переходим на шаг 19;

50-55 – подпрограмма, рисующая тёмную точку с координатами П0,П1.

Автор - Кушнарёва Л.

E-mail - K.Lidia(AT)list.ru

Опубликовано - http://mk_152.livejournal.com/2081.html

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