Графика на паскале Опции

[numb86]

Народ помогите пожалуйста надо нарисовать на паскале самолет летящий по синусоиде!

Сообщение отредактировано: numb86 - 17.10.2006 19:28

[volvo]

Чтобы ОНО "летело" по синусоиде - не привязывайся к текущим координатам... Сделай вывод самолета относительно какой-то точки:

procedure samolet(X, Y: integer);
begin
  moveto(X, Y);

  linerel(30,0);
  linerel(-10,-10);
  linerel(0,-20);
  linerel(30,0);
  linerel(-30,-15);
  linerel(0,-15);
  linerel(-5,-5);
  linerel(-5,5);
  linerel(0,15);
  linerel(-30,15);
  linerel(30,0);
  linerel(0,20);
  linerel(-10,10);
end;

теперь, если ты в основном цикле будешь присваивать X и Y значения, которые образуют синусоиду, и передавать их в процедуру - то и самолет твой будет тоже лететь по синусоиде...

Как-то так:

for X:=1 to 200 do begin
  Y := (GetMaxY div 2) + Trunc(100 * sin(X * (Pi/200)));
  setcolor(3); samolet(X, Y);
  Delay(3000);
  setcolor(0); samolet(X, Y);
end;

(не тестировал, но работать вроде как должно...)