PROGRAM:CHUTE

EffÉcran
0→H:0→T
0→V:0→W
2*9.80665→X

Disp "--------------------------"
Disp "    Vitesse théorique"
Disp "    d'un corps lâché"
Disp "  sans vitesse initiale"
Disp "    dans le champ de"
Disp "   pesanteur terrestre"
Disp " [entrer] pour commencer
Disp "--------------------------"

Pause 

Input "0 ou Hauteur en m = ",H
If H=0:Then
EffÉcran:Stop
End

√(X*H)→V
V*3.6→W

EffÉcran
Output(1,1,"hauteur en mètres")
Output(1,19,H)
Output(2,1,"la vitesse en m/sec est de")
Output(4,8,V)
Output(6,1,"la vitesse en Km/hr est de")
Output(8,8,W)
Output(10,1,"--------------------------")

Pause 
EffÉcran