Difference between revisions of "F90: Valor absoluto"

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
(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