Помощ за LibreOffice 7.3
Изчислява косинуса на ъгъл, зададен в радиани. Резултатът е между -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
Number: числов израз – ъгълът в радиани, чийто косинус искате да изчислите.
За да превърнете градусите в радиани, умножете ги по π/180. За да превърнете радианите в градуси, умножете ги по 180/π.
degrees = (radians * 180) / Pi
radians = (degrees * Pi) / 180
Pi is here the fixed circle constant with the rounded value 3.14159...
' Този пример позволява въвеждане на дължината на прилежащ
' катет и ъгъл в градуси и изчислява дължината на хипотенузата:
Sub ExampleCosinus
' Pi е приблизително 3,14159
Dim d1 As Double, dAngle As Double
d1 = InputBox("Въведете дължината на прилежащия катет: ", "Прилежащ катет")
dAngle = InputBox("Въведете ъгъла в градуси: ", "Ъгъл")
Print "Дължината на хипотенузата е "; (d1 / Cos (dAngle * Pi / 180))
End Sub