Задача смоделировать все возможные выигрыши/проигрыши серии игр по заданной вероятности (в Excel)

[Олег89]

Как написать программу для следующей задачи в Excel:
Игра - покер. У меня есть Х фишек. Каждый раз, входя в игру, я буду ставить 0.33*Х фишек и каждый раз шансы выиграть равны 0.7, проиграть 0.3. При первом выигрыше у меня будет Х + 0.33*Х фишек, при втором (Х + 0.33*Х) + (Х + 0.33*Х)*0.33 и т. д. При проигрыше аналогично. Как написать программу для моделирования возможных результатов после 15 входов в игру?


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[doober]

Самый простой вариант таков.

Private Sub CommandButton1_Click()
    Dim dd As Double
    Dim Percent As Integer
    dd = 100
    For n = 1 To 15
        Percent = Rnd * 100
        If Percent <= 30 Then
            Cells(n, 1) = False
            dd = dd - (dd / 3) \ 1
        Else
            Cells(n, 1) = True
            dd = dd + (dd / 3) \ 1
        End If
        Cells(n, 2) = dd
    Next
End Sub

15 бросков-это очень мало для статистики