масив Опции

[Helm]

Всем привет! )

И так вот такая у меня трабла:
Есть числа (от 1 до 10), нужно заполнить масив таким образом чтобы он виглядал вот так:

----------------------
№ | | | | | | |
----------------------
1 | 1| | | | | |
2 | 1|2| | | | |
3 | 1|3| | | | |
4 | 1|4| | | | |
5 | 1|5| | | | |
6 | 1|2|3| | | |
7 | 1|2|4| | | |
8 | 1|2|5| | | |
9 | 1|3|4| | | |
10 | 1|3|5| | | |
11 | 1|4|5| | | |
12 | 1|2|3|4| | |
13 | 1|2|3|5| | |
14 | 1|2|4|5| | |
15 | 1|3|4|5| | |
16 | 1|2|3|4|5| |
... |..|..|..|..|..|..|
---------------------

то есть идет выборка (хз как её назвать)
сначала по два елемента ([1,2], [1,3], [1,4], [1,5])
потом по три ([1,2,3], [1,2,4], [1,2,5], [1,3,4], [1,3,5], [1,4,5])
потом по 4 ...
потом по 5 ...
и так до 10

p.s. (ето мне нужно для реализации алгоритма для решения задачи о максимальном потоке методом сечения)

[Mavra]

Тоже вопрос по массиву.
есть матрица квадратная. размерность 2*n
поменять по часовой стрелке ее блоки размерами n*n
подскажите в чем ошибка

 procedure Smena(var A,B:matrix; n,m:integer);
 var i,j:integer;
 begin
 for i:=1 to n do
 for j:=1 to n do
  B[i,j+n]:=A[i,j];
 for i:=1 to n do
 for j:=n+1 to m do
  B[i+n,j]:=A[i,j];
 for i:=n+1 to m do
 for j:=n+1 to m do
  B[i,j-n]:=A[i,j];
 for i:=n+1 to m do
 for j:=1 to n do
  B[i-n,j]:=A[i,j];
 end;

Сообщение отредактировано: Mavra - 2.12.2009 17:50