12 lines
197 B
QBasic
12 lines
197 B
QBasic
100 rem two dimensional array
|
|
110 dim table(3,3)
|
|
120 for i=0 to 3
|
|
130 for j=0 to 3
|
|
135 print i,j
|
|
140 table(i,j)= i*j
|
|
150 next j,i
|
|
160 print "filled"
|
|
170 for i=0 to 3
|
|
180 print table(i,i)
|
|
190 nexti
|