Difference between revisions of "Talk:F90: Solução de equação de segundo grau"
From AdonaiMedrado.Pro.Br
(New page: 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.ABRAÇO ROBERTO J S) |
|||
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.ABRAÇO ROBERTO J S | + | 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 |
Revision as of 17:31, 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. 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