F90: Solução de equação de segundo grau

Problema

Fazer um programa capaz de resolver uma equação do segundo grau.

Solução

PROGRAM aula1e7
	IMPLICIT NONE
	REAL :: a, b, c, delta, x1, x2
 
	WRITE (*,*) "Digite os valores de a, b e c separados por um espaço ou enter."
	READ (*,*) a, b, c
 
	delta = b ** 2 - 4 * a * c	
 
	IF (delta < 0) THEN
		WRITE (*,*) "Não existe solução real."
	ELSE
		x1 = (-b + SQRT(delta))/(2.0 * a)
		x2 = (-b - SQRT(delta))/(2.0 * a)
		WRITE (*,*) "DELTA=", delta, &
			"RAIZ X1=", x1, &
			"X2=", x2
	END IF
END PROGRAM aula1e7