Create a two-dimensional array at runtime: Difference between revisions
Content added Content deleted
(added RPL) |
(Added various BASIC dialects (Chipmunk Basic, GW-BASIC, Minimal BASIC, MSX Basic and XBasic)) |
||
Line 891: | Line 891: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|Applesoft BASIC}}=== |
==={{header|Applesoft BASIC}}=== |
||
<syntaxhighlight lang="applesoftbasic">10 INPUT "ENTER TWO INTEGERS:"; X%, Y% |
<syntaxhighlight lang="applesoftbasic">10 INPUT "ENTER TWO INTEGERS:"; X%, Y% |
||
Line 909: | Line 908: | ||
print "a("; string(i); ","; string(j); ") = "; a[i, j] |
print "a("; string(i); ","; string(j); ") = "; a[i, j] |
||
end</syntaxhighlight> |
end</syntaxhighlight> |
||
==={{header|Chipmunk Basic}}=== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
<syntaxhighlight lang="vbnet">10 input "Enter two positive integers, separated by a comma? ";i,j |
|||
20 dim array(i,j) |
|||
30 array(i,j) = i*j |
|||
40 print "a(";str$(i);",";str$(j);") = ";array(i,j) |
|||
50 erase array</syntaxhighlight> |
|||
==={{header|GW-BASIC}}=== |
|||
{{works with|PC-BASIC|any}} |
|||
{{works with|BASICA}} |
|||
{{works with|QBasic}} |
|||
{{works with|MSX BASIC}} |
|||
<syntaxhighlight lang="qbasic">10 INPUT "Enter two positive integers, separated by a comma"; I, J |
|||
20 DIM ARRAY(I, J) |
|||
30 ARRAY(I, J) = I * J |
|||
40 PRINT "a("; STR$(I); ","; STR$(J); " ) ="; ARRAY(I, J) |
|||
50 ERASE ARRAY</syntaxhighlight> |
|||
==={{header|Minimal BASIC}}=== |
|||
<syntaxhighlight lang="qbasic">10 PRINT "ENTER ONE POSITIVE INTEGER: " |
|||
20 INPUT I |
|||
30 PRINT "ENTER OTHER POSITIVE INTEGER: " |
|||
40 INPUT J |
|||
50 LET A(I,J) = I*J |
|||
60 PRINT "A(";I;",";J;") = ";A(I,J) |
|||
70 END</syntaxhighlight> |
|||
==={{header|MSX Basic}}=== |
|||
{{works with|MSX BASIC|any}} |
|||
{{works with|GW-BASIC}} |
|||
The [[#GW-BASIC|GW-BASIC]] solution works without any changes. |
|||
==={{header|QBasic}}=== |
==={{header|QBasic}}=== |
||
Line 927: | Line 959: | ||
MAT REDIM array(0,0) |
MAT REDIM array(0,0) |
||
END</syntaxhighlight> |
END</syntaxhighlight> |
||
==={{header|XBasic}}=== |
|||
{{works with|Windows XBasic}} |
|||
<syntaxhighlight lang="qbasic">PROGRAM "Create a two-dimensional array at runtime" |
|||
VERSION "0.0001" |
|||
DECLARE FUNCTION Entry () |
|||
FUNCTION Entry () |
|||
i$ = INLINE$("Enter one positive integer: ") |
|||
j$ = INLINE$("Enter other positive integer: ") |
|||
i = SSHORT(i$) |
|||
j = SSHORT(j$) |
|||
DIM a[i, j] |
|||
a[i, j] = i * j |
|||
PRINT "a("; STRING(i); ", "; STRING(j); ") ="; a[i, j] |
|||
END FUNCTION</syntaxhighlight> |
|||
==={{header|Yabasic}}=== |
==={{header|Yabasic}}=== |