комбинаторика

[orynkanov]

Здравствуйте!
Необходимо решить такую задачу:
есть 5 клеток из которых 3 могут быть закрашены. Необходимо найти все комбинации, как могут быть закрашены клетки. Помогите пожалуйста.

[Nord777]

Код: Выделить всё

    Dim A, B, C As Integer
    Dim S As String = ""

    For A = 1 To 3
      For B = A + 1 To 4
        For C = B + 1 To 5
          S = S & CStr(A) & "," & CStr(B) & "," & CStr(C) & vbCrLf
        Next
      Next
    Next
    MsgBox(S)

[orynkanov]

вывел закономерность из примера и написал код из него, ориентируясь от частного к общему. но есть одно НО - процесс будет выполняться как минимум дня 3... как сделать паузу и возобновление цикла или сохранение, выключение и возобновление работы программы после выключения? и вопрос №2 - всё это рекурсией будет работать быстрее или так же?
заранее благодарю

[keks-n]

Приведённый код за доли секунды выполняется, если же решается другая задача, то приведите условия. А рекурсией медленней будет.

[ANDLL]

Биномиальный коэффициент
Твое число это
|3|
|5|

[orynkanov]

это я для примера написал, что количество клеток -5, а закрашенных - 3. на самом деле "немножко" больше - 70 / 12 соответственно. поэтому-то процесс будет идти наверное неделю... вот я и хочу сделать сей процесс прерываемым и распределённым, благо есть компьютерные ресурсы.

[SSecurity]

orynkanov
70 и 12 ...
ну неделя это конечно круто .... если у тебя несколько машин .... разбей задачу на поддиапазоны ... считать будт СВЕРХ долго если ты сделаешь например так...

Код: Выделить всё

ST = ""
For I = 1 to 1000000
  ST = ST + "0"
Next I


в разы сократишь время, если возмешь временный буффер длиной ну например 10к.

Код: Выделить всё

ST = ""
For I = 1 to 100
  tmpST = ""
  for J = 1 to 10000
    ST = ST + "0"
  Next J
  ST = ST + tmpST
  'или тут слив в файлик
Next I

и будешь его наполнять, а по заполнению сливать в общий буффер.

П.С.: Я бы конечно сразу в файлик бы писал значения временного буффера (при этом указывая место до которого досчитал ... как "точка восстановления" если у тебя софт свалится)

[alibek]

Странная какая-то задача.
Для чего может потребоваться список всех возможных комбинаций? Разве что от нечего делать.
Обычно же требуется количество возможных комбинаций (эта формула уже давалась) и проверка, является ли проверяемая комбинация валидной.

[orynkanov]

хочу немножко заработать денежек просто. нашел в одном коммерческом проекте "дыру" и решил воспользоваться. защиту сделали грамотную, но уязвимость, как я думаю, осталась. как написано на баннере сверху - "получи её первым, побеждай в любом поединке" ... да и ради спортивного интереса хочется знать, получится ли это сделать...