F90: Valor absoluto

From AdonaiMedrado.Pro.Br
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