mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-07 19:51:51 +09:00
26 lines
479 B
QBasic
26 lines
479 B
QBasic
1 PRINT SPC(35);"MULT-TABLE"
|
|
2 PRINT "THIS PROGRAM TESTS THE MULTIDIMENSIONAL ARRAY ALLOCATING AND INDEXING"
|
|
3 PRINT
|
|
4 OPTIONBASE 1
|
|
5 OPTIONDEBUG 1
|
|
6 OPTIONTRACE 1
|
|
9 I=DIM(2)
|
|
10 PRINT "TABLE WIDTH";
|
|
11 INPUT I(1)
|
|
20 PRINT "TABLE HEIGHT";
|
|
21 INPUT I(2)
|
|
30 T=DIM(I(2),I(1))
|
|
40 FOR Y=1 TO I(2)
|
|
50 FOR X=1 TO I(1)
|
|
60 T(Y,X)=X*Y
|
|
70 NEXT
|
|
80 NEXT
|
|
90 RESOLVE T
|
|
100 FOR Y=1 TO I(2)
|
|
110 FOR X=1 TO I(1)
|
|
120 PRINT T(Y,X);" ";
|
|
130 NEXT
|
|
140 PRINT
|
|
150 NEXT
|
|
200 PRINT "ENDE"
|