Aplicación
Contenido
Índice 🔎︎

# Función Tan

Calcula la tangente de un ángulo. El ángulo se devuelve en radianes.

Usando el ángulo Alfa, la función Tan calcula el coeficiente de la longitud del lado opuesto al ángulo con la longitud del lado adyacente al ángulo en un triángulo rectángulo.

Tan(Alpha) = lado opuesto al ángulo/lado adyacente al ángulo

## Sintaxis:

    Tan (Número)

## Valor de retorno:

Doble

## Parámetros:

Número: Cualquier expresión numérica de la que se desee calcular la tangente (en radianes).

Para convertir grados en radianes, multiplique por pi/180. Para convertir radianes en grados, multiplique por 180/Pi.

grado=(radianes*180)/Pi

radián=(grado*Pi)/180

Pi es aproximadamente 3,141593.

## Códigos de error:

5 Llamada a procedimiento no válida

## Ejemplo:

    ' En este ejemplo, la entrada siguiente es posible para un triángulo rectángulo:

    ' El lado opuesto al ángulo y éste (en grados) para calcular la longitud del lado adyacente al ángulo:

    Sub ExampleTangens

    ' Pi = 3,1415926 es una variable predefinida

    Dim d1 As Double

    Dim dAlpha As Double

        d1 = InputBox("Digite la longitud del lado opuesto al ángulo: ","opuesto")

        dAlpha = InputBox("Escriba el ángulo Alfa (en grados): ","Alfa")

        Print "la longitud del lado adyacente al ángulo es"; (d1 / tan (dAlpha * Pi / 180))

    End Sub