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

[numb86]

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

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

[numb86]

Код

uses Graph,crt;

var
driver,mode,x,y,i:integer;


procedure samolet;
begin
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;


begin
driver:=detect;
mode:=detect;
initgraph(driver,mode,'c:\bp\bgi');
moveto(400,280);
for i:=1 to 200 do
begin
moverel(1,1);
setcolor(3);
samolet;
Delay(3000);
setcolor(0);
samolet;
end;


readln;
end.

Сообщение отредактировано: volvo - 17.10.2006 20:40