Difference between revisions of "Talk:F90: Solução de equação de segundo grau"

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
Line 1: Line 1:
−
   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.
+
   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), e x1 e x2 já é o resultado da operação : x1 = (-b + (delta**(1/2)))/(2.0 * a) e x2 = (-b - (delta**(1/2)))/(2.0 * a)
−
  NO CASO TAMBEM "RAIZ X1 ou X2=" NÃO É IGUAL x1 OU x2.
+
 
−
O programa seria:
+
ABRAÇO ROBERTO J S
−
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
+

Revision as of 17:39, 28 August 2008

 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), e x1 e x2 já é o resultado da operação : x1 = (-b + (delta**(1/2)))/(2.0 * a) e x2 = (-b - (delta**(1/2)))/(2.0 * a)

ABRAÇO ROBERTO J S

Retrieved from "https://www.adonaimedrado.pro.br/wiki/index.php?title=Talk:F90:_Solução_de_equação_de_segundo_grau&oldid=199"