Create a two-dimensional array at runtime: Difference between revisions
Content added Content deleted
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: | Line 416: | ||
60 PRINT A%(X%, Y%) |
60 PRINT A%(X%, Y%) |
||
70 CLEAR</lang> |
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}}=== |
==={{header|BBC BASIC}}=== |
||
Line 520: | Line 555: | ||
==={{header|QuickBASIC}}=== |
==={{header|QuickBASIC}}=== |
||
{{works with|QBasic|1.1}} |
|||
{{works with|QuickBasic|4.5}} |
{{works with|QuickBasic|4.5}} |
||
<lang qbasic> CLS |
<lang qbasic> CLS |