LibreOffice 7.3 laguntza
Angelu baten kosinua kalkulatzen du. Angelua radianetan zehazten da. Emaitza -1 eta 1 artekoa da.
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
Zenbakia: kosinua kalkulatu behar zaion angelua radianetan zehazten duen zenbakizko adierazpena.
Graduak radian bihurtzeko, egin graduak bider Pi/180. Radianak gradu bihurtzeko, egin radianak bider 180/Pi.
graduak=(radianak*180)/pi
radianak=(graduak*pi)/180
Pi is here the fixed circle constant with the rounded value 3.14159...
' Ondorengo adibidean, triangelu angeluzuzen baten sekantea eta angelua
' (gradutan) sartu eta hipotenusaren luzera kalkulatzen da:
Sub ExampleCosinus
' Pi biribildua = 3,14159
Dim d1 As Double, dAngle As Double
d1 = InputBox$ (""Sartu alboko aldearen luzera: ","Albokoa")
dAngelua = InputBox("Sartu Alfa angelua (gradutan): ","Alfa")
Print "Hipotenusaren luzera:"; (d1 / cos (dAngelua * Pi / 180))
End Sub