Возможные комбинации из чисел

[Дмитрий Семенов]

Здравствуйте, помогите составить возможные комбинации из 31.22.25.30.5.11.26.7.19 по 5 чисел в каждой.

[digitalis]

Составить - или написать макрос, который это делает? Их будет 126. Можно вручную - займёт минут 10.

[Дмитрий Семенов]

да, будет 126, который будет это делать, с возможностью менять числа и количество чисел в комбинациях

[сфинкс]

'5iz9.bas
n = 9: Dim g(n): s = 0
For i = 1 To n: Read g(i): Next
Data 31,22,25,30,5,11,26,7,19
For a = 1 To n - 4
    For b = a + 1 To n - 3
        For c = b + 1 To n - 2
            For d = c + 1 To n - 1
                For e = d + 1 To n
                    Print g(a); g(b); g(c); g(d); g(e)
                    s = s + 1
Next: Next: Next: Next: Next: Print s

Из qb64 qbasic переводим сами
зато реально 126 комбинаций
и ещё может в файл записывать
и небось более 9 лотерейных номеров включит
и охват 1\4 номеров вовсе не 1\4 комбинаций

[Elixi]

Сообщение от Дмитрий Семенов

да, будет 126, который будет это делать, с возможностью менять числа и количество чисел в комбинациях

Если поменять количество чисел то 126 будет ещё при четырёх числах из девяти.
В остальных случаях будет совсем другое количество комбинаций.
Ну и кто же сделает то что у вас в мыслях? Колдун экстрасенс?
Пeречитайте вашу задачу повнимательнее. Вам кажется - всё всем понятно?

[digitalis]

Можно задачу "укоротить", т.е. перебирать не те элементы, что выбраны, а те, что остались. Тогда будет не 5 циклов, а 4. Для случая, к примеру "6 из 9" это дало бы существенное ускорение.
Известно, что C из m по n = m! /(n! * (m-n)!) - в знаменателе симметрия.

[сфинкс]

народ знаете ли вы: в лотерее 5из36
угадать 5из5из5из36
чтобы стала вероятность около 50% ни о чём
необходимо ставить на все комбинации 32 номеров неподъёмно

[digitalis]

" Дурак рассчитывает на выигрыш, умный - на проценты" . © народная мудрость