9 lines
341 B
Text
9 lines
341 B
Text
|
[loop]
|
||
|
|
input "Kelvin Degrees";kelvin
|
||
|
|
if kelvin <= 0 then end ' zero or less ends the program
|
||
|
|
celcius = kelvin - 273.15
|
||
|
|
fahrenheit = kelvin * 1.8 - 459.67
|
||
|
|
rankine = kelvin * 1.8
|
||
|
|
print kelvin;" kelvin is equal to ";celcius; " degrees celcius and ";fahrenheit;" degrees fahrenheit and ";rankine; " degrees rankine"
|
||
|
|
goto [loop]
|