ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перебрать комбинации цифр
4 сообщений из 4, страница 1 из 1
Перебрать комбинации цифр
    #38746490
Alex_100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex_100
Гость
Помогите, пожалуйста, перебрать все комбинации цифр от 1 до 4
Например дано 1 2 3 4 , в результате получим:
1111
1112
1113
1114
2222
2221
......

Но не должно быть комбинаций состоящих из одинакового набора цифр. Например: Если есть 1112 то 2111 уже не должно быть.
П.С. Понимаю, что комбинаторика и перебор, но уже ни сил нет, ни голова не соображает - всю ночь сижу.
Заранее благодарен
...
Рейтинг: 0 / 0
15.09.2014, 07:32
| Ответить | Цитировать | Написать  
Перебрать комбинации цифр
    #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, 09:12
| Ответить | Цитировать | Написать  
Перебрать комбинации цифр
    #38746784
Alex_100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex_100
Гость
Ребята, всем большое спасибо!
...
Рейтинг: 0 / 0
15.09.2014, 13:51
| Ответить | Цитировать | Написать  
Перебрать комбинации цифр
    #38746787
Alex_100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex_100
Гость
Ребята, всем большое спасибо за помощь!
Чуть позже выложу код, который предложили на других форумах, может кому то будет полезным.
Еще раз спасибо!
...
Рейтинг: 0 / 0
15.09.2014, 13:52
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перебрать комбинации цифр
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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