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)

Jump to: navigation, search
 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