Module
Contents
Index 🔎︎

# Cos Function

Calculates the cosine of an angle. The angle is specified in radians. The result lies between -1 and 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

## Syntax:

    Abs (Number)

## वापसी मूल्य:

दोगुना

## पैरामीटर

Number: Numeric expression that specifies an angle in radians that you want to calculate the cosine for.

डिग्री को रेडियन में बदलने के लिए, डिग्री को pi/180 से गुणा करें. रेडियन को डिग्री में बदलने के लिए, रेडियन को 180/pi से गुणा करें.

grad=(radiant*180)/pi

radiant=(grad*pi)/180

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

## Error codes:

5 Invalid procedure call

## उदाहरण:

    ' The following example allows for a right-angled triangle the input of
    ' secant and angle (in degrees) and calculates the length of the hypotenuse:
    Sub ExampleCosinus
    REM rounded Pi = 3.14159
    Dim d1 As Double, dAngle As Double
        d1 = InputBox("Enter the length of the adjacent side: ","Adjacent")
        dAngle = InputBox("Enter the angle Alpha (in degrees): ","Alpha")
        Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))
    End Sub