Расстояние до линии горизонта

Необходимо определить расстояние до линии горизонта, если известны высота наблюдателя над поверхностью земли H и радиус Земли R≈ 6350 км.

Определим математическую модель. Линия горизонта - это касательная к окружности Земли, проведённая от глаз наблюдателя. Прямая, проведённая из центра окружности к точке касания, образует с касательной угол 90⁰ . Линя, проведённая от точки положения наблюдателя к центру Земли, является гипотенузой в сформированном прямоугольном треугольнике. Таким образом расстояние L до линии горизонта можно вычислить по теореме Пифагора:

Высоту положения наблюдателя будем указывать в километрах.

Public Class Form1

Private Sub BT1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT1.Click

Dim H, L As Single

Const R As Integer = 6350

H = CSng(TB1.Text)

L = Math.Sqrt((R + H) ^ 2 - R ^ 2)

LB1.Text = L

End Sub

End Class