[Respawn]

Люди добрые помогите!
Есть набор слов A,B,C,D,E надо перебрать все возможные комбинации, но не меняя местами, т.е. в начале будет A ... B ... C ... D ... E ... AB ... AC ... AD ...AE ... ABC и так до ABCDE, подскажите как организовать вложенные циклы.

[march]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var   F : TextFile;   A, B, C, D, E : Integer; begin   AssignFile(F, 'dict.txt');   Rewrite(F);   for E := Ord('a') to Ord('z') do     for D := Ord('a') to Ord('z') do       for C := Ord('a') to Ord('z') do         for B := Ord('a') to Ord('z') do           for A := Ord('a') to Ord('z') do             WriteLn(F, Char(E)+Char(D)+Char(C)+Char(B)+Char(A));     CloseFile(F); end;

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

[Respawn]

march, не совсем так .... A,B,C,D,E - это слова - пусть будут - Юля, Таня, Табуретка, Космос, Труд ... надо перечислить все комбинации, но не переставляя местами, т.е. комбинации Таня, Юля - не может быть ..... первая комбинация - это Юля, потом Таня и т.д. пока не дойдем до полного набора A,B,C,D,E ...

брутфорсер =)

[Respawn]

Программер_ХХХороший
Практически да, но очень специфический - так как слова не меняют своих позиций, они либо могут участвовать в общей комбинации, либо отсутствовать и их именно 5 (входных), хотя если есть реализации с 3-4- ... -6 и т.д. не беда, переделаю )

[Asinkrit]

Понравилась мне эта задачка, решил ее, но давольно таки нестандартным решением, так как стандартное решение показалось очень скучным)

[Respawn]

Asinkrit,
Отлично, то что надо, но при переборе не задействованы все варинты, а именно нету вариантов BC, BD, BCDE ... CD, CDE .... DE, ведь элемент А - тоже может не учавствовать в исходной комбинации на ровне с другими.

[pesi]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

const   bk = 'ABCDE'; var   I1, I2: Integer; begin   Memo1.Text:= bk;   for I1:=1 to 5 do     Memo1.Lines.Add(bk[I1]);   for I1:= 1 to 5 do   for I2:= 2 to 5 do     if (I1<>I2) and (I1<I2) then       Memo1.Lines.Add(bk[I1]+bk[I2]); end;

[Respawn]

pesi. после обработки "напильником", получилось:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

const   bk = 'ABCDE'; var   I1, I2, I3, I4: Integer; begin   Memo1.Text:= bk;   for I1:=1 to 5 do     Memo1.Lines.Add(bk[I1]);   for I1:= 1 to 5 do   for I2:= 2 to 5 do     begin       if (I1<>I2) and (I1<I2) then         Memo1.Lines.Add(bk[I1]+bk[I2]);         for I3:= 3 to 5 do           begin           if (I1<>I2) and (I2<>I3) and (I1<I2) and (I2<I3) then           Memo1.Lines.Add(bk[I1]+bk[I2]+bk[I3]);             for I4 := 4 to 5 do               if (I1<>I2) and (I2<>I3) and (I3<>I4) and (I1<I2) and (I2<I3) and (I3<I4) then               Memo1.Lines.Add(bk[I1]+bk[I2]+bk[I3]+bk[I4])           end;     end; end;

Код:

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

ABCDE A B C D E AB ABC ABCD ABCE ABD ABDE ABE AC ACD ACDE ACE AD ADE AE BC BCD BCDE BCE BD BDE BE CD CDE CE DE

Вроде все правильно, БОЛЬШОЕ Вам СПСИБО!!!!!!!!!!