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

Question

Информатика

Виолка

23 июля, 10:09

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

+1

Ответы (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.