Talk:F90: Solução de equação de segundo grau
From AdonaiMedrado.Pro.Br
Revision as of 17:31, 28 August 2008 by 189.104.176.111 (Talk)
ADONAI, O DELTA NA SOLUÇÃO DA EQUAÇÃO DO SEGUNDO GRAU É ELEVADO A 1/2 . NO PROGRAMA FALTOU ELEVAR O DELTA A 1/2(RAIZ QUADRADA DE DELTA. NO CASO TAMBEM "RAIZ X1 ou X2=" NÃO É IGUAL x1 OU x2.
O programa seria: 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 + (delta**(1/2)))/(2.0 * a) x2 = (-b - (delta**(1/2)))/(2.0 * a) WRITE (*,*) "DELTA=", delta, & "RAIZ X1=", x1, & "X2=", x2 END IF END PROGRAM aula1e7
ABRAÇO ROBERTO J S