Cos Function

የ አንግል ኮሳይን ማስሊያ: አንግል የሚገለጸው በ ራዲያንስ ነው: ውጤቱ የሚውለው በ -1 እና 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

Cos (Number As Double) As Double

Double

ቁጥር: የ ቁጥር መግለጫ የሚወስን አንግል በ ራዲያንስ እርስዎ ማስላት የሚፈልጉትን ኮሳይን ለ

ዲግሪዎችን ወደ ራዲያን ለ መቀየር: ዲግሪዎችን ያባዙ በ ፓይ/180. ራዲያንስ ለ መቀየር ወደ ዲግሪዎች: ያባዙ ራዲያንስ በ 180/ፓይ

ዲግሪ=(ራዲያን*180)/ፓይ

ራዲያን=(ዲግሪ*ፓይ)/180

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

' 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
' የተጠጋጋ ፓይ = 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 hypotenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub