Difference between revisions of "F90: Valor absoluto"
From AdonaiMedrado.Pro.Br
(→Solução) |
(→Problema) |
||
| 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 == | ||
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
