Задача по информатик
Нужно в паскале создать модель расчета полёта тела с заданной высоты
Определить угол для наибольшего расстояния полёт
Написать код

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

program FlightModel;

uses crt;

cons
g = 9.81; // Ускорение свободного падения м/с^2

va
h, angle, maxDistance, maxAngle: real;

function CalculateDistance(angle: real): real
begi
CalculateDistance := h / sind(2 angle) cosd(angle)
end;

begi
clrscr;

writeln('Введите высоту полёта тела (в метрах): ')
readln(h);

maxDistance := 0;

for angle := 0 to 90 d
begi
if CalculateDistance(angle) > maxDistance the
begi
maxDistance := CalculateDistance(angle)
maxAngle := angle
end
end;

writeln('Наибольшее расстояние полёта достигается под углом ', maxAngle:0:2, ' градусов.')
writeln('Расстояние полёта при этом угле составляет ', maxDistance:0:2, ' метров.');

end.