IBM Lotus Symphony
|
Określa tangens kąta. Kąt jest określany w radianach.
Funkcja Tan oblicza stosunek długości przyprostokątnej leżącej naprzeciw kąta Alfa do przyprostokątnej przylegającej do kąta Alfa w trójkącie prostokątnym.
Tan(Alfa) = przyprostokątna leżąca naprzeciw kąta/przyprostokątna przylegająca do kąta
Tan (Liczba)
Liczba zmiennopozycyjna o podwójnej precyzji
Liczba: Wyrażenie liczbowe, dla którego ma być obliczony tangens (w radianach).
Aby stopnie zamienić na radiany, należy je pomnożyć przez Pi/180. Aby zamienić radiany na stopnie, należy je pomnożyć przez 180/Pi.
stopnie=(radiany*180)/Pi
radiany=(stopnie*Pi)/180
Pi jest w przybliżeniu równe 3,141593.
REM W tym przykładzie dla trójkąta prostokątnego wprowadzane są następujące wartości:
REM Długość przyprostokątnej naprzeciw kąta i kąt (w stopniach). Obliczana jest długość przyprostokątnej przy kącie.
Sub Przyklad_Tangens
REM Predefiniowana wartość Pi = 3,1415926
Dim d1 as Double
Dim dAlpha as Double
d1 = InputBox$ ("Wprowadź długość przyprostokątnej naprzeciw kąta: ","Przyprostokątna naprzeciw kąta")
dAlpha = InputBox$ ("Wprowadź kąt Alfa (w stopniach): ","Alfa")
Print "Długość boku przy kącie to"; (d1 / tan (dAlpha * Pi / 180))
End Sub