Составьте программу по информатике которая имитирует движения голубого шарика радиуса 20 по диагонали
Составьте программу по информатике которая имитирует движения голубого шарика радиуса 20 по диагонали
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы