
Code: Select all
arrays:
OPTION BASE 1
c=0
DIM j(3,3)
FOR n=1 TO 3
FOR m=1 TO 3
PRINT n,m
c=c+1
j(n,m)=c
NEXT m
NEXT n
FOR n=1 TO 3
FOR m=1 TO 3
PRINT j(n,m),
NEXT m
NEXT n
Code: Select all
arrays:
OPTION BASE 1
c=0
DIM j(3,3)
FOR n=1 TO 3
FOR m=1 TO 3
PRINT n,m
c=c+1
j(n,m)=c
NEXT m
NEXT n
FOR n=1 TO 3
FOR m=1 TO 3
PRINT j(n,m),
NEXT m
NEXT n