Conteúdo

# Função Tan

Determina a tangente de um ângulo. O ângulo é especificado em radianos.

Utilizando o ângulo Alfa, a função Tan calcula a razão entre o comprimento do lado oposto ao ângulo e o comprimento do lado adjacente ao ângulo num triângulo retângulo.

Tan(Alpha) = lado oposto ao ângulo/lado adjacente ao ângulo

### Sintaxe:

    Tan (Número como Double) como Double

### Tipo de retorno:

Double

### Parâmetros:

Número: qualquer expressão numérica para a qual deseje calcular a tangente (em radianos).

Para converter graus em radianos, multiplique por Pi/180. Para converter radianos em graus, multiplique por 180/Pi.

graus = (radianos*180) / Pi

radianos = (graus*Pi)/180

Pi é aproximadamente 3,141593.

### Códigos de erro

5 Chamada de procedimento inválido

### Exemplo:

    ' Neste exemplo. a entrada é possível para um triângulo de ângulo reto:
    ' O lado oposto do ângulo e o ângulo (em graus) para calcular o comprimento do lado adjacente ao ângulo:
    Sub ExampleTangens
    ' Pi = 3,1415926 é uma variável pré-definida
    Dim d1 As Double
    Dim dAlpha As Double
        d1 = InputBox("Introduza o comprimento do lado oposto ao ângulo: ","Oposto")
        dAlpha = InputBox("Introduza o ângulo Alfa (em graus): ","Alfa")
        Print "o comprimento do lado adjacente ao ângulo é"; (d1 / tan (dAlpha * Pi / 180))
    End Sub

Tópicos relacionados

D'oh! You found a bug (text/sbasic/shared/03080101.xhp#Atn_h1 not found).

Função cosseno

Função seno

Necessitamos da sua ajuda!