[MagestiK]

Люди я уже недавно спрашивал-как перебрать все значения? Но у меня дополнение к моему вопросу : как например из строки QWE получить все возможные варианты QWE QEW WQE WEQ EQW EWQ Q W E QW WE EW WQ и т.д. ? Подскажите ПЛЗ очень нужно.

[L2P]

А как выписать набор вручную? Можно построить дерево вариантов, использующее связь типа Q -> QE -> QEW. Сначала выбираем элемент и наращиваем на него не использовавшийся символ, т.е. который не присутствует как в обрастающем элементе, так и на данном этапе обрастания. Т.е, берем Q, выбираем W (Q не подходит по условию). Идем дальше. Снова берем Q, W противоречит условию, остается E.

Нечто подобное:

Код:

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

var   i, j, k, l, VarLength, CurVar: integer;   Str, Sym: string;   Used, Current: string;   Output: array of string;   Again: boolean; begin   Str := Edit1.Text;   Current := '';  // комбинация из дерева, обрастающая буквами   CurVar := 0;   //номер элемента массива всех комбинаций, соответсвующий Current   VarLength := 0;  //длина Current   SetLength(Output, 1);   l := 1;     while (Length(Str) - VarLength) > 0 do   begin     Used := Current; //символы, которые есть в обрастающей, использовать нельзя     for i := 1 to (Length(Str) - VarLength) do     begin       k := 1;         repeat  //выбираем не использовавшийся символ         Again := false;         j := 1;         Sym := Str[k];           while (j <= Length(Used)) and (Again = false) do  //проверка         begin           if  Sym = Used[j] then Again := true;           j := j + 1;         end;           k := k + 1;       until (Again = false) or (k > Length(Str));           Output[Length(Output)-1] := Current + Sym;       Used := Used + Sym;  //пополняем строку использованных символов       ShowMessage(Output[Length(Output)-1]);       SetLength(Output, Length(Output) + 1);       end;       Current := Output[CurVar]; // если комбинация обрасла по-всякому, ставим новую     CurVar := CurVar + 1;     VarLength := Length(Current);     l := l + 1;   end;   end;

[MagestiK]

Пасиба будем пробовать.

[MagestiK]

Неа не получаеца: Дано:123. так он может 1 2 3 12 13 и т.д. а так нет 1 2 3 11 22 33 12 13 33 и т.д. подскажите как можно и это реализовать ?

[L2P]

Замени used массивом уже найденных вариантов.