Temperature conversion: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 85: | Line 85: | ||
100 PRINT R; " DEGREES RANKINE" |
100 PRINT R; " DEGREES RANKINE" |
||
110 GOTO 20</lang> |
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}}== |
=={{header|C}}== |