RosettaCodeData/Task/Temperature-conversion/IS-BASIC/temperature-conversion.basic

6 lines
223 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
100 INPUT PROMPT "Kelvin degrees: ":K
110 PRINT K;TAB(10);"Kelvin is equivalent to"
120 PRINT K-273.15;TAB(10);"Degrees Celsius"
130 PRINT K*1.8-459.67;TAB(10);"Degrees Fahrenheit"
140 PRINT K*1.8;TAB(10);"Degrees Rankine"