Помогите, пожалуйста!Pascal ABC!!!Напишите полный сценарий движения квадрата из точки...

Question

Помогите, пожалуйста!Pascal ABC!!!Напишите полный сценарий движения квадрата из точки (100;100) в точку (150;150).

Answer 1

//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.

Comments

Спасибо!

Answer 2

//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.

Comments

Спасибо!