Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перебрать комбинации цифр / 4 сообщений из 4, страница 1 из 1
15.09.2014, 07:32
    #38746490
Alex_100
Alex_100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебрать комбинации цифр
Помогите, пожалуйста, перебрать все комбинации цифр от 1 до 4
Например дано 1 2 3 4 , в результате получим:
1111
1112
1113
1114
2222
2221
......

Но не должно быть комбинаций состоящих из одинакового набора цифр. Например: Если есть 1112 то 2111 уже не должно быть.
П.С. Понимаю, что комбинаторика и перебор, но уже ни сил нет, ни голова не соображает - всю ночь сижу.
Заранее благодарен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2014, 09:12
    #38746515
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебрать комбинации цифр
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
for i1=1 to 4
  for i2=i1 to 4
    for i3=i2 to 4
      for i4=i3 to 4
        val = i1*1000+i2*100+i3*10+i4
      next i4
    next i3
  next i2
next i1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2014, 13:51
    #38746784
Alex_100
Alex_100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебрать комбинации цифр
Ребята, всем большое спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2014, 13:52
    #38746787
Alex_100
Alex_100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебрать комбинации цифр
Ребята, всем большое спасибо за помощь!
Чуть позже выложу код, который предложили на других форумах, может кому то будет полезным.
Еще раз спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перебрать комбинации цифр / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]