алгоритм

[KiLLBiLL]

Нужен сабж перебора символов
тоесть по 5 символов из 30.
В одной комбинации символы не могут повторятся.

Вот что то у меня с этим плохо помогите..
Заранее благодарен

[tyomitch]

Пять вложенных циклов от 1 до 30, вот и весь алгоритм.

[KiLLBiLL]

Пять вложенных циклов от 1 до 30, вот и весь алгоритм.

cседня 5ть завтро 10ть...
это не вариант =(

[tyomitch]

Продвинутые идут на http://algolist.manual.ru/maths/combina ... tities.php

[KiLLBiLL]

Продвинутые идут на http://algolist.manual.ru/maths/combina ... tities.php

не сильно умно =)

[tyomitch]

Ты хотел алгоритм? там алгоритм.

[KiLLBiLL]

Ты хотел алгоритм? там алгоритм.

=(

через цыклы получается повторение чисел..., а если делаешь проверку по предыдущему числу, то не все комбинаци.. получаются..

[tyomitch]

Значит, по ссылке не сходил.

[KiLLBiLL]

Значит, по ссылке не сходил.

сходил но не понял...
а с циклами моя машинка, зависат... =(

[tyomitch]

Чини руки.

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

Option Explicit
DefInt A-Z

Sub Main()
Dim i1, i2, i3, i4, i5
For i1 = 1 To 30
    For i2 = 1 To 30
        If i2 <> i1 Then
            For i3 = 1 To 30
                If i3 <> i2 And i3 <> i1 Then
                    For i4 = 1 To 30
                        If i4 <> i3 And i4 <> i2 And i4 <> i1 Then
                            For i5 = 1 To 30
                                If i5 <> i4 And i5 <> i3 And i5 <> i2 And i5 <> i1 Then
                                    Debug.Print i1, i2, i3, i4, i5
                                End If
                            Next i5
                        End If
                    Next i4
                End If
            Next i3
        End If
    Next i2
Next i1
End Sub


[KiLLBiLL]

Чини руки.

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

Option Explicit
DefInt A-Z

Sub Main()
Dim i1, i2, i3, i4, i5
For i1 = 1 To 30
    For i2 = 1 To 30
        If i2 <> i1 Then
            For i3 = 1 To 30
                If i3 <> i2 And i3 <> i1 Then
                    For i4 = 1 To 30
                        If i4 <> i3 And i4 <> i2 And i4 <> i1 Then
                            For i5 = 1 To 30
                                If i5 <> i4 And i5 <> i3 And i5 <> i2 And i5 <> i1 Then
                                    Debug.Print i1, i2, i3, i4, i5
                                End If
                            Next i5
                        End If
                    Next i4
                End If
            Next i3
        End If
    Next i2
Next i1
End Sub


Спосиб понял ошибку, пошел чинить руки

[Efiop]

KiLLBiLL, держи.

[tyomitch]

Efiop, у тебя ведь там просто перестановки, а не выбор из множества: так?

[Efiop]

tyomitch так ведь он и написал

В одной комбинации символы не могут повторятся.

Че, трудно переделать на перебор из 30 символов, по пять. Или любое другое кол-во?