Temperature conversion: Difference between revisions
no edit summary
No edit summary |
|||
Line 85:
100 PRINT R; " DEGREES RANKINE"
110 GOTO 20</lang>
=={{header|BBC BASIC}}==
<lang bbcbasic>
REPEAT
INPUT "Kelvin degrees (>=0): " K
UNTIL K>=0
@%=&20208
PRINT '"K = " K
PRINT "C = " K - 273.15
PRINT "F = " K * 1.8 - 459.67
PRINT "R = " K * 1.8
END
</lang>
Output:
<pre>
Kelvin degrees (>=0): 21
K = 21.00
C = -252.15
F = -421.87
R = 37.80
</pre>
=={{header|C}}==
| |||