Difference between revisions of "F90: Valor absoluto"
From AdonaiMedrado.Pro.Br
(New page: == Problema == Faça um programa capaz de calcular o valor absoluto de um número informado pelo usuário. Não utilize a função abs(x). == Solução == <code lang="fortran"> PROGRAM a...) |
(→Problema) |
||
| (One intermediate revision by the same user not shown) | |||
| Line 2: | Line 2: | ||
Faça um programa capaz de calcular o valor absoluto de um número informado pelo usuário. | Faça um programa capaz de calcular o valor absoluto de um número informado pelo usuário. | ||
| − | Não utilize a função | + | Não utilize a função ABS(x). |
== Solução == | == Solução == | ||
| Line 17: | Line 17: | ||
END IF | END IF | ||
WRITE (*,*) "O valor absoluto de ",a," é ",r | WRITE (*,*) "O valor absoluto de ",a," é ",r | ||
| − | END PROGRAM | + | END PROGRAM aula1e5 |
</code> | </code> | ||
Latest revision as of 01:57, 28 August 2008
Problema
Faça um programa capaz de calcular o valor absoluto de um número informado pelo usuário.
Não utilize a função ABS(x).
Solução
PROGRAM aula1e5 IMPLICIT NONE INTEGER :: a, r WRITE (*,*) "Digite um número inteiro:" READ (*,*) a IF (a>=0) THEN r = a ELSE r = -a END IF WRITE (*,*) "O valor absoluto de ",a," é ",r END PROGRAM aula1e5
