Составить программу на языке Pascal для вычисления угла возвышения дальнобойного орудия по начальной скорости полета снаряда и дальности цели. Сопротивлением воздуха и высотой орудия пренебречь.

Предыдущий
вопрос Следующий
вопрос

program ElevationAngle;

var
v0, distance, angle: real;

begin
writeln('Enter the initial velocity (m/s):');
readln(v0);

writeln('Enter the distance to the target (m):');
readln(distance);

angle := arctan((v0 v0 + sqrt(v0 v0 v0 v0 - 9.81 (9.81 distance distance + 2 distance v0 v0))) / (9.81 * distance));

writeln('The elevation angle is ', angle * (180 / pi):0:2, ' degrees');
end.