Совпадения и Случайности

!Запуск расчетов вероятностей
FREE(ExperimentsList)                   ! Обнулим список предыдущих результатов
CLEAR(GLO:TotalDoneExperiments)         ! Обнулим число проведенных экспериментов
CLEAR(GLO:TotalSeries)                  ! Обнулим число проверенных серий
CLEAR(GLO:TotalAverse)                  ! Обнулим число выпавших решек
CLEAR(GLO:TotalAversePercent)           ! Обнулим процент выпавших решек
CLEAR(GLO:TotalReverse)                 ! Обнулим число выпавших орлов
CLEAR(GLO:TotalReversePercent)          ! Обнулим процент выпавших орлов
DISPLAY                                 ! Покажем новые значения переменных в окне

LOOP GLO:TotalDoneExperiments = 1 TO GLO:TotalExperiments      ! Проводим заданное число экспериментов
  SeriesInExperiment# = RANDOM(GLO:MinSeriesPerExperiment,GLO:MaxSeriesPerExperiment)
         ! Определим число проверяемых серий в эксперименте между минимальным и максимальным
  CLEAR(EXP:ExpSeries)                                  ! Обнулим счетчик проверенных серий в эксперименте
  LOOP UNTIL EXP:ExpSeries = SeriesInExperiment#        ! Проверяем определенное число серий в эксперименте
    Test1# = RANDOM(1,1000000)          ! Бросаем 1-й раз; случайное число от 1 до миллиона: чет - орел, нечет - решка
    Test2# = RANDOM(1,1000000)          ! Бросаем 2-й раз; случайное число от 1 до миллиона: чет - орел, нечет - решка
    Test3# = RANDOM(1,1000000)          ! Бросаем 3-й раз; случайное число от 1 до миллиона: чет - орел, нечет - решка
    Test4# = RANDOM(1,1000000)          ! Бросаем 4-й раз; случайное число от 1 до миллиона: чет - орел, нечет - решка
    IF (Test1# / 2 = INT(Test1# / 2)) AND (Test2# / 2 = INT(Test2# / 2)) AND (Test3# / 2 = INT(Test3# / 2))
                                        ! Если первые 3 броска в серии были орлы
      IF Test4# / 2 = INT(Test4# / 2)   ! Проверяем четность 4-го броска, если четное (т.е. орел)
        EXP:ExpReverse += 1             ! то увеличиваем счетчик орлов в этом эксперименте
        GLO:TotalReverse += 1           ! и во всех экспериментах в целом
      ELSE                              ! Иначе, если нечетное (т.е. решка)
        EXP:ExpAverse += 1              ! то увеличиваем счетчик решек в этом эксперименте
        GLO:TotalAverse += 1            ! и во всех экспериментах в целом
      .
      EXP:ExpSeries +=1                 ! Увеличим счетчик проверенных серий в эксперименте
  . .                                   ! Закончилось число проверяемых серий
  ExpResults# = EXP:ExpAverse + EXP:ExpReverse                  ! Общее число результатов
  EXP:ExpReversePercent = (EXP:ExpReverse / ExpResults#) * 100  ! Процент орлов
  EXP:ExpAversePercent = (EXP:ExpAverse / ExpResults#) * 100    ! Процент решек
  EXP:Number = GLO:TotalDoneExperiments                         ! № проведенного эксперимента
  ADD(ExperimentsList)                  ! Добавим в список запись об эксперименте
  GLO:TotalSeries += EXP:ExpSeries      ! Увеличим счетчик всего проверенных серий
  GLO:TotalReverse += EXP:ExpReverse    ! Увеличим счетчик выпавших орлов всего
  GLO:TotalAverse += EXP:ExpAverse      ! Увеличим счетчик выпавших решек всего
  TotalResults# = GLO:TotalAverse + GLO:TotalReverse                    ! Общее число проверенных результатов
  GLO:TotalReversePercent = (GLO:TotalReverse / TotalResults#) * 100    ! Процент орлов всего
  GLO:TotalAversePercent = (GLO:TotalAverse / TotalResults#) * 100      ! Процент решек всего
  DISPLAY                               ! Покажем новые значения переменных в окне
  CLEAR(ExperimentsList)                ! Обнулим переменные эксперимента
.                                       ! И пойдём на новый цикл (эксперимент), пока их число не кончилось
GLO:TotalDoneExperiments -= 1
DISPLAY