XProfan

WindowTitle "Horizont-Entfernung"
declare d!,r!,h!:font 2
r!=6371' Durchschnittlicher Erdradius [km]
lop:
Cls
print "\n Sichtlinie zum Horizont [km] berechnen:"
print " =======================================\n"
print "\n Augenhöhe circa Horizonthöhe [m]: ";
input h!:h!=h!/1000
d!=sqrt(2*r!*h!+sqr(h!))
print "\n Horizontentfernung: ";format$("###0.###",d!);" km"
waitinput
goto "lop"