Нужно в Pascal создать анимацию, чтобы круг двигался из угла в угол (нижний в верхний или наоборот).

Question

Информатика

Гервасий

5 сентября, 02:07

Нужно в Pascal создать анимацию, чтобы круг двигался из угла в угол (нижний в верхний или наоборот).

+4

Ответы (1)

Знаете ответ на вопрос?

Павлик · Answer 1

Делал как-то, когда учился в школе.

var i:integer;

x, y, ugol, xs, ys: real;

begin

xs:=100;

ys:=100;

ugol:=30;

LockDrawing;

for i:=1 to 500 do

begin

clearwindow;

x:=xs+i*sin (ugol*pi/180) ;

y:=ys+i*cos (ugol*pi/180) ;

Circle (round (x), round (y),20) ;

sleep (10) ;

Redraw;

if y+20>windowheight then break;

end;

end.