[Serejka]

Очень нужно сформировать массив, или вывести куда угодно следующую инфу:
1
2
3

...

N-2
N-1
N
1 1
1 2
1 3

...

1 N-1
1 N
2 1
2 2

...

N N-1
N N
1 1 1
1 1 2
1 1 3

...

1 1 ... (M раз) ... 1
1 1 ... (M раз) ... 2
1 1 ... (M раз) ... 3

...

1 1 ... (M раз) ... N-1
1 1 ... (M раз) ... N

...

N N ... (M раз) ... N-1
N N ... (M раз) ... N

Два дня мучаюсь безрезультатно... Помогите бедолаге

[lmikle]

Ничего не понял.
Можешь это переложить как-то более понятно?

Если я правльно понимаю, то нужно сначала перебрать от 1 до N, потом тоже самое, но добавляется еще один столбец и т.д. M раз. Так?

Как запихнуть это в массив - я не знаю (на вскидку, придется делать какую-то оригинальную структуру для хранения таких данных). Вывести это куда-нить вполне можно.

Делать, ИМХО, надо что-то типа такого:
Внешниц цикл от 1 до M. Формируешь массив длянной счетчика цикла.
Средний цикл от длинны массива до 1.
Внутренний цикл от 1 до N меняет цифры.
Вывод масива при каждой итерации внутреннего цикла в, например, Memo.


Короче, если я правильно понял, то вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

procedure TForm1.btGenerateClick(Sender: TObject); const   M = 3;   N = 5;     procedure LogLine(ADataLine : Array Of Integer);   var     C : Integer;     S : String;   begin     S := '';     For C := Low(ADataLine) To High(ADataLine) Do       Begin         S := S + IntToStr(ADataLine[C]);         If C <> High(ADataLine) Then S := S + ', ';       End;     edLog.Lines.Add(S);   end;     function CheckEnd(ADataLine : Array Of Integer) : Boolean;   var     C : Integer;   begin     Result := True;     For C := Low(ADataLine) To High(ADataLine) Do       Begin         Result := ADataLine[C] >= N;         If Not Result Then Break;       End;   end;   var   I, J, K, F : Integer;   DataLine : Array Of Integer; begin   edLog.Lines.Clear;   For I := 1 To M Do     Begin       // Init array       SetLength(DataLine,I);       For F := Low(DataLine) To High(DataLine) Do DataLine[F] := 1;         While Not CheckEnd(DataLine) Do         Begin           LogLine(DataLine);             DataLine[High(DataLine)] := DataLine[High(DataLine)] + 1;           For F := High(DataLine) DownTo Low(DataLine) + 1 Do             If DataLine[F] > N Then               Begin                 DataLine[F] := 1;                 DataLine[F-1] := DataLine[F-1] + 1;               End;         End;       LogLine(DataLine);     End; end;