Bonne aproximation de la vitesse du son dans l'air
--------------------------------------------------
dans l'eau: 1480 m/s
dans le béton: 3100 m/s
Dans le fer: 1 500 m/s
==================================================
Define vitesse_son()=
Prgm
:Local t,v,i
:0→t:0→v:0→i
:setMode(5,2)
:Disp "              Calculer la Vitesse du son               "
:Disp "                en mètres par secondes"
:Disp "                  selon la Température"
:Disp "                           de l'air"
:Disp ""
:Disp "              [entrer] pour commencer"
:Disp "-------------------------------"
:getKey(1)
:Request "Température: ",t
:If t≥0 Then
:  331.6+t*0.62→v
:Else
:  331.6-abs(t)*0.62→v
:EndIf
:round(v,2)→v
:For i,1,4
:  Disp ""
:EndFor
:Disp v,"environ mètres par seconde"
:For i,1,3
:  Disp ""
:EndFor
:Disp "                                         Entrer pour sortir !"
:getKey(1)
:EndPrgm