Distance de l'Orage selon la Température
----------------------------------------
PROGRAM:ORAGTEMP

0→T:0→S:0→V:0→D
EffÉcran
Disp "Distance de l'Orage tenant"
Disp "conte de la Vitesse du son"
Disp "selon la Température."

Input "Température actuelle = ",T
Disp "secondes entre l'éclair"
Input "& le son du Tonnerre = ",S

If T≥0
Then
331.6+T*0.62→V
Else
331.6-abs(T)*0.62→V
End
V*S→D
D/1000→D
arrondir(D,3)→D

Output(8,8,D)
Pause 
EffÉcran