Calcul de la longueur d'onde en mètres
et de la fréquence en hertz en tenant
compte de la température de l'air
-------------------------------------------
Define onde_température()=
Prgm
:Local a,t,v,f,lo,i
:0→a:0→t:0→v:0→f:0→lo
:setMode(5,2)
:Disp "Convertion de la fréquence en MégaHertz "
:Disp "      et de la longueur d'onde en mètres"
:Disp "               selon la température"
:Disp "------------------------------"
:Disp "Fréquence en MégaHertz..........................1"
:Disp "Longueur d'onde en mètres.......................2"
:Disp "------------------------------"
:getKey(1)
:Request "Votre choix",a
:If a<1 or a>2
:  Goto fin
:Request "Quel Température:? ",t
:If a=1 Then
:  Request "Fréquence:? ",f
:  If f≤0
:  Goto fin
:EndIf
:If a=2 Then
:  Request "Longueur d'onde:? ",lo
:If lo≤0
:  Goto fin
:EndIf
:© calcul de température
:If t≥0 Then
:  331.6+t*0.62→v
:Else
:  331.6-abs(t)*0.62→v
:EndIf
:round(v,2)→v
:© Fréquence pour calcul de Longueur d'onde
:If a=1
:((v)/(f))→lo
:round(lo,3)→lo
:© Longueur d'onde pour calcul de la fréquence
:If a=2
:((v)/(lo))→f
:round(f,3)→f
:For i,1,7
:  Disp ""
:EndFor
:Disp " Température = ",t,"Degrés"
:Disp " Fréquence   = ",f
:Disp " Long d'onde = ",lo,"mètres"
:Disp "                                         Entrer pour sortir !"
:getKey(1)
:Lbl fin
:EndPrgm