F90: Valor absoluto

From AdonaiMedrado.Pro.Br
Revision as of 01:56, 28 August 2008 by Adonaimedrado (Talk | contribs) (→‎Solução)

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
Retrieved from "https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Valor_absoluto&oldid=184"