Считая, что Земля - идеальная сфера с радиусом R=6350 км, определить расстояние до линии горизонта от точки с заданной высотой над Землей

Question

Информатика

Петраха

13 февраля, 02:00

Считая, что Земля - идеальная сфера с радиусом R=6350 км, определить расстояние до линии горизонта от точки с заданной высотой над Землей

+2

Ответы (1)

Знаешь ответ?

Фалалей · Answer 1

Const R = 6350; var h, s, d:real; beginwrite ('Введите высоту h в метрах'); Readln (h); s:=sqrt (sqr (h/1000+R) - sqr (R)); write ('расстояние до линии горизонта', s:9:2, 'km'); end.