8 lines
341 B
Text
8 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]
|