2013-04-11 01:07:29 -07:00
|
|
|
[loop]
|
2013-10-27 22:24:23 +00:00
|
|
|
input "Kelvin Degrees";kelvin
|
2013-04-11 01:07:29 -07:00
|
|
|
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]
|
