13 lines
277 B
Text
13 lines
277 B
Text
'Temperature conversion
|
|
DO
|
|
INPUT "Kelvin degrees "; K
|
|
IF K < 0 THEN EXIT DO
|
|
C = K - 273.15
|
|
F = K * 1.8 - 459.67
|
|
R = K * 1.8
|
|
PRINT K; " Kelvin is equivalent to"
|
|
PRINT C; " degrees Celsius,"
|
|
PRINT F; " degrees Fahrenheit,"
|
|
PRINT R; " degrees Rankine."
|
|
LOOP
|
|
END
|