Алгебра.

[Шнурок]

Вообщем мне надо вычислить все возможные варианты.
Есть 30 чисел (от 1 до 30)
Из них надо вывести все возможные комбинации по 5.

Например: (4, 30, 17, 8, 4)


То есть 5 чисел в диапозоне от 1 до 30
Одни и те же числа могут повторяться, но только не в одном варианте

(17, 8, 6, 10, 2)
(17, 17, 17, 8, 6)
______________________________________________
Я помню, что видел эту формулу...но к сожалению не нашел этот справочник...

P.S.
еще нужно сделать то же самое только не 5 чисел, а 4.

[Ennor]

Тебе нужны все возможные комбинации или только их количество? Это немного разные подходы будут...

[GM]

Вот и я формулу не припомню, ладно можна юзать вот такой тупой метод:

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

Private Sub Form_Load()
Dim i As Integer, j As Integer, k As Integer, l As Integer, count As Long
Dim varcount As Integer
varcount = 30
For i = 1 To varcount
For j = i + 1 To varcount
For k = j + 1 To varcount
For l = k + 1 To varcount
count = count + 1
Next
Next
Next
Next
MsgBox count
End Sub


ЗЫ :Возможно я где-то ошибся.

[Шнурок]

Тебе нужны все возможные комбинации или только их количество? Это немного разные подходы будут...

2Ennor
Мне нужно количество, хотя было бы не плохо сохранить в текстовый файл и все возможные комбинации .

[GSerg]

Все 142506 вариантов???...

[Шнурок]

2GSerg
а это по 5 или по 4 чисел в одной комбинации ?

[GSerg]

Эксель открой. И функцию ЧИСЛКОМБ зацени...

[Шнурок]

Эксель открой. И функцию ЧИСЛКОМБ зацени...

нифига как все просто

спасибо

[Tatyanka]

Вообще, если не ошибаюсь, это в комбинаторике называется сочетания с повторениями, и вычисляется по формуле:

Число сочетаний с повторениями:
f(n,m)=C(n,m+n-1) = (m+n-1)!/(n!*(m-1)!)

,
тут n =30 по условию, m = 5.
http://onlinecalculation.narod.ru/files/comb_5.htm