Guida di LibreOffice 7.3
Determina la tangente di un angolo. L'angolo è specificato in radianti.
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
Numero: espressione numerica di cui desiderate calcolare la tangente (in radianti).
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.
' In questo esempio, per un triangolo retto è possibile immettere:
' Il lato opposto all'angolo e l'angolo (in gradi) per calcolare la lunghezza del lato adiacente l'angolo:
Sub ExampleTangens
' Pi = 3,1415926 è una variabile predefinita
Dim d1 As Double
Dim dAlpha As Double
d1 = InputBox("Inserite la lunghezza del lato opposto all'angolo: ","Opposto")
dAlpha = InputBox("Inserite l'angolo Alfa (in gradi): ","Alfa")
Print "La lunghezza del lato adiacente l'angolo è"; (d1 / tan (dAlpha * Pi / 180))
End Sub