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

Question

Информатика

Ария

14 ноября, 06:45

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

+1

Ответы (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.