Практическое освоение метода моделирования на ЭВМ дискретных случайных величин и событий

Цель работы.

Практическое освоение метода моделирования на ЭВМ дискретных случайных величин и событий.

Задание на работу.

Имитировать бросание игральной кости. Результаты первых 100 бросаний вывести строкой на печать.

Составить алгоритм и программу расчёта частоты события, состоящего в том, что сумма очков при двух последовательных бросаниях равна заданному К =3. Число бросаний равно 1000.

Сравнить рассчитанную частоту с теоретической вероятностью.

Ход работы

Алгоритм расчёта появления событий представлен на рисунке 1.

Теоретическая ожидаемая вероятность появления события:

[pic 1]

Листинг файла Sourse.cpp

#include 

#include 

#include 

#include 

using namespace std;

int const FullOfNumbers = 1000;

int const CurrentNumbers = 100;

int const k = 3;

float const a = 3.5;

int rez =0;

int Factorial(int a)

{

        int sum = 1;

        for (int i = 2; i <= a; ++i)

        {

                sum *= i;

        }

        return sum;

}

int Frequency(int mas[], int k)

{

        int count = 0;

        for (int i = 0; i < FullOfNumbers - 1; ++i)

        {

                if (mas[i] + mas[i + 1] == k)

                        ++count;

        }

        return count;

}

float Puasson(float a, int k = 0)

{

        float e = exp(-a);

        float s = 1.0;

        while (1)

        {

                s *= 0.01 * (rand() % 101);

                if (s - e >= 0)

                        ++k;

                else

                        break;

        }

        return k;

}

int main()

{

        srand(time(0));

        int x[FullOfNumbers];

        int sum = 0;

        for (int i = 0; i < FullOfNumbers; ++i)