траектория полета ??? Опции

[Shadow]

:D
-----
посмтрите пожалуйста тректория ли ето полета
----
если нет  то неподскажите ли формулу
----
Uses Graph,Crt;
Var
t, x0,v0,y0,x,y,x1,y1,x3,y3:LONGINT;
ax,yx, xx,yy,xx1,yy1:LongInt;
xxx,yyy,xxx1,yyy1:LongInt;

Procedure Sync; assembler;{Procedura Zaderjki lucha}
asm
 mov  dx, 3DAh
@@Wait:
 in   al, dx
 test al, 08h
 jz @@Wait
end;


procedure ingr(gr:Integer);
var
 gr1: Integer;
  driver :Integer;
      ErrCode: Integer;
begin
gr1:=gr;
driver:=InstalluserDriver('svga256',nil);{driver na 256 zvetov}
 Initgraph(driver,gr1,'');
         end;

BEGIN
Ingr(2);
v0:=300;
y0:=100;
ax:=3;
yx:=5;
t:=1;
SetColor(14);
Line(10,400,460,400);
for xx:=0 to 300 do begin
inc(t);
dec(v0);
dec(y0);
 { x:=round((v0*xx+(ax+(xx*xx)/2))*0.05);
  y:=round((y0*xx+(yx+(xx*xx)/2))*0.05);}

{     x:=round((v0*xx-(cos(xx*xx)/2))*0.05);}
  y:=round(((y0*xx)/(cos(180.045)))*0.01);{180,045}
  x:=round(((v0*xx)/(sin(100)))*0.01);    {100}

     PutPixel(x+450,y+400,14);delay(3000);
end;
asm
mov ah,0
int 16h
end;
END.