Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

FORTRAN:Simple question

  1. Oct 16, 2007 #1
    Ax^2+Bx+C=0



    PROGRAM delta1
    IMPLICIT NONE
    REAL :: A,B,C
    REAL :: DELTA,X1,X2
    PRINT *,"Enter the a,b,and c"
    READ *,A,B,C
    delta=b**2-4*a*c

    IF (delta>0)THEN
    PRINT *,"The roots are real"
    X1=(-B+SQRT(DELTA))/(2*A)
    X2=(-B-SQRT(DELTA))/(2*A)
    PRINT *,"X1 = ",X1,"X2 = ",X2
    END IF
    IF (delta==0)THEN
    PRINT *,"There is one real root"
    X1 = -B/(2*A)
    PRINT *,"X = ",X1
    END IF
    IF (delta<0)THEN
    PRINT *,"The roots are complex"
    X1=(-B+SQRT(DELTA))/(2*A)
    X2=(-B-SQRT(DELTA))/(2*A)
    END IF
    END PROGRAM delta1

    How can i show the complex and real roots in this program above which shows only real roots?
     
  2. jcsd
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook

Can you help with the solution or looking for help too?
Draft saved Draft deleted



Similar Discussions: FORTRAN:Simple question
  1. FORTRAN Question (Replies: 4)

  2. Fortran question (Replies: 2)

  3. Fortran Question (Replies: 32)

Loading...