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

[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