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

Question

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

Answer 1

Пожалуйста:

 

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.