F90: Valor absoluto

From AdonaiMedrado.Pro.Br
Revision as of 01:57, 28 August 2008 by Adonaimedrado (Talk | contribs) (Problema)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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