21.2. Программирование движущихся объектов

Пример 1. Перемещение красного объекта квадратной формы вдоль черного экрана слева направо.

Метод 1

Метод 2

Program DVIG_1;

Uses Crt, Graph ;

Var a, b, x : Integer ;

Begin

a:=detect; InitGraph (a, b, '');

For x:=0 to 639 do

Begin

SetFillStyle (1, Red);{красный}

Bar (x, 200, x+10, 210);

Delay (1000);

ClearDevice {очистка экрана}

End;

Readln;

CloseGraph

End.

Program DVIG_2;

Uses Crt, Graph ;

Var a, b, x : Integer ;

Begin

a:=Detect; InitGraph (a, b, '');

For x:=0 to 639 do

Begin

SetFillStyle (1,Red); {красный}

Bar (x, 200, x+10, 210);

Delay (1000);

SetFillStyle (1, Black); {черный}

Bar(x, 200, x+10, 210);

End;

Readln; CloseGraph

End.

* Пример 2. Вертикальное перемещение шарика (от верхней границы экрана к нижней и обратно; и т. д.).

Пока не нажата какая-либо клавиша (not KeyPressed) будем многократно выполнять следующие действия: рисуем красный круг, который закрашиваем его на старом месте цветом фона (черным), ординату y (центра круга) увеличиваем на dy = 1, рисуем новый круг и т.д. Когда круг коснется нижней или верхней границы экрана, значение dy изменим на противоположное и круг изменит направление движения.

Program PADENIE;

Uses Crt, Graph ;

Const R=10; x=320;

Var a, b, y, dy : Integer ;

Begin

a:=Detect; InitGraph (a, b, '');

y:=R; dy:=1;

While not KeyPressed do

Begin

SetFillStyle (1, Red); {красный}

PieSlice (x, y, 0, 360, R) ;

Delay (100);

SetFillStyle (1,Black); {черный}

PieSlice (x, y, 0, 360, R) ;

y:=y + dy;

if (y=640-R) or (y=R) then dy:=-dy

End; CloseGraph

End.