Conversion de hauteur ou longueur
---------------------------------
PROGRAM:ALTDIST

EffÉcran

Disp "--------------------------"
Disp "Kms...:1       mile.naut:5"
Disp "mètre.:2       Pied.....:6"
Disp "cm....:3       pouce....:7"
Disp "mm....:4       ligne....:8"
Disp "--------------------------"
Input "Votre choix = ",C
If C<1 ou C>8:Then
EffÉcran:Stop
End
Input "Le chiffre  = ",N
If N≤0:Then
EffÉcran:Stop
End

If C=1:Then
N→K
K*1000→M
M*100→T
T*10→I
K*0.539957→E
M*3.2808398950131→D
M*39.37007874→P
M*472.440944882→L
End

If C=2:Then
N→M
M/1000→K
M*100→T
T*10→I
K*0.539957→E
M*3.2808398950131→D
M*39.37007874→P
M*472.440944882→L
End

If C=3:Then
N→T
T/100→M
M/1000→K
T*10→I
K*0.539957→E
M*3.2808398950131→D
M*39.37007874→P
M*472.440944882→L
End

If C=4:Then
N→I
I/10→T
T/100→M
M/1000→K
K*0.539957→E
M*3.2808398950131→D
M*39.37007874→P
M*472.440944882→L
End

If C=5:Then
N→E
E/0.539957→K
K*1000→M
M*100→T
T*10→I
M*3.2808398950131→D
M*39.37007874→P
M*472.440944882→L
End

If C=6:Then
N→D
D*0.3048→M
M/1000→K
M*100→T
T*10→I
K*0.539957→E
M*39.37007874→P
M*472.440944882→L
End

If C=7:Then
N→P
P/39.37007874→M
M/1000→K
M*100→T
T*10→I
K*0.539957→E
M*3.2808398950131→D
M*472.440944882→L
End

If C=8:Then
N→L
L/4.72440944882→T
T/100→M
M/1000→K
T*10→I
K*0.539957→E
M*3.2808398950131→D
M*39.37007874→P
End

EffÉcran

Output(1,3,"kilomètre:"):Output(1,13,K)
Output(2,3,"mètre....:"):Output(2,13,M)
Output(3,3,"centimètr:"):Output(3,13,T)
Output(4,3,"millimètr:"):Output(4,13,I)
Output(5,3,"mil.naut.:"):Output(5,13,E)
Output(6,3,"pied.....:"):Output(6,13,D)
Output(7,3,"pouce....:"):Output(7,13,P)
Output(8,3,"ligne....:"):Output(8,13,L)
Output(9,1,"--------------------------")
Output(10,3,"[entrer] pour sortir !")

Pause 
EffÉcran