Conteúdo

# Tan Function

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

Using the angle Alpha, the Tan function calculates the ratio of the length of the side opposite the angle to the length of the side adjacent to the angle in a right-angled triangle.

Tan(Alpha) = side opposite the angle/side adjacent to angle

### Sintaxe:

    Tan (Number As Double) As Double

### Return type:

Double

### Parâmetros:

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

To convert degrees to radians, multiply by Pi/180. To convert radians to degrees, multiply by 180/Pi.

degrees=(radians*180)/Pi

radians=(degrees*Pi)/180

Pi is approximately 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

Atn Function

Cos Function

Sin Function