!
> Есть масив ar[20,2]

> Т.е. заполнить масив числами от 1 до 4 всеми возможными вариантами
Тогда уж [25,2] ведь 0,0 - тоже пара числе :)

> В дальнейшем будет необходимо будет заполнять намного больший масив,
> например ar[2000,15]

Вкладывай два цикла один в другой. И в циклах уже заполняй.


Posted via ActualForum NNTP Server 1.4

Например как-то так:

#defi razmer 5 && (от 0 до 4)

CLEAR

DIMENSION ar[(razmer)^2,2]

FOR i=0 TO razmer-1

FOR j=0 TO razmer-1

ar[razmer*i+j+1,1]=i

ar[razmer*i+j+1,2]=j

?razmer*i+j+1

ENDFOR

ENDFOR

CLEAR

DISPLAY MEMORY LIKE ar


Posted via ActualForum NNTP Server 1.4

Ну или как-то так:
#defi razmer 5 && (от 0 до 4)

CREATE CURSOR test (i i)

FOR i=0 TO razmer -1

INSERT INTO test (i) VALUES (m.i)

ENDFOR

SELECT test1.i , test2.i FROM test test1 , test test2 ORDER BY 1,2 INTO
ARRAY ar2

CLEAR

DISPLAY MEMORY LIKE ar2


Posted via ActualForum NNTP Server 1.4