Calcul de la fréquence sonore en hertz et de la longueur d'onde en mètres en tenant compte de la température de l'air ------------------------------------------- PROGRAM:VITFREQ 0→C:0→T:0→V:0→F:0→S EffÉcran Disp "Convertion de la fréquence" Disp "en Hertz et de la longueur" Disp " d'onde en mètres dans" Disp "l'air selon la température" Disp "--------------------------" Disp "Fréquence................1" Disp "Longueur d'onde..........2" Disp "--------------------------" Input "Tapez votre choix 1 ou 2 ?",C If C<1 ou C>2:Then EffÉcran:Stop Else EffÉcran Disp "":Disp "" Input "Quel Température:? ",T If C=1:Then:Disp "" Input "Fréquence:? ",F If F≤0:Then:EffÉcran:Stop:End End If C=2:Then:Disp "" Input "Longueur d'onde:? ",S If S≤0:Then:EffÉcran:Stop:End End If T≥0 Then 331.6+T*0.62→V Else 331.6-abs(T)*0.62→V End arrondir(V,2)→V If C=1:V/F→S arrondir(S,3)→S If C=2:V/S→F arrondir(F,2)→F EffÉcran Output(3,1," Température = "):Output(3,15,T) Output(5,1," Fréquence = "):Output(5,15,F) Output(7,1," Long d'onde = "):Output(7,15,S) Pause EffÉcran