| Code | | Texte en sous-format code |
:Lbl N
:EffEcr
:Input "TEMPERATURE:",A
:Lbl M
:EffEcr
:Menu("TEMPERATURE","CELSIUS",C,"FAHRENHEIT",F,"KELVIN",K,"NOUVELLE CONV.",N,"QUITTER",Q)
:EffEcr
:Lbl C
: (1.8*A)+32->B
:A+273.16->C
:Output(1,1,A)
:Output(1,15,"°C")
:Output(2,1,"VAUT:")
:Output(3,1,B)
:Output(3,15,"°F")
:Output(4,1,C)
:Output(4,16,"K")
:Pause
:EffEcr
:Goto M
:Lbl F
:0.55*(A-32)->B
:B+273.16->C
:Output(1,1,A)
:Output(1,15,"°F")
:Output(2,1,"VAUT:")
:Output(3,1,B)
:Output(3,15,"°C")
:Output(4,1,C)
:Output(4,16,"K")
:Pause
:EffEcr
:Goto M
:Lbl K
:A-273.16->B
: (1.8*B)+32->C
:Output(1,1,A)
:Output(1,16,"K")
:Output(2,1,"VAUT:")
:Output(3,1,B)
:Output(3,15,"°C")
:Output(4,1,C)
:Output(4,15,"°F")
:Pause
:EffEcr
:Goto M
:Lbl Q
:EffEcr
|
