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...) |
(→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> | ||
Revision as of 01:56, 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
