Написать программу в паскале с двигающимся предметом: самолёт, машина и т.п.

Peacemaker16

Нужно написать программу в паскале с двигающимся предметом: самолёт,машина и т.п
1 ответ

Peacemaker16

Uses Crt;
Var i : Byte;
 
Procedure Car(x,y : Byte);
Begin
  ClrScr;
  GoToXY(x,y); Write('/~~~\');
  GoToXY(x,y+1); Write('|OOO  --_     - it''s a car. Realy!');
  GoToXY(x,y+2); Write('ч-@---@-|');
end;
 
Begin
  For i:=1 to 60 do
  Begin
    Car(i,12);
    Delay(500);
    If KeyPressed then Halt(0);
  end;
end.