Помогите, пожалуйста!Pascal ABC!!!Напишите полный сценарий движения квадрата из точки (100;100) в точку (150;150).
Помогите, пожалуйста!Pascal ABC!!!Напишите полный сценарий движения квадрата из точки (100;100) в точку (150;150).
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1219
uses
GraphABC;
Var
i:integer;
begin
for i:=100 to 150 do
begin
clearwindow;
rectangle(i,i,i-30,i-30);
sleep(100);
end;
end.
Гость//PascalABC.NET 3.1 сборка 1239
uses
GraphABC;
const
side = 15;
var
i: integer;
begin
Window.Init(0, 0, 200, 200, clLightBlue);
Window.CenterOnScreen();
SetBrushColor(clBlue);
for i := 100 to 150 do
begin
ClearWindow(clLightBlue);
Rectangle(i - side, i - side, i + side, i + side);
Sleep(50);
end;
end.
Не нашли ответ?
Похожие вопросы