VPF::[Алгоритм] Теория вероятности ( комбинаторика )

Fire44

Дата 8.12.2010, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 124
Регистрация: 17.9.2010

Репутация: нет
Всего: -1

Где используется алгоритм генерирования всех r-соединений с повторениями с n-элементов множества {1,2 ,..., n}, который базируется на лексикографическом подходе ?
Буду благодарен за исходники для решение этой задачи, на любом языке программирования( Желательно на С# ).

Буду благодарен за любое слово которое мне поможет все это реализовать.

Это сообщение отредактировал(а) Fire44 - 8.12.2010, 23:05

Fire44

Дата 8.12.2010, 23:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 124
Регистрация: 17.9.2010

Репутация: нет
Всего: -1

Если пользователь вводит: 2
То нужно вывести
1 1
1 2
2 1
2 2
Если пользователь вводит: 3
То нужно вывести
1 1 1
1 1 2
1 2 1
1 2 2
1 2 3
1 3 1
1 3 2
1 3 3
2 1 1
2 1 2
2 1 3
2 2 1
....

Akina

Дата 9.12.2010, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Код


Dim arr() As Integer
Dim n As Integer

Sub gen(lvl As Integer)
Dim i As Integer
If lvl > n Then
  For i = 1 To n
    Debug.Print arr(i);
  Next
  Debug.Print
Else
  For i = 1 To n
    arr(lvl) = i
    Call gen(lvl + 1)
  Next
End If
End Sub

Sub main()
n = InputBox("N=")
ReDim arr(n)
Call gen(1)
End Sub

Переводи. Мне лень.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »