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

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
 
(3 intermediate revisions by the same user not shown)
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, FALTOU A RAIZ DO DELTA NA PROGRAMAÇÃO. x1 = (-b + (delta**(1.0/2)))/(2.0 * a) e x2 = (-b - (delta**(1.0/2)))/(2.0 * a)
−
  NO CASO TAMBEM "RAIZ X1 ou X2=" NÃO É IGUAL x1 OU x2.
+
(esqueci de colocar (1.0/2) para ser real.
−
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
+
ABRAÇO ROBERTO J S

Latest revision as of 20:34, 29 August 2008

  ADONAI, FALTOU A RAIZ DO DELTA NA PROGRAMAÇÃO. x1 = (-b + (delta**(1.0/2)))/(2.0 * a) e x2 = (-b - (delta**(1.0/2)))/(2.0 * a)
(esqueci de colocar (1.0/2) para ser real.

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=205"