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

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

program FlightModel;

uses crt;

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

var
h, angle, maxDistance, maxAngle: real;

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

begin
clrscr;

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

maxDistance := 0;

for angle := 0 to 90 do
begin
if CalculateDistance(angle) > maxDistance then
begin
maxDistance := CalculateDistance(angle);
maxAngle := angle;
end;
end;

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

end.