PROGRAM:AGRAIRES

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

Disp "--Correspondance Agraire--"
Disp "     Millimètres~mm"
Disp "     Centimètres~cm"
Disp "      Décimètres~dm"
Disp "     Mètres~m Centiares~ca"
Disp " Décamètres~dam    Ares~ a"
Disp "Hectomètres~hm Hectares~ha"
Disp "      Kilomètres~km"
Disp "--------------------------"

Pause 
EffÉcran

Disp "Choisir l'unitée de départ"
Disp "--------------------------"
Disp "mm².......:1  cm².......:2"
Disp "dm².......:3  m² ou ca..:4"
Disp "dam² ou a.:5  hm² ou ha.:6"
Disp "km².......:7"
Disp "--------------------------"
Input "Votre choix = ",C
If C>0 et C<8:Then
Input "Le chiffre  = ",N
Else
EffÉcran:Stop
End

If C=1
N/1000000→R

If C=2
N/10000→R

If C=3
N/100→R

If C=4
N→R

If C=5
N*100→R

If C=6
N*10000→R

If C=7
N*1000000→R

EffÉcran

Output(1,1,"--------------------------")
Output(2,4,"mm².....:"):Output(2,14,R*1000000)
Output(3,4,"cm².....:"):Output(3,14,R*10000)
Output(4,4,"dm².....:"):Output(4,14,R*100)
Output(5,4,"m²...ca.:"):Output(5,14,R)
Output(6,4,"dam²..a.:"):Output(6,14,R*0.01)
Output(7,4,"hm²..ha.:"):Output(7,14,R*0.0001)
Output(8,4,"km².....:"):Output(8,14,R*0.000001)
Output(9,1,"--------------------------")
Output(10,3,"[entrer] pour sortir !")

Pause 
EffÉcran

-------------------------------------------(seconde solution)
Output(1,2,"mm²...:"):Output(1,9,R*1000000)
Output(2,2,"cm²...:"):Output(2,9,R*10000)
Output(3,2,"dm²...:"):Output(3,9,R*100)
Output(4,2,"m² ca.:"):Output(4,9,R)
Output(5,2,"dam² a:"):Output(5,9,R/100)
Output(6,2,"hm² ha:"):Output(6,9,R/10000)
Output(7,2,"km²...:"):Output(7,9,R/1000000)
-------------------------------------------