Suche Algo. für 123-->132-->213-->...

[Christian18]

Hallo,

ich soll in Delphi ein Programm schreiben, womit ich folgendes machen kann!

123
132
213
231
312
321

Ich weiß jetzt nicht, ob das wirklich alle varianten sind. Die Anzahl soll variabel sein. aber max 12

mit 12 würde es so aussehen

1 2 3 4 5 6 7 8 9 10 11 12
1 2 3 4 5 6 7 8 9 10 12 11
...

Wie kann ich das in ein Delphi Programm verfassen???

MFG Christian18

[DGL-luke]

Du suchst nach [dp]Permutation*[/dp]en.

[mkinzler]

Du mußt die zahl in die Ziffern erlegen (DIV/MOD) und dann systematisch neu zusammensetzen.

[omata]

Hallo Christian18,

hier mal ein Beispiel für eine Textbildschirmanwendung...

Delphi-Quellcode:

procedure permute(fest, variable:string);
var i:byte;
begin
  if length(variable) = 0 then
    writeln(fest)
  else begin
    for i:=1 to length(variable) do begin
      permute(
        fest + copy(variable, i, 1),
        copy(variable, 1, i-1) + copy(variable, i+1, length(variable))
      );
    end;
  end;
end;

Aufruf...
permute('', '123'); Gruss
Thorsten