|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.09.2008, 14:47 | #1 |
Пользователь
Регистрация: 25.05.2007
Сообщений: 69
|
Найти комбинации
Найти количество разных комбинаций из 12 чисел, группируя их по 6 чисел, так чтобы ни числа ни комбинации не повторялись.
Н-р: 1,2,3,4,5,6 1,2,3,4,5,7 1,2,3,4,5,8 ... 8,9,10,11,12 1,2,3,4,5,6 и 2,3,6,1,5,4- считаются одинаковой комбинацией! 1,2,3,1,2,5- некорректная комбинация, т.к. есть повторы! Количество разных вариантов вывести в Edit, а сами комбинации в stringgrid. Помогите пожалуйста! |
29.09.2008, 18:56 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Самый простой и, наверное самый неоптимальный способ решить в лоб с помощью 6 циклов.
Вот код на Паскале, собственно алгоритм, может пригодится. Число сочетаний (а это так называется) проверяется формулой 12!/(6!*6!)=924 Код:
|
29.09.2008, 19:11 | #3 |
Пользователь
Регистрация: 25.05.2007
Сообщений: 69
|
Спасибо, но мне в Delphi нужно((((
|
29.09.2008, 19:44 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вот код в Делфи, хотя я думал что переделать по готовому алгоритму не проблема. Красоту на форме сами наведете.
Кстати вот здесь красивое решение этой задачи на все случаи жизни. http://programmersforum.ru/showpost....14&postcount=1 Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Где найти | s.mag | БД в Delphi | 8 | 30.06.2008 13:34 |
Имитация нажатия комбинации клавиш | Zeraim | Win Api | 15 | 05.05.2008 20:35 |
Alt+F4 как отключить работу этой комбинации??? | PROGR | Общие вопросы Delphi | 46 | 17.07.2007 14:18 |
Не могу найти | KlErik | Общие вопросы Delphi | 4 | 11.01.2007 11:40 |