Напишите программу на языке Паскаль для вычисления расстояния от точки с заданной высотой (значение, которое вводится

Содержание: Вычисление расстояния от точки с заданной высотой до линии горизонта
Разъяснение: Для вычисления расстояния от точки с заданной высотой до линии горизонта Земли на языке Паскаль, мы можем использовать формулу для расчета длины окружности Земли и вычитать высоту заданной точки от этой длины.

В данной задаче предполагается, что Земля является идеальной сферой с радиусом r = 6371 км.

Мы можем использовать следующий код на языке Паскаль:

program DistanceToHorizon;



var

    radius, height, distance: real;

    

begin

    // Ввод высоты точки с клавиатуры

    writeln("Введите высоту точки над уровнем земли:");

    readln(height);

    

    // Вычисление расстояния

    radius := 6371; // Радиус Земли в километрах

    distance := sqrt((2 * radius * height) + (height * height));

    

    // Вывод результатов

    writeln("Расстояние от точки с высотой ", height:0:2, " км до горизонта Земли составляет ", distance:0:2, " км.");

    

end.

Доп. материал:
Пользователь вводит высоту точки над уровнем Земли, например, 5 км.
Программа вычисляет расстояние от точки с высотой 5 км до горизонта Земли и выводит результат: "Расстояние от точки с высотой 5.00 км до горизонта Земли составляет 357.46 км."

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

Дополнительное задание: Напишите программу на языке Паскаль для вычисления расстояния от точки с высотой 10 км до линии горизонта Земли.