Conversion des températures
---------------------------
PROGRAM:TEMPER

Effacer entrées
EffÉcran

0→L:0→K:0→F:0→R
0→D:0→W:0→E:0→O
0→Y:0→C:0→N

Disp "-----Choisir l'unité------"
Disp "Celsius...:1    Kelvin..:2"
Disp "Fahrenheit:3    Rankine.:4"
Disp "Delisle...:5    Newton..:6"
Disp "Réaumur...:7    Romer...:8"
Disp "Leyden....:     Bientôt
Disp "--------------------------"
Input "Votre choix = ",C
If C>0 et C<9:Then
Input "Le chiffre  = ",N
Else
EffÉcran:Stop
End

If C=1:N→L
If C=2:N-273.15→L
If C=3:(N-32)/1.8→L
If C=4:(N-491.67)/1.8→L
If C=5:100-(N*2/3)→L  --ou-- If C=5:(N+100)/1.5→L
If C=6:N/.33→L
If C=7:N/.8→L
If C=8:(N-7.5)/.525→L
If C=9:N-253→L

L+273.15→K
L*1.8+32→F
L*1.8+491.67→R
(100-L)*3/2→D  --ou--  (L*1.5)-100→D
L*.33→W
L*.8→E
L*.525+7.5→O
L+253→Y

EffÉcran

Output(1,2,"Celsius... = "):Output(1,15,L)
Output(2,2,"Kelvin.... = "):Output(2,15,K)
Output(3,2,"Fahrenheit = "):Output(3,15,F)
Output(4,2,"Rankine... = "):Output(4,15,R)
Output(5,2,"Delisle... = "):Output(5,15,D)
Output(6,2,"Newton.... = "):Output(6,15,W)
Output(7,2,"Réaumur... = "):Output(7,15,E)
Output(8,2,"Romer..... = "):Output(8,15,O)
Output(9,2,"Leyden.... = "):Output(9,15,Y)

Pause 
EffÉcran