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

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перебрать комбинации цифр

4 сообщений из 4, страница 1 из 1

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

#38746490

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

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Код: 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

Гость

Ребята, всем большое спасибо!

...

Рейтинг:

0 / 0

15.09.2014, 13:51

| Ответить | Цитировать | Написать

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

#38746787

Alex_100

Гость

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

...

Рейтинг:

0 / 0

15.09.2014, 13:52

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перебрать комбинации цифр

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=55&tid=2173849]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	5ms
check topic access:	5ms
track hit:	34ms
get topic data:	11ms
get forum data:	2ms
get page messages:	45ms
get tp. blocked users:	2ms
others:	273ms

total:	402ms