[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.


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

Код:

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;