[MagestiK]

Человеки, плиз подскажите пример как из данных букв перебрать все значения?
Например дано: QWA(количество букв не известно)
Значения: QWA
WQA
AQW
QAW
WAQ и т.д
ОЧень нужно, чесно.
Ответ нужен как можно скорее.
Заранее пасибо !

[Rosenkrantz]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94

program Reshuffle;   {$APPTYPE CONSOLE}   uses   SysUtils;   var   StrLen  : Integer;   //------------------------------------------------------------------------------ // Обменять местами символы в строке //------------------------------------------------------------------------------ procedure Swap(var S: String; l, k: Integer); var   C: Char; begin   C    := S[l];   S[l] := S[k];   S[k] := C; end;   //------------------------------------------------------------------------------ // Сортировка строки //------------------------------------------------------------------------------ function  SortString(const S: String): String; var   i, j   : Integer;   NoSwap : Boolean; begin   Result := S;   for i := 1 to StrLen - 1 do begin     NoSwap := True;     for j := StrLen downto i do       if Result[j] <=Result[i] then begin         Swap(Result, i, j);         NoSwap := False;       end;     if NoSwap then Exit;   end; end;   //------------------------------------------------------------------------------ // Получить следующую комбинацию символов //------------------------------------------------------------------------------ function GetNext(var S: String): Boolean; var   i, j: Integer; begin   i := pred(StrLen);     while (i > 0) and (S[i] > S[i + 1]) do     dec(i);     if i > 0 then begin     j := i + 1;      {поиск j}     while (j < StrLen) and (S[j + 1] > S[i]) do       inc(j);       Swap(S, i, j);       for j := i + 1 to (StrLen + i) div 2 do       Swap(S, j, StrLen - j + i + 1);       Result := True   end else     Result := False; end;   var   Str     : String;   Stop    : Boolean;   iCount  : Integer; begin   Write('String: ');   Readln(Str);     StrLen := Length(Str);   Str    := SortString(Str);     iCount := 0;  // Это просто счетчик комбинаций для красоты     repeat     iCount := iCount + 1;       Writeln(iCount:10, '. ', Str);     Stop := GetNext(Str);   until not Stop;     Writeln;   Writeln('Press Enter...');   Readln; end.

Алгоритм перестановок взял отсюда и переделал для строки. Работает только на упорядоченных последовательностях, поэтому строка предварительно сортируется. Сортировка пузырьковая, самая простая.

UPD: Если в строке будут повторяющиеся символы, то его клинит. Но по условию задачи их быть не должно.