PROGRAM Yazı_Tura
!----------------------------------------------------
! 22prg05.f95
! Yazı-Tura Simulasyonu
!----------------------------------------------------
IMPLICIT NONE
INTEGER :: I, J, Tura, Yazi, N
REAL :: R, P

  CALL RANDOM_SEED()


  DO J = 1, 8

    ! Deney sayısı 10 un katları
    N = 10**J
    Tura = 0 

    ! Deneyleri başlat
    DO I = 1, N
      CALL RANDOM_NUMBER(R)
      IF(R<0.5) Tura = Tura + 1
    END DO

    P = REAL(Tura)/N
    Yazi = N - Tura

    PRINT '(3I9," | ",2F10.7)', N, Tura, Yazi, P, 1.0-P

  END DO

END PROGRAM Yazı