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

Question

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

Comments

ДАЮ 15 БАЛЛВ,РЕШИТЕ ПЖ!)

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.

Comments

Спасибо,щас проверю и отвечу)