Pascal ABC.Помогите,пожалуйста!!!Напишите программу, которая двигает квадрат из левого верхнего угла в правый верхний. В качестве ответа загрузите текст программы и скомпилированный exe-файл.
Pascal ABC.Помогите,пожалуйста!!!Напишите программу, которая двигает квадрат из левого верхнего угла в правый верхний. В качестве ответа загрузите текст программы и скомпилированный exe-файл.
Гость
Ответ(ы) на вопрос:
Гостьuses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
Не нашли ответ?
Похожие вопросы