Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Алгоритм] Теория вероятности ( комбинаторика )

Автор: Fire44 8.12.2010, 22:59

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

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

Автор: Fire44 8.12.2010, 23:22

Если пользователь вводит: 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

Код


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

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