[Delphi] Кто знает, как вывести на экран ВСЕ [i]перестановки[/i] (комбинации) чисел от 1 до N ?

нужна лишь сама идея перестановок в коде.

хочу сэкономить на мозге и найти готовое решение.

пример: дано 1,2,3 - на выходе 1,2,3 1,3,2 2,1,3 2,3,1 3,1,2 3,2,1

N на практике будет до 50.

Kukish: похоже, твоё решение выдаст часть всех комбинаций, но я попробую

Syslik: все комбинации.

Kukish: подошло твоё решение! код большой, буду ещё оптимизировать, но он уже работает.


program Perestanovki;

{$APPTYPE CONSOLE}

uses
  SysUtils, math;


const arr_length = 4;

var arr:array of integer;
    i,j,k: integer;


    procedure swap(var a,b : integer);
    var tmp: integer;
    begin
      tmp:= a;
      a:= b;
      b:= tmp;
    end;

    procedure ShowArr(comment:string);
    var i: integer;
    begin
       for i:= 0 to arr_length-1 do write(arr);
       write('  k = ',k);
       writeln;
    end;

    function Factorial(n: integer): integer;
    var
      i: integer;
      fact: integer;
    begin
      if (n<2) then
        Result := 1
      else begin
        fact := 1;
        for i:=2 to n do
          fact := fact*i;
        Result := fact;
      end;
    end;


begin
  SetLength(arr,arr_length);
  for i:= 0 to arr_length-1 do arr:= i+1;

  j:= 1;
  k:= 1;
  i:= arr_length-1;
  repeat
   ShowArr('  ');
   swap(arr,arr[i-1]);
   i:= i-1;
   k:= k+1;
   if i < 1 then begin
     i:= arr_length-1;
     j:=j+1;
     writeln;
   end;

  until k>Factorial(arr_length);



  readln
end.