[AND_REY]

Сообщение от Bergik

Спасибо, но почему ядро летит синусойодой а не пораболой ветвями вниз?

Потому что я не помню формулы, синус для примера написал

[AND_REY]

Вспомнил где книга по физике лежит :

Код:

Uses
 Math;
Var
 Xo, Yo, Vo, g, Alfa, X, Y: Real;
begin
 Xo:= 10;   // нач. координата по Х.
 Yo:= 5;    // нач. координата по Y.
 Vo:= 80;   // нач. скорость.
 Alfa:= 70; // угол броска.
 g:= 9.8;   // ускорение свободного падения.
 X:= Xo;
 Alfa:= DegToRad(Alfa); // перевод в радианы.
 While X < (Xo + ((Sqr(Vo)*Sin(2*Alfa))/g)) Do // цикл до макс. длины полёта.
  begin  // ниже ур. зависемость координат Y(X).
   Y:= Yo + (X - Xo)*Tan(Alfa)-((g*Sqr(X-Xo))/(2*Sqr(Vo)*Sqr(Cos(Alfa))));
   X:= X + 0.1;
   Form1.Canvas.Pixels[Round(X),300-Round(Y)]:= clRed; // рисуем.
  end;
end;

От массы я так понял не чего не зависит, если нет сопротивления воздуха.