балистика (Delphi)

[Tidus12345]

Снаряд выпущен под углом а(альфа) к горизонту.Произвести расчет дальности поражения, в дальнейшем учесть сопротивление воздуха,аозможно стоящую преграду,разряженность слоев воздуха.
надо с делать на делфи в форме.
формулы я дам.

[Z1000000]

Ну если коротко, то так.

procedure TForm1.Button1Press(Sender:TObject);
const g=9.8;
var
 L,H : Real;
 alfa,v0 : Real;
begin
L := Power(V0,2)*sin(2*alfa)/g;
H := Power(V0,2)*Power(sin(alfa),2)/(2*g);
end;

[Tidus12345]

Спасибо за ответ .
но не могли бы вы полностью скопировать код,просто я тока начинаю и не совсем понимаю эти формы и т.д.

[Z1000000]

Да нет у меня кода. И дельфи под рукой нет. Это я на коленке тебе написал. Завтра с утра набросаю и вышлю, если раньше кто не сделает!