Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 15.09.2014, 07:23   #1
Patlyuk
 
Аватар для Patlyuk
 
Регистрация: 08.11.2010
Адрес: Украина, г.Винница
Сообщений: 5
Репутация: 10
По умолчанию Перебрать комбинации цифр

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

Но не должно быть комбинаций состоящих из одинакового набора цифр. Например: Если есть 1112 то 2111 уже не должно быть.
П.С. Понимаю, что комбинаторика и перебор, но уже ни сил нет, ни голова не соображает - всю ночь сижу.
Заранее благодарен
__________________
Я не знаю, каким оружием будет вестись третья мировая война, но четвёртая — палками и камнями.(Альберт Эйнштейн)
Patlyuk вне форума   Ответить с цитированием
Старый 15.09.2014, 09:05   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,479
Репутация: 5308
По умолчанию

цифры всегда такие?
длина комбинации всегда 4-ре?


может быть, такой вариант устроит?
Код:

Sub Podbor()
Dim i1%, i2%, i3%, i4%, k&

k = 1
For i1 = 1 To 4
  For i2 = i1 To 4
      For i3 = i2 To 4
         For i4 = i3 To 4
           Cells(k, 1) = i1 * 1000 + i2 * 100 + i3 * 10 + i4
           k = k + 1
         Next i4
      Next i3
  Next i2
Next i1

End Sub


Последний раз редактировалось Serge_Bliznykov; 15.09.2014 в 09:12.
Serge_Bliznykov на форуме   Ответить с цитированием
Старый 15.09.2014, 13:53   #3
Patlyuk
 
Аватар для Patlyuk
 
Регистрация: 08.11.2010
Адрес: Украина, г.Винница
Сообщений: 5
Репутация: 10
По умолчанию

Ребята, всем большое спасибо за помощь!
Чуть позже выложу код, который предложили на других форумах, может кому то будет полезным.
Еще раз спасибо!
__________________
Я не знаю, каким оружием будет вестись третья мировая война, но четвёртая — палками и камнями.(Альберт Эйнштейн)
Patlyuk вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определить превышает ли сумма крайних цифр сумму средних цифр в заданном четырехзначном числе. (Delphi) shablakov Помощь студентам 4 24.06.2013 13:21
Перебрать список в цикле bulat786 JavaScript, Ajax 5 29.05.2012 13:45
перебрать все CheckBox Aleksandr Microsoft Office Excel 21 03.03.2011 18:01
Перебрать циклом формы R Dmitry Microsoft Office Access 3 11.11.2010 20:54
Как перебрать все числа из заданных цифр, чтобы цифры в числах не повторялись? TwiX Общие вопросы Delphi 7 17.08.2009 16:56


00:30.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru