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? "
PRINT*,"OPCION== "
READ (*,*)OPC
IF (OPC==1) THEN
GOTO 100
ELSE IF (OPC==2) THEN
STOP
END IF
END PROGRAM ECUACION_CUADRATICA
 

Pagina Principal del sitio                               Regresar al menu de Codigo fuente en FORTRAN