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
