Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.