ребят , напишите пожалуйста простую анимацию в которой объект будет двигаться например из...

0 голосов
28 просмотров

ребят , напишите пожалуйста простую анимацию в которой объект будет двигаться например из одной стороны экрана в другую (программа для паскаль турбо ) заранее спасибо


Информатика (71 баллов) | 28 просмотров
Дан 1 ответ
0 голосов

Пожалуйста:

 

program pr1;
uses graphabc;

var
x:integer;

begin
lockdrawing;
for x:=1 to 500 do
begin
clearwindow;
ellipse(x,100,x+100,200);
redraw;
sleep(1);
end;
end.

(435 баллов)