Tengo que realizar un programa de balistica que calcule la distancia recorrida en funcion de la velocidad inicial y el angulo de partida,el program es sencillo, pero la duda que tengo es que hay un error en calculo del seno del angulo, que lleva el programa, ya que no me arroja el valor exacto:pr ejemplo para un angulo de 30 y velocidad inicial 400 el resultado deberia ser 14139.19, pero me arroja otro valor. Asi que si me ayudaras te lo agradeceria,el codigo que realice es el siguente:
program balistica; { SIMULAR EL DISPARO DE UNA BALA }
uses
wincrt;
var
grad,vi:real;
d:real;
const
g=9.8;
begin
writeln('INGRESE LOS GRADOS DE INCLINACION');
readln(grad);
writeln('INGRESE LA VELOCIDAD INICIAL EN mts/sg');
readln(vi);
d:= (sqr(vi)*sin(2*grad))/g;
writeln('LA DISTANCIA QUE RECORRIO LA BALA ES: ',d:3:1 ,'mts/sg');
end.
