Difference between revisions of "F90: Valor absoluto"

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