Перебор комбинаций Delphi

[Heng]

Чет я погулял по форуму и понятных ответов не нашел, и вот спрашиваю еще раз. Если мне дано множество {1,5,7} как можно написать код чтоб получилось вот так : {{1,5,7}{1,5}{1,7}{5,7}{1}{5}{7}{пу стое множество}} ??? У меня идей нет, мб кто уже занимался таким вопросом ?

[Sciv]

Разбить на множества по одному числу в каждом и дальше комбинировать

[Heng]

А можно пример какой-нибуть ???

[Poma][a]

Давайте для простоты загоним все допустимые значения в массив, то есть :

a[1] = 3
a[2] = 5
a[3] = 7

Дальше нужно for i := n downto 1 do
Где n - кол-во чисел
i - кол-во чисел, которые должны быть в перестановке
Дальше с учетом i мы должны крутить цикл и выбирать значения массива a - как это сделать - пока не знаю..

[phomm]

Я занимался http://programmersforum.ru/showthread.php?t=138096
Поиск по форуму по слову "подмножество"
Возможно, там немного другое, чем то , что непосредственно Вам надо.

[s-andriano]

Сообщение от Heng

Чет я погулял по форуму и понятных ответов не нашел, и вот спрашиваю еще раз. Если мне дано множество {1,5,7} как можно написать код чтоб получилось вот так : {{1,5,7}{1,5}{1,7}{5,7}{1}{5}{7}{пу стое множество}} ??? У меня идей нет, мб кто уже занимался таким вопросом ?

Я не понимаю таких вопросов.
Вот руками ты как-то это разобрал.
Проанализируй, как ты это сделал, опиши словами - это будет алгоритм.
Останется только перевести его на нужный язык программирования.

[Sciv]

Вот тут есть интересный алгоритм решения этой задачи:

http://www.sources.ru/magazine/1207/5.html