PROGRAM:CONV2

0→C:0→N:0→R
EffÉcran

Disp "Kmh.noeuds=0  noeuds.Kmh=1"
Disp "pouces.m..=2  m.pouces..=3"
Disp "Kg.livre..=4  livre.Kg..=5"
Disp "gallUK.lit=6  lit.gallUK=7"
Disp "gallUS.lit=8  lit.gallUS=9"
Disp "--------------------------"
Input "Votre choix = ",C
If C<10:Then
Input "Le chiffre  = ",N
Else
EffÉcran:Stop
End

If C=0
N/1.852→R
If C=1
N*1.852→R

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

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

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

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

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

Pause
EffÉcran