exemplo_de_funcoes.f90

PROGRAM exemplos_de_funcoes

REAL :: x, y
INTEGER :: z
!-----------------------------------------------------------------------
	! Valor absoluto de x
	! Tipos de argumento(s) : INTEGER or REAL
	! Tipo de retorno		: O mesmo do argumento
print *, 'Valor absoluto de x'
x = -50.58
print *,x
y = ABS(x)
print *, y
!-----------------------------------------------------------------------	
	! Coseno de x radianos
	! Tipos de argumento(s) : REAL
	! Tipo de retorno		: REAL
print *, 'Coseno de x radianos'
x = 70
print *,x
y = COS(X)
print *, y
!-----------------------------------------------------------------------
	! Função exponencial
	! Tipos de argumento(s) : REAL
	! Tipo de retorno		: REAL
print *, 'Função exponencial'
x = 2
print *,x
y = EXP(X) ! x é o expoente da constante neperiano
print *, y
!-----------------------------------------------------------------------	
	! Parte inteira de x
	! Tipos de argumento(s) : REAL
	! Tipo de retorno		: INTEGER
print *, 'Parte inteira de x'
x = 2.718281828
print *,x
z = INT(x)
print *,z
!-----------------------------------------------------------------------	
	! Piso de x
	! Tipos de argumento(s) : REAL
	! Tipo de retorno		: INTEGER
print *, 'Piso de x'
x = 2.718281828
print *,x
z = FLOOR(x)
print *,z
!-----------------------------------------------------------------------	
	! Mantissa de x
	! Tipos de argumento(s) : REAL
	! Tipo de retorno		: REAL
print *, 'Mantissa de x'
x = 2.718281828
print *,x
y = FRACTION(x)
print *,y
!-----------------------------------------------------------------------	
	! Logaritmo natural de x
	! Tipos de argumento(s) : REAL
	! Tipo de retorno		: REAL
print *, 'Logaritmo natural de x'
x = 2.718281828
print *,x
y = LOG(x)
print *,y
!-----------------------------------------------------------------------	
	! Máximo de um conjunto
	! Tipos de argumento(s) : INTEGER or REAL
	! Tipo de retorno		: O mesmo do argumento
print *, 'Máximo de um conjunto'
print *, MAX(x, y)
	! Obs.: tanto para MAX e MIN pode usar apenas um tipo de argumento
!-----------------------------------------------------------------------	
	! Mínimo de um conjunto
	! Tipos de argumento(s) : INTEGER or REAL
	! Tipo de retorno		: O mesmo do argumento
print *, 'Mínimo de um conjunto'
print *, MIN(x, y)
!-----------------------------------------------------------------------	
	! Resto da divisão inteira de x por y
	! Tipos de argumento(s) : INTEGER or REAL
	! Tipo de retorno		: O mesmo do argumento
print *, 'Resto da divisão inteira de x por y'
x = 21
print *, x
y = 8
print *, y
print *, MOD(X,Y) ! Não faz diferença se é maiúsculo ou minúsculo
!-----------------------------------------------------------------------	
	! Função de arredondamento
	! Tipos de argumento(s) : REAL
	! Tipo de retorno		: INTEGER
print *, 'Função de arredondamento'
x = 2.4 ! Tente x = 2.5
print *, x
z = NINT (x)
print *, z
!-----------------------------------------------------------------------	
	! Converter valor de z em tipo REAL
	! Tipos de argumento(s) : INTEGER
	! Tipo de retorno		: REAL
print *, 'Converter valor de z em tipo REAL'
z = 133
print *, z
x = REAL(z)
print *,x
!-----------------------------------------------------------------------	
	! Seno de x radianos
	! Tipos de argumento(s) : REAL
	! Tipo de retorno		: REAL
print *, 'Seno de x radianos'
x = 70
print *, x
y = SIN(x)
print *, y
!-----------------------------------------------------------------------	
	! Raiz quadrada de x
	! Tipos de argumento(s) : REAL
	! Tipo de retorno		: REAl
print *, 'Raiz quadrada de x'
x = 144
print *, x
y = SQRT (x)
print *, y
!-----------------------------------------------------------------------	
	! Tangente de x radianos
	! Tipos de argumento(s) : REAL
	! Tipo de retorno		:
print *, 'Tangente de x radianos'
x = 70
print *, x
y = TAN(x)
print *, y
!-----------------------------------------------------------------------	

END