PROGRAM Zar
!----------------------------------------------------
! 22prg06.f95: Zar Simulasyonu
!
!   Atılan bir çift zarın toplamının 7 (yedi) olma 
!   olasılığını hesaplar.
!
!   Olasılık kuramına göre, birçift zarın toplamının 
!   7 olma olasılığı aşağıdaki formülden hesaplanabilir:
!     Ptoplam(7) = P(1,6) + P(2,5) + P(3,4) + 
!                  P(4,3) + P(5,2) + P(6,1)
!
!   Diğer taraftan:
!     P(1,6)=P(2,5)=P(3,4)=P(4,3)=P(5,2)=P(6,1)=1/36'dır.
!
!   Buna göre:
!     Ptoplam(7) = 6*(1/36) = 1/6 = 0.16666.. dır.
!----------------------------------------------------
IMPLICIT NONE
INTEGER :: I, J, Yedi, Zar1, Zar2, N
REAL :: R1, R2, P

  CALL RANDOM_SEED()


  DO J = 1, 8

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

    ! Deneyleri başlat
    DO I = 1, N
      CALL RANDOM_NUMBER(R1)
      CALL RANDOM_NUMBER(R2)
      Zar1 = 1 + INT(6*R1)
      Zar2 = 1 + INT(6*R2)
      IF(Zar1+Zar2 == 7) Yedi = Yedi + 1
    END DO

    P = REAL(Yedi)/N

    PRINT '(I9," | ",I9, F10.7)', N, Yedi, P

  END DO

END PROGRAM