Contenido
Índice 🔎︎

# Cos Function

Calcula el coseno de un ángulo. El ángulo se especifica en radianes. El resultado está entre -1 y 1.

Using the angle Alpha, the Cos function calculates the ratio of the length of the side that is adjacent to the angle, divided by the length of the hypotenuse in a right-angled triangle.

Cos(Alpha) = Adjacent/Hypotenuse

### Sintaxis:

    Cos (Number As Double) As Double

### Valor de retorno:

Double

### Parámetros:

Número: Expresión numérica que especifica un ángulo en radianes para el que se desea calcular el coseno.

Para convertir grados a radianes, multiplique los grados por pi/180. Para convertir radianes a grados, multiplique los radianes por 180/pi.

grado=(radián*180)/pi

radián=(grado*pi)/180

Pi is here the fixed circle constant with the rounded value 3.14159...

### Códigos de error:

5 Llamada a procedimiento no válida

### Ejemplo:

    ' El ejemplo siguiente permite para un triángulo rectángulo la entrada de
    ' la secante y el ángulo (en grados) y calcula la longitud de la hipotenusa:
    Sub ExampleCosinus
    ' Pi redondeado = 3,14159
    Dim d1 As Double, dAngle As Double
        d1 = InputBox("Escriba la longitud del lado adyacente: ","Adyacente")
        dAngle = InputBox("Escriba el ángulo Alfa (en grados): ","Alfa")
        Print "La longitud de la hipotenusa es "; (d1 / cos (dAngle * Pi / 180))
    End Sub

Temas relacionados

Función Atn

Sin Function

Función Tan