: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.

А куда тебе лететь надо было? Похоже на траекторию выстрела из пушки... (ядро оставляет желтый след в ионном потоке)  :)

:D
---
неа не пушка
а х....ь какая-=то
----
я применил другие формулы
----
а летать.... да хочу как-бы
движок выстрела по целям
от угла и колво пороха
----

Если это просто выстрел из пушки, без сопротивления воздуха, то фомулы такие
x:=x0+v0*Cos(phi)*t;
y:=y0+v0*Sin(phi)*t - g*t*t/2;

x0, y0 - координаты пушки
v0, phi начальная скорость и угол к вертикали.
g - ускорение свободного падения.

t - время, его надо прибавлять от нуля и дальше.

хочется только от x и y - исключи t из ситемы  ;D

а если брать сопротивление воздуха.... будет гемор

Да, еще надо масштаб подобрать правильный, ну это сам разберись, опытным путем.

:D
---
да я так и срубил примерно
---
нашол в кинематики
--

Слушай, а ты это САМ НАПИСАЛ????????????????
Просто видел такой же исходник...  ;)

:D
-=-=-=
да я просто формулы нарыл искал везде во всех книгах
по физике там и так далее в инете все как то не так
птом как то само получилось
-=-=-
:-/

;)