PROGRAM:CONV3

0→C:0→N:0→R
EffÉcran
Disp "cm.pointur=0  pointur.cm=1"
Disp "Hz..mètres=2  mètres..Hz=3"
Disp "KHz.mètres=4  mètres.KHZ=5"
Disp "MHz.mètres=6  mètres.MHz=7"
Disp "GHz.mètres=8  mètres.GHz=9"
Disp "--------------------------"
Input "Votre choix = ",C
If C<10:Then
Input "Le chiffre  = ",N
Else
EffÉcran:Stop
End

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

If C=2 ou C=3
299792458/N→R

If C=4 ou C=5
299792.458/N→R

If C=6 ou C=7
299.792458/N→R

If C=8 ou C=9
0.299792458/N→R

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

Pause 
EffÉcran