LibreOfficeDev 7.4 Hjelp
Finn tangens for ein vinkel i radianar. Vinkelen er oppgjeve i radianar.
Using the angle Alpha, the Tan function calculates the ratio of the length of the side opposite the angle to the length of the side adjacent to the angle in a right-angled triangle.
Tan(Alpha) = side opposite the angle/side adjacent to angle
Tan (Number As Double) As Double
Double
Tal: Eit numeriskt uttrykk som du vil rekna ut tangens for (i radianar).
To convert degrees to radians, multiply by Pi/180. To convert radians to degrees, multiply by 180/Pi.
degrees=(radians*180)/Pi
radians=(degrees*Pi)/180
Pi is approximately 3.141593.
' I dette eksempelet er desse innskrivingane moglege for ein rettvinkla trekant:
' Sida motsett vinkelen og vinkelen (i grader) for Ä rekna ut lengda pÄ den hosliggjande sida til vinkelen:
Sub ExampleTangens
' Pi er ein fĂžrehandsdefinert konstant avrunda til 3,1415926
Dim d1 As Double
Dim dAlpha As Double
d1 = InputBox("Skriv inn lengda pÄ den motstÄande sida til vinkelen: ","motstÄande")
dAlpha = InputBox$ ("Skriv inn vinkelen Alfa (i grader): ","Alfa")
Print "lengda pÄ den motstÄande sida til vinkelen er"; (d1 / tan (dAlpha * Pi / 180))
End Sub