Программа Самолет (pascal)

[Guest]

Здраствуйте!
Нужно дополнить программу Самолет, чтобы этот самолет летал по экрану

Program p1;
uses GraphABC;
begin
Line(350,50,400,50);
Line(350,50,300,110);
Line(400,50,330,150);
Line(330,150,200,150);
Line(300,110,200,110);
Line(200,110,110,110);
Line(200,150,110,150);
Line(110,110,90,130);
Line(110,150,90,130);
Line(200,130,230,200);
Line(230,200,270,200);
Line(270,200,240,130);

end.

 

[nayke]

Здраствуйте!
Нужно дополнить программу Самолет, чтобы этот самолет летал по экрану

Program p1;
uses GraphABC;
begin
Line(350,50,400,50);
Line(350,50,300,110);
Line(400,50,330,150);
Line(330,150,200,150);
Line(300,110,200,110);
Line(200,110,110,110);
Line(200,150,110,150);
Line(110,110,90,130);
Line(110,150,90,130);
Line(200,130,230,200);
Line(230,200,270,200);
Line(270,200,240,130);

end.

Паскаля под рукой нет, поэтому ваш чудный самолет не увидел.
код будет примерно такой:

For i:=1 to 100 do
begin
Rectangle(0,0,600,800);//затираем фоновым прямоугольником экран

Line(350+i,50,400+i,50);//движение по оси x
.....//остальные line со сдвигом

Delay(50)//задержка чтобы увидеть изменения
end;

для красивого, ровного движения, или другой траектории подбираете параметры сами..