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...) |
(No difference)
|
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
