PROGRAM ECUACION_CUADRATICA

IMPLICIT NONE

INTEGER::OPC
REAL::A,B,C,X1,X2
REAL::DISCRIM

WRITE(*,*)"SOLUCIÓN DE UNA ECUACIÓN CUADRATICA AX2+BX+C"

100 WRITE(*,*)"DAME EL VALOR DE LOS COEFICIENTES: "
WRITE(*,*)"A: "
READ (*,*)A
WRITE(*,*)"B: "
READ (*,*)B
WRITE(*,*)"C: "
READ (*,*)C

  DISCRIM= (B**2)-(4*A*C)

   IF(DISCRIM<0)THEN
   PRINT*,"LA ECUACION TIENE RAICES IMAGINARIAS"
   ELSE IF (DISCRIM==0) THEN
   PRINT*,"LA ECUACION TIENE DOS RAICES IGUAL A CERO"
   ELSE IF (DISCRIM>0) THEN


                X1=(-B+SQRT(DISCRIM))/(2*A)
                X2=(-B-SQRT(DISCRIM))/(2*A)

                PRINT*,"X1= ",X1
                PRINT*,"X2= ",X2

    END IF

  PRINT*,""
  PRINT*,"DESEA REPETIR EL PROGRAMA? <SI==1> <NO==2>"
  PRINT*,"OPCION== "
  READ (*,*)OPC

   IF (OPC==1) THEN
   GOTO 100
   ELSE IF (OPC==2) THEN

   STOP

   END IF

END PROGRAM ECUACION_CUADRATICA