LibreOffice 7.1 Help
āĻāĻāĻāĻŋ āĻā§āύā§āϰ āĻā§āϏāĻžāĻāύ āĻāĻŖāύāĻž āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻā§āύāĻāĻŋ āϰā§āĻĄāĻŋā§āĻžāύ⧠āĻāϞā§āϞā§āĻ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻĢāϞāĻžāĻĢāϞ -1 āĻāĻŦāĻ 1 āĻāϰ āĻŽāϧā§āϝ⧠āĻāĻāĻāĻŋ āĻŽāĻžāύ āĻšā§āĨ¤
āĻāϞāĻĢāĻž āĻā§āύ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰā§, āĻā§āϏāĻžāĻāύ āĻĢāĻžāĻāĻļāύā§āϰ āϏāĻžāĻšāĻžāϝā§āϝ⧠āĻā§āύ āϏāĻāĻļā§āϞāĻŋāώā§āĻ āĻŦāĻžāĻšā§āϰ āĻĻā§āϰā§āĻā§āϝ, āϏāĻŽāĻā§āύ⧠āϤā§āϰāĻŋāĻā§āĻā§āϰ āĻ āϤāĻŋāĻā§āĻā§āϰ āĻĻā§āϰā§āĻā§āϝ āĻĻā§āĻŦāϰāĻž āĻāĻžāĻā§āϰ āĻ āύā§āĻĒāĻžāϤ āĻāĻŖāύāĻž āĻāϰāĻž āĻšā§āĨ¤
Cos(Alpha) = Adjacent/Hypotenuse
Cos (Number)
āĻĄāĻžāĻŦāϞ
āϏāĻāĻā§āϝāĻž: āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰāĻļā§āĻļāύ āϝāĻž āĻāĻāĻāĻŋ āĻā§āύ āϰā§āĻĄāĻŋā§āĻžāύ⧠āĻāϞā§āϞā§āĻ āĻāϰ⧠āĻĨāĻžāĻā§ āĻāĻŦāĻ āϝāĻžāϰ āĻā§āϏāĻžāĻāύ āĻāĻŖāύāĻž āĻāϰāϤ⧠āĻāĻžāύāĨ¤
āĻĄāĻŋāĻā§āϰāĻŋ āĻĨā§āĻā§ āϰā§āĻĄāĻŋā§āĻžāύ⧠āϰā§āĻĒāĻžāύā§āϤāϰ āĻāϰāĻžāϰ āĻāύā§āϝ, āĻĄāĻŋāĻā§āϰāĻŋāĻā§ pi/180 āĻĻā§āĻŦāĻžāϰāĻž āĻā§āĻŖ āĻāϰāĻž āĻšāĻŦā§āĨ¤ āϰā§āĻĄāĻŋā§āĻžāύ āĻĨā§āĻā§ āĻĄāĻŋāĻā§āϰāĻŋāϤ⧠āϰā§āĻĒāĻžāύā§āϤāϰ āĻāϰāĻžāϰ āĻāύā§āϝ, āϰā§āĻĄāĻŋā§āĻžāύāĻā§ 180/pi āĻĻā§āĻŦāĻžāϰāĻž āĻā§āĻŖ āĻāϰāĻž āĻšāĻŦā§āĨ¤
degree=(radian*180)/pi
radian=(degree*pi)/180
3.14159... āĻĒā§āϰā§āĻŖ āϏāĻāĻā§āϝāĻž āĻŽāĻžāύ āϏāĻš āύāĻŋāϰā§āĻĻāĻŋāώā§āĻ āĻŦā§āϤā§āϤāĻžāĻāĻžāϰ āϧā§āϰā§āĻŦāĻ āĻšāϞ⧠āĻĒāĻžāĻāĨ¤
REM āύāĻŋāĻā§āϰ āĻāĻĻāĻžāĻšāϰāĻŖāĻāĻŋ āĻāĻāĻāĻŋ āϏāĻŽāĻā§āύ⧠āϤā§āϰāĻŋāĻā§āĻā§āϰ āĻāύā§āϝ āĻāϰ āĻāύāĻĒā§āĻ āĻ
āύā§āĻŽā§āĻĻāύ āĻāϰ⧠āĻĨāĻžāĻā§
REM āĻĒāϰāϏā§āĻĒāϰāĻā§āĻĻā§ āĻāĻŦāĻ āĻā§āύ (āĻĄāĻŋāĻā§āϰāĻŋāϤā§) āĻāĻŦāĻ āĻ
āϤāĻŋāĻā§āĻā§āϰ āĻĻā§āϰā§āĻā§āϝ āĻāĻŖāύāĻž āĻāϰāĻž āĻšā§:
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