Code:
function permutation(eingabe:string):string;
var ergebnis:string;
begin
while x<>length(eingabe) -2 do
begin
x:=x+1;
ergebnis := copy(eingabe,1,1) + permutation(copy(eingabe,2,length(eingabe)-2)) + copy(eingabe,length(eingabe)-1,1);
form1.Memo1.Lines.Add(ergebnis);
end;
end;
irgendwie funktioniert das nicht...das programm bricht nach ner zeit ab(overflow) und gibt nur ad aus(bei eingabe abcde).
hat jemand schon einmal jemand einen ähnlichen algorithmus geschrieben? Beispiele wären hilfreich.
