PROGRAM Kuadratik
!-----------------------------------------------------------
! 05prg04.f95
! ax**2 + bx + c = 0 denkleminin gerçel köklerinin bulunması
!-----------------------------------------------------------
IMPLICIT NONE
REAL :: a, b, c, Delta, x1, x2

    PRINT *, "a, b, c degerlerini girin:"
    READ *, A,B,C

    Delta = B**2 - 4.0*A*C

    IF( Delta > 0.0 ) THEN

       x1 = ( -B + SQRT(Delta) )/( 2.0*A )
       x2 = ( -B - SQRT(Delta) )/( 2.0*A )
       WRITE (*,*) "Gerçel kökler: ", x1, x2

    ELSE IF( Delta == 0.0 ) THEN

       x1 = -B /( 2.0*A )
       x2 = -B /( 2.0*A )
       WRITE (*,*) "Kökler eşit: ", x1, x2

    ELSE

       WRITE (*,*) "Kökler gerçel değil! "

    END IF

END PROGRAM