XProfan

Título de la ventana "Horizont-Entfernung"
declarar d!,r!,h!:font 2
r!=6371' Durchschnittlicher Erdradius [km]
lop:
Cls
imprimir "\n Sichtlinie para Horizont [km] berechnen:"
imprimir " =======================================\n"
imprimir "\n Augenhöhe encima Horizonthöhe [m]: ";
input h!:h!=h!/1000
d!=sqrt(2*r!*h!+sqr(h!))
imprimir "\n Horizontentfernung: ";format$("###0.###",d!);" km"
waitinput
goto "lop"