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

Question

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

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.