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

  • Автор темы -
  • Дата начала

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

Код:
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

Well-Known Member
04.08.2010
310
0
#2
Здраствуйте!
Нужно дополнить программу Самолет, чтобы этот самолет летал по экрану

Код:
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;
для красивого, ровного движения, или другой траектории подбираете параметры сами..