14 lines
355 B
Plaintext
14 lines
355 B
Plaintext
100 REM Temperature conversion
|
|
110 DO
|
|
120 INPUT PROMPT "Kelvin degrees ":K
|
|
130 IF K < 0 THEN EXIT DO
|
|
140 LET C = K - 273.15
|
|
150 LET F = K * 1.8 - 459.67
|
|
160 LET R = K * 1.8
|
|
170 PRINT K; "Kelvin is equivalent to"
|
|
180 PRINT C; "degrees Celsius,"
|
|
190 PRINT F; "degrees Fahrenheit,"
|
|
200 PRINT R; "degrees Rankine."
|
|
210 LOOP
|
|
220 END
|