10 lines
209 B
Text
10 lines
209 B
Text
' Temperature conversion
|
|
DO
|
|
INPUT "Kelvin degrees (>=0): ", K
|
|
LOOP UNTIL K >= 0
|
|
|
|
PRINT "K = " + STR$(K)
|
|
PRINT "C = " + STR$(K - 273.15)
|
|
PRINT "F = " + STR$(K * 1.8 - 459.67)
|
|
PRINT "R = " + STR$(K * 1.8)
|
|
END
|