Вспомнил где книга по физике лежит
:
Код:
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;
От массы я так понял не чего не зависит, если нет сопротивления воздуха.