LibreOffice 7.2 Help
āĻāĻāĻāĻŋ āĻā§āύā§āϰ āĻā§āύāĻā§āύā§āĻ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāĻž āĻšā§āĨ¤ āĻā§āύāĻāĻŋ āϰā§āĻĄāĻŋā§āĻžāύ⧠āĻāϞā§āϞā§āĻ āĻāϰāĻž āĻšā§āĨ¤
āĻāϞāĻĢāĻž āĻā§āύ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰā§, āĻā§āύāĻā§āύā§āĻ āĻĢāĻžāĻāĻļāύāĻāĻŋ āĻā§āύā§āϰ āĻŦāĻŋāĻĒāϰā§āϤ āĻŦāĻžāĻšā§āϰ āĻĻā§āϰā§āϝā§āϝ (āϞāĻŽā§āĻŦ) āĻāĻŦāĻ āϏāĻŽāĻā§āύ⧠āϤā§āϰāĻŋāĻā§āĻā§āϰ āĻā§āύ āϏāύā§āύāĻŋāĻšāĻŋāϤ āĻŦāĻžāĻšā§āϰ (āĻā§āĻŽāĻŋ) āĻĻā§āϰā§āĻā§āϝā§āϰ āĻ āύā§āĻĒāĻžāϤ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āĻā§āϝāĻžāύ(āĻāϞāĻĢāĻž) = āĻā§āύā§āϰ āĻŦāĻŋāĻĒāϰā§āϤ āĻŦāĻžāĻšā§āϰ āĻĻā§āϰā§āĻā§āϝ/āĻā§āύā§āϰ āύāĻŋāĻāĻāĻŦāϰā§āϤ⧠āĻŦāĻžāĻšā§āϰ āĻĻā§āϰā§āĻā§āϝ
Tan (Number)
āĻĄāĻžāĻŦāϞ
āϏāĻāĻā§āϝāĻž: āϝā§āĻā§āύ⧠āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻžāϰ āĻā§āύāĻā§āύā§āĻ āĻāĻŖāύāĻž āĻāϰāϤ⧠āĻāĻžāύ (āϰā§āĻĄāĻŋā§āĻžāύā§)āĨ¤
āĻĄāĻŋāĻā§āϰāĻŋ āĻĨā§āĻā§ āϰā§āĻĄāĻŋā§āĻžāύ⧠āϰā§āĻĒāĻžāύā§āϤāϰ āĻāϰāĻžāϰ āĻāύā§āϝ, pi/180 āĻĻā§āĻŦāĻžāϰāĻž āĻā§āĻŖ āĻāϰāĻž āĻšāĻŦā§āĨ¤ āϰā§āĻĄāĻŋā§āĻžāύ āĻĨā§āĻā§ āĻĄāĻŋāĻā§āϰāĻŋāϤ⧠āϰā§āĻĒāĻžāύā§āϤāϰ āĻāϰāĻžāϰ āĻāύā§āϝ, 180/pi āĻĻā§āĻŦāĻžāϰāĻž āĻā§āĻŖ āĻāϰāĻž āĻšāĻŦā§āĨ¤
degrees=(radiant*180)/Pi
radiant=(degrees*Pi)/180
āĻĒāĻžāĻ āĻāϰ āĻŽāĻžāύ āĻšāϞ⧠āĻĒā§āϰāĻžāϝāĻŧ 3.141593āĨ¤
REM āĻāĻ āĻāĻĻāĻžāĻšāϰāĻŖā§, āύāĻŋāĻā§āϰ āĻāύā§āĻā§āϰāĻŋāĻāĻŋ āϏāĻŽāĻā§āύ⧠āϤā§āϰāĻŋāĻā§āĻā§āϰ āĻāύā§āϝ āϏāĻŽā§āĻāĻžāĻŦā§āϝ:
REM āĻā§āύā§āϰ āĻŦāĻŋāĻĒāϰā§āϤ āĻŦāĻžāĻšā§ āĻāĻŦāĻ āĻā§āύ āϏāĻāĻļā§āϞāĻŋāώā§āĻ āĻŦāĻžāĻšā§āϰ āĻĻā§āϰā§āĻā§āϝ āĻāĻŖāύāĻž āĻāϰāĻžāϰ āĻāύā§āϝ āĻā§āύ (āĻĄāĻŋāĻā§āϰāĻŋāϤā§):
Sub ExampleTangens
REM Pi = 3.1415926 āĻĒā§āϰā§āĻŦāĻŋāύāĻŋāϰā§āϧāĻžāϰāĻŋāϤ āĻā§āϰāĻŋā§ā§āĻŦāϞ
Dim d1 As Double
Dim dAlpha As Double
d1 = InputBox("Enter the length of the side opposite the angle: ","opposite")
ddAlpha = InputBox("Enter the Alpha angle (in degrees): ","Alpha")
Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))
End Sub