Question

Составьте программу по информатике которая имитирует движения голубого шарика радиуса 20 по диагонали

Answer 1

Uses graphabc;
begin
  window.Init(0, 0, 600, 600, clwhite);
  window.IsFixedSize := true;
  pen.Width := 3;
  pen.Color := clblue;
  lockdrawing;
  for var i := 1 to 560 do
  begin
    drawcircle(20 + i, 20 + i, 20);
    redraw;
    window.Clear;
  end;
end.