Все возможны перестановки букв в слове, без повторений Опции

[Bokul]

Входные данные: строка любой длинны.
Выходные: вывести на екран все возможные комбинации букв входной строки.
Пример:
строка - абв
Результат - абв, авб, бав, бва, ваб, вба

Не получается никак сделать общий вариант - для неизвестной длинны входной строки. Вот пример для пятисимвольной.

uses crt;
var i,j,k,n,m:byte;
    word,buf,s:string;
    num:integer;
begin
clrscr;
writeln('Enter word');
readln(word);
writeln('Result:');
num:=0;
for i:=1 to 5 do
    for j:=1 to 5 do
        if j<>i then
           for k:=1 to 5 do
               if (k<>i) and (k<>j) then
                   for n:=1 to 5 do
                       if (n<>i) and (n<>j) and (n<>k) then
                          for m:=1 to 5 do
                              if (m<>i) and (m<>j) and (m<>k) and (m<>n) then
                                 begin
                                      buf:=word[i]+word[j]+word[k]+word[n]+word[m];
                                      writeln(buf);
                                      inc(num);
                                 end;
writeln('Finish');
writeln('Number of combination is ',num);
readln;
end.

Сообщение отредактировано: Bokul - 20.11.2006 2:01

[volvo]

Вывод всех возможных перестановок строки Abc

чем-то не устраивает?

[Bokul]

Все классно, забыл сначала в поиск заглянуть. А можно это переделать в нерекурсивный вариант?

[volvo]

нерекурсивный вариант?

По мотивам: Задача О ПОДСТАНОВКАХ
(изменения минимальные)

Program perms;
var
  s: string;
  a: array[0..100] of integer;
  n: integer;

procedure output;
var i:integer;
begin
  writeln;
  for i:=1 to n do write(s[a[i]]);
end;

var
  i,j,h,k:integer;

begin
  readln(s); { s := 'abc'; }
  n := length(s);
  fillchar(a,sizeof(a),0);

  for i:=1 to n do a[i]:=i;

  repeat
    output;
    i := n;
    while a[i-1]>a[i] do dec(i);
    j:=i-1;
    h:=a[j];
    while a[i+1]>h do inc(i);
    a[j]:=a[i];  a[i]:=h;
    i:=j+1; k:=n;
    while i<k do begin
       h:=a[i]; a[i]:=a[k]; a[k]:=h;
       inc(i); dec(k)
    end
  until j=0;
end.

[Bokul]

Спасибо, но никак не могу понять алгоритм . Если это тебя не затруднит опиши его.

[volvo]

А FAQ на что? Там же есть объяснение именно НЕрекурсивного метода генерации всех перестановок: Комбинаторика

[Bokul]

Опа, извиняюсь - никогда не читал эту тему , побежал исправляться....