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

  ! Deney sayısı
  PRINT *,"Deney sayısını girin:"
  READ *,N

  CALL RANDOM_SEED()

  ! 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 *,"Tura sayisi:", Tura
  PRINT *,"Yazi sayisi:", Yazi
  PRINT *,"Olasılıklar:", P, 1.0-P

END PROGRAM Yazı