Anonymous user
Temperature conversion: Difference between revisions
m
→{{header|BASIC}}
(GP) |
|||
Line 27:
=={{header|AWK}}==
<lang AWK>▼
▲# syntax: GAWK -f TEMPERATURE_CONVERSION.AWK
BEGIN {
while (1) {
Line 46 ⟶ 45:
}
exit(0)
=={{header|BASIC}}==
<lang basic>10 REM TRANSLATION OF AWK VERSION
20 INPUT "KELVIN DEGREES",K
30 IF K <= 0 THEN END: REM A VALUE OF ZERO OR LESS WILL END PROGRAM
40 LET C = K - 273.15
50 LET F = K * 1.8 - 459.67
60 LET R = K * 1.8
70 PRINT K; " KELVIN IS EQUIVALENT TO"
80 PRINT C; " DEGREES CELCIUS"
90 PRINT F; " DEGREES FAHRENHEIT"
100 PRINT R; " DEGREES RANKINE"
110 GOTO 20</lang>
=={{header|C}}==
| |||