Рекурсия. Перебор всевозможных вариантов элементов матрицы

[Mr_freeman]

Я работаю над небольшим проектом и не могу справится с алгоритмом. Дело в том что я оч хреново использую рекурсию на практике...
Собственно что мне нужно:
Имеется матрица NxM ее элементы могут принимать значение 0 или 1 (ну типа byte). Процедура должна перебрать все возможные варианты значений всех элементов. Как я сам понял это реально сделать тока через рекурсию(ну или по крайней мере мне кажется что это наиболее простой вариант).

Примерчик:
Имеется матрица 2х2, все варианты:
0 0 | 0 0 | 0 0 | 0 0 | 0 1 | 0 1 | 0 1 | 0 1
0 0 | 0 1 | 1 0 | 1 1 | 0 0 | 0 1 | 1 0 | 1 1

1 0 | 1 0 | 1 0 | 1 0 | 1 1 | 1 1 | 1 1 | 1 1
0 0 | 0 1 | 1 0 | 1 1 | 0 0 | 0 1 | 1 0 | 1 1
Каждый вариант, не должен где то хранится, но можно и так) Вообще процедура должна просто перебирать их.

Если вдруг возникнут какие то проблемы с матрицами, можно сделать процедуру перебирающую елементы одномерного массива с такими же элементами, соответственно его длина будет MxN

Если не трудно, оставляйте подробные комментарии. Заранее очень благодарен.

[onewho]

вариант конечно не супер но
for (int i=0; i<2; i++)
for (int j=0; j<2; j++)
for (int k=0; k<2; k++)
for (int l=0; l<2; l++)
cout << i << ' ' << j << ' ' << k << ' '<< l << endl;

[Летучий_СкилетиК]

Можно простую рекурсивную перестановку сделать как для одномерного массива размером n*m, но при каждом след i = n * m на 1 добавляем

[Mr_freeman]

onewho, я в делфи делаю...
Летучий скелетик, можно поподробнее??

[onewho]

омг, ну
i,j,k,l:integer;
for i:=0 for i<=1
for j:=0 for j<=1
for k:=0 for k<=1
for l:=0 for l<=1
writeln(i,' ',j,' ',k,' ',l);

[Mr_freeman]

onewho, в делфи никогда не видел чтоб так делали, но как я понял ты написал только для моего примера, то есть перебор 4-ех елементов. а процедура должна делать это для люього их количества..(

[onewho]

да... тогда косяк.

[Летучий_СкилетиК]

пределы n и m какие?

Можно простую рекурсивную перестановку сделать как для одномерного массива размером n*m, но при каждом след i = n * m на 1 добавляем

если больше чем 10 то стршно как долго будет!

[Mr_freeman]

Скилетик, я про рекурсию вообще мало знаю, ты можешь код выложить сюда??
Насчет границ ничего сказать не могу но я сам уже догадался что про больших ЭМ и ЭН это ппц..

[Летучий_СкилетиК]

uses crt;
type
    mass=array [byte] of byte;
var
   x:mass;
   j,n,m,nn,mm,l:byte;
   g:boolean;
procedure mnog(var x:mass;var g:boolean);
var
   i:byte;
begin
      i:=n;
      while (i>0)and(x[i]=m)do
      begin
           x[i]:=1;
           i:=i-1;
      end;
      if i>0 then begin x[i]:=x[i]+1;g:=true;end
      else g:=false;
end;
begin
clrscr;
readln(nn,mm);
n:= nn* mm;
m:=2;
for j:=1 to n do
x[j]:=1;
g:=true;
         repeat
               mnog(x,g);
                   l:=0;
                   for j:=1 to n do
                   begin
                       l:=l+1;
                       write(x[j]-1,' ');
                       if l = mm then begin writeln; l:=0;end;
                   end;
                writeln;
         until g=false;
readkey;
end.

с сортировкой это я перегнул, вот на основе сожитания с добавлением....