Temperature conversion: Difference between revisions
Added Applesoft BASIC, Chipmunk Basic, GW-BASIC and Minimal BASIC
(Grouping BASIC dialects) |
(Added Applesoft BASIC, Chipmunk Basic, GW-BASIC and Minimal BASIC) |
||
Line 830:
100 PRINT R; " DEGREES RANKINE"
110 GOTO 20</syntaxhighlight>
==={{header|Applesoft BASIC}}===
The [[#Chipmunk Basic|Chipmunk_Basic]] solution works without any changes.
==={{header|BASIC256}}===
Line 859 ⟶ 862:
F = -421.87
R = 37.80</pre>
==={{header|Chipmunk Basic}}===
{{works with|Chipmunk Basic|3.6.4}}
{{works with|QBasic}}
{{works with|QuickBasic}}
{{works with|Applesoft BASIC}}
{{works with|BASICA}}
{{works with|GW-BASIC}}
{{works with|Minimal BASIC}}
{{works with|MSX BASIC|any}}
{{works with|Run BASIC}}
{{works with|Just BASIC}}
{{works with|Liberty BASIC}}
<syntaxhighlight lang="qbasic">10 CLS : REM 10 HOME for Applesoft BASIC : DELETE for Minimal BASIC
20 PRINT "Kelvin Degrees ";
30 INPUT K
40 IF K <= 0 THEN 130
50 LET C = K-273.15
60 LET F = K*1.8-459.67
70 LET R = K*1.8
80 PRINT K;" Kelvin is equivalent to"
90 PRINT C;" Degrees Celsius"
100 PRINT F;" Degrees Fahrenheit"
110 PRINT R;" Degrees Rankine"
120 GOTO 20
130 END</syntaxhighlight>
==={{header|FreeBASIC}}===
Line 909 ⟶ 938:
Fahrenheit = -421.87
Rankine = 37.80</pre>
==={{header|GW-BASIC}}===
The [[#Chipmunk Basic|Chipmunk_Basic]] solution works without any changes.
==={{header|IS-BASIC}}===
Line 933 ⟶ 965:
F = -421.87
R = 37.8</pre>
==={{header|Minimal BASIC}}===
The [[#Chipmunk Basic|Chipmunk_Basic]] solution works without any changes.
==={{header|MSX Basic}}===
The [[#Chipmunk Basic|Chipmunk_Basic]] solution works without any changes.
==={{header|PureBasic}}===
| |||