Перебрать комбинации цифр

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
AlexP_100
Сообщения: 3
Зарегистрирован: 17 фев 2014, 17:37

Помогите, пожалуйста, перебрать все комбинации цифр от 1 до 4
Например дано 1 2 3 4 , в результате получим:
1111
1112
1113
1114
2222
2221
......

Но не должно быть комбинаций состоящих из одинакового набора цифр. Например: Если есть 1112 то 2111 уже не должно быть.
П.С. Понимаю, что комбинаторика и перебор, но уже ни сил нет, ни голова не соображает - всю ночь сижу.
Заранее благодарен
Avsha
Сообщения: 665
Зарегистрирован: 08 сен 2005, 13:47
Откуда: KZ

===========================
1 2 3 4
===========================
1 1 1 1
1 1 1 2
1 1 1 3
1 1 1 4
------------------------
1 1 2 2
1 1 2 3
1 1 2 4
1 1 3 3
1 1 3 4
1 1 4 4
------------------------
1 2 2 2
1 2 2 3
1 2 2 4
1 2 3 3
1 2 3 4
1 2 4 4
1 3 3 3
1 3 3 4
1 3 4 4
1 4 4 4
------------------------
2 2 2 2
2 2 2 3
2 2 2 4
2 2 3 3
2 2 3 4
2 2 4 4
...
AlexP_100
Сообщения: 3
Зарегистрирован: 17 фев 2014, 17:37

Ребята, всем большое спасибо за помощь!
Чуть позже выложу код, который предложили на других форумах, может кому то будет полезным.
Еще раз спасибо!
Ответить