2023-07-01 11:58:00 -04:00
|
|
|
10 REM Translation of traditional basic version
|
|
|
|
|
20 INPUT "Kelvin Degrees? ";k
|
2025-02-27 18:35:13 -05:00
|
|
|
30 IF k < 0 THEN STOP: REM A value less than zero will end program
|
2023-07-01 11:58:00 -04:00
|
|
|
40 LET c = k - 273.15
|
|
|
|
|
50 LET f = k * 1.8 - 459.67
|
|
|
|
|
60 LET r = k * 1.8
|
|
|
|
|
70 PRINT k; " Kelvin is equivalent to"
|
|
|
|
|
80 PRINT c; " Degrees Celsius"
|
|
|
|
|
90 PRINT f; " Degrees Fahrenheit"
|
|
|
|
|
100 PRINT r; " Degrees Rankine"
|
|
|
|
|
110 GO TO 20
|
