Convertion des fréquences en longueur d'onde et inversement
-----------------------------------------------------------
PROGRAM:ONDE

0→F:0→L
0→C:0→N
299.792458→W

EffÉcran

Disp "--------Choisissez--------"
Disp "   Hz...:0      km...:1"
Disp "   kHz..:2      m....:3"
Disp "   MHz..:4      dm...:5"
Disp "   GHz..:6      cm...:7"
Disp "   THz..:8      mm...:9"
Disp "--------------------------"
Input "Votre choix = ",C
If C≥0 et C<10:Then
Input "Le chiffre  = ",N
Else
EffÉcran:Stop
End

If C=0:N/^(6)→F
If C=2:N/^(3)→F
If C=4:N→F
If C=6:N*^(3)→F
If C=8:N*^(6)→F

If C=1:N*^(3)→L
If C=3:N→L
If C=5:N/^(1)→L
If C=7:N/^(2)→L
If C=9:N/^(3)→L

If F≠0:W/F→L
If L≠0:W/L→F

EffÉcran
Output(1,1,"kilomètre.= "):Output(1,13,L/^(3))
      (   ,"Hectomètre= "):      ( ,  ,L/^(2))
      (   ,"Décamètre.= "):      ( ,  ,L/^(1))
Output(2,1,"mètre.....= "):Output(2,13,L)
Output(3,1,"décimètre.= "):Output(3,13,L*^(1))
Output(4,1,"centimètre= "):Output(4,13,L*^(2))
Output(5,1,"millimètre= "):Output(5,13,L*^(3))
Output(6,1,"Hertz.....= "):Output(6,13,F*^(6))
Output(7,1,"kiloHertz.= "):Output(7,13,F*^(3))
Output(8,1,"MégaHertzt= "):Output(8,13,F)
Output(9,1,"GigaHertz.= "):Output(9,13,F/^(3))
Output(10,1,"TeraHertz.= "):Output(10,13,F/^(6))

Pause 
EffÉcran


Sur Internet il existe un très bon site pour convertir toute sorte d'unité.

https://www.translatorscafe.com/unit-converter/fr-FR/frequency-wavelength/1-30/hertz-wavelength%20in%20millimetres/