Difference between revisions of "F90: Solução de equação de segundo grau"
From AdonaiMedrado.Pro.Br
(New page: == Problema == Fazer um programa capaz de resolver uma equação do segundo grau. == Solução == <code lang="fortran"> PROGRAM aula1e7 IMPLICIT NONE REAL :: a, b, c, delta, x1, x2 W...) |
(→Solução) |
||
| Line 7: | Line 7: | ||
IMPLICIT NONE | IMPLICIT NONE | ||
REAL :: a, b, c, delta, x1, x2 | REAL :: a, b, c, delta, x1, x2 | ||
| − | + | ||
WRITE (*,*) "Digite os valores de a, b e c separados por um espaço ou enter." | WRITE (*,*) "Digite os valores de a, b e c separados por um espaço ou enter." | ||
READ (*,*) a, b, c | READ (*,*) a, b, c | ||
| − | + | ||
delta = b ** 2 - 4 * a * c | delta = b ** 2 - 4 * a * c | ||
| − | + | ||
IF (delta < 0) THEN | IF (delta < 0) THEN | ||
WRITE (*,*) "Não existe solução real." | WRITE (*,*) "Não existe solução real." | ||
ELSE | ELSE | ||
| − | x1 = (-b + delta)/(2.0 * a) | + | x1 = (-b + SQRT(delta))/(2.0 * a) |
| − | x2 = (-b - delta)/(2.0 * a) | + | x2 = (-b - SQRT(delta))/(2.0 * a) |
WRITE (*,*) "DELTA=", delta, & | WRITE (*,*) "DELTA=", delta, & | ||
"RAIZ X1=", x1, & | "RAIZ X1=", x1, & | ||
Latest revision as of 17:16, 2 September 2008
Problema
Fazer um programa capaz de resolver uma equação do segundo grau.
Solução
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 + SQRT(delta))/(2.0 * a) x2 = (-b - SQRT(delta))/(2.0 * a) WRITE (*,*) "DELTA=", delta, & "RAIZ X1=", x1, & "X2=", x2 END IF END PROGRAM aula1e7
