Create a two-dimensional array at runtime: Difference between revisions
Create a two-dimensional array at runtime (view source)
Revision as of 21:19, 30 March 2022
, 2 years agoCreate a two-dimensional array at runtime in various BASIC dialents (BASIC256, QBasic, True BASIC and Yabasic)
m (→{{header|Quackery}}: renamed unpack to depack) |
(Create a two-dimensional array at runtime in various BASIC dialents (BASIC256, QBasic, True BASIC and Yabasic)) |
||
Line 416:
60 PRINT A%(X%, Y%)
70 CLEAR</lang>
==={{header|BASIC256}}===
<lang basic256>arraybase 1
input integer "Enter one positive integer: ", i
input integer "Enter other positive integer: ", j
dim a(i, j)
a[i, j] = i * j
print "a("; string(i); ","; string(j); ") = "; a[i, j]
end</lang>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
<lang QBasic>INPUT "Enter two positive integers, separated by a comma"; i, j
DIM array(1 TO i, 1 TO j)
array(i, j) = i * j
PRINT "a("; STR$(i); ","; STR$(j); " ) = "; array(i, j)
ERASE array</lang>
==={{header|True BASIC}}===
<lang qbasic>INPUT prompt "Enter two positive integers, separated by a comma ": i, j
DIM array(0,0)
MAT REDIM array(1 TO i, 1 TO j)
LET array(i, j) = i*j
PRINT "a("; STR$(i); ","; STR$(j); ") ="; array(i, j)
MAT REDIM array(0,0)
END</lang>
==={{header|Yabasic}}===
<lang freebasic>input "Enter one positive integer: " i
input "Enter other positive integer: " j
dim a(i, j)
a(i, j) = i * j
print "a(", str$(i), ",", str$(j), ") = ", a(i, j)
exit</lang>
==={{header|BBC BASIC}}===
Line 520 ⟶ 555:
==={{header|QuickBASIC}}===
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
<lang qbasic> CLS
| |||