Conversion baromètrique Hectopascal (hPa) et Millimètre de mercure (mmHg)
-------------------------------------------------------------------------
PROGRAM:BARO

0→C:0→N
0→H:0→M

EffÉcran

Disp "-------hPa ou mmHg--------"
Disp "       1 pour Bar"
Disp "       2 pour mBar
Disp "       3 pour hPa"
Disp "       4 pour mmHg"
Disp "       5 pour atm"
Disp "--------------------------"
Input "Votre choix = ",C
If C>0 et C<6:Then
Input "Le chiffre  = ",N
Else
EffÉcran:Stop
End

If C=1:Then
N*1000→H
H/1.33322→M
End

If C=2:Then
N→H
H/1.33322→M
End

If C=3:Then
N→H
N/1.33322→M
End

If C=4:Then
N→M
N*1.33322→H
End

If C=5:Then
N*1013.25→H
H/1.33322→M
End

EffÉcran

Output(1,2,"Bar..:"):Output(1,9,H/1000)
Output(2,2,"mBar.:"):Output(2,9,H)
Output(3,2,"Pa...:"):Output(3,9,H*100)
Output(4,2,"hPa..="):Output(4,9,H)
Output(5,2,"kPa..:"):Output(5,9,H/10)
Output(6,2,"MPa..:"):Output(6,9,H/^(4))
Output(7,2,"mmHg.="):Output(7,9,M)
Output(8,2,"cmHg.:"):Output(8,9,M/10)
Output(9,2,"dmHg.:"):Output(9,9,M/100)
Output(10,2,"atm..:"):Output(10,9,H/1013.25)

Pause 
EffÉcran