Выполнить движение флажка по экрану случайным образом с задержкой в 500 мс - Turbo Pascal

Формулировка задачи:

Написать программу, которая рисует на экране флажок красного цвета. Выполнить движение флажка по экрану случайным образом с задержкой в 500 мс. сделайте пожалуйста!!!

Код к задаче: «Выполнить движение флажка по экрану случайным образом с задержкой в 500 мс - Turbo Pascal»

textual
uses graph;
var x,y,x1,y1:integer;
    p:array[1..6] of pointtype;
begin
randomize;
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2-50;
y:=getmaxY div 2-100;
p[1].x:=x;p[1].y:=y;
p[2].x:=x+150;p[2].y:=y;
p[3].x:=x+120;p[3].y:=y+60;
p[4].x:=x+150;p[4].y:=y+120;
p[5].x:=x;p[5].y:=y+120;
p[6].x:=x;p[6].y:=y;
x1:=x;y1:=y+180;
setcolor(12);
setfillstyle(1,12);
fillpoly(6,p);
setlinestyle(0,0,3);
line(p[5].x+1,p[5].y,x1+1,y1);
readln
end.

9   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ