PROGRAM:CONV1

0→C:0→N:0→R
EffÉcran
Disp "mn.ctm...=0    ctm.mn...=1"
Disp "Kmh.ms...=2    ms.Kmh...=3"
Disp "m.pied...=4    pied.m...=5"
Disp "Km.milTr.=6    milTr.km.=7"
Disp "mmHg.hPa.=8    hPa.mmHg.=9"
Disp "--------------------------"
Input "Votre choix = ",C
If C<10:Then
Input "Le chiffre  = ",N
Else
EffÉcran:Stop
End

If C=0
N/3*5→R
If C=1
N/5*3→R

If C=2
N/3.6→R
If C=3
N*3.6→R

If C=4
N*3.2808398950131→R
If C=5
N/3.2808398950131→R

If C=6
N*0.621371→R
If C=7
N/0.621371→R

If C=8
N/0.75006375541921→R
If C=9
N*0.75006375541921→R

arrondir(R,3)→R
Output(9,13,"=")
Output(9,15,R)

Pause 
EffÉcran