XProfan

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