Pascal ABC.Помогите,пожалуйста!!!Напишите программу, которая двигает квадрат из левого верхнего угла в правый верхний. В качестве ответа загрузите текст программы и скомпилированный exe-файл.
Ответы на вопрос
Ответил igor999711
0
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.
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.
Ответил innesa1702
0
Спасибо!
Новые вопросы