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

Question

Информатика

Кирилл

2 октября, 15:25

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

+2

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