PROGRAM Kuadratik
!-----------------------------------------------------------
! 20prg03.f95
! ax**2 + bx + c = 0 denkleminin gerçel ve karmaşık 
! (complex) köklerinin bulunması. Karmaşık köklerin
! bulunmasında CMPLX() fonksiyonu kullanılmıştır.
!-----------------------------------------------------------
IMPLICIT NONE
REAL :: a, b, c
COMPLEX :: Kok_Delta, x1, x2

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

    Kok_Delta = SQRT( CMPLX(B**2 - 4.0*A*C) )

    x1 = ( -B + Kok_Delta )/( 2.0*A )
    x2 = ( -B - Kok_Delta )/( 2.0*A )

    WRITE (*,*) "Kökler: ", x1, x2

END PROGRAM