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

Question

Информатика

Жела

24 августа, 18:44

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

+4

Ответы (1)

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

Тая · 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.