13 lines
169 B
QBasic
13 lines
169 B
QBasic
|
5 CROFF
|
||
|
|
10 DIM a(7,7,7)
|
||
|
|
20 FOR i=0 TO 7
|
||
|
|
30 FOR d=0 TO 7
|
||
|
|
40 FOR b=0 TO 7
|
||
|
|
50 a(b,d,i)=c
|
||
|
|
55 c=c+1
|
||
|
|
60 PRINT "a(";b;",";d;",";i;")=";a(b,d,i)
|
||
|
|
70 NEXT b
|
||
|
|
80 NEXT d
|
||
|
|
90 NEXT i
|
||
|
|
|