IBM Lotus Symphony
|
Вычисляет тангенс угла. Угол задается в радианах.
По данному углу функция Tan вычисляет отношение противолежащего катета прямоугольного треугольника к прилежащему.
Tan(угол) = противолежащий катет / прилежащий катет
Tan (Число)
Двойной
Число: произвольное числовое выражение (в радианах), для которого необходимо вычислить тангенс.
Для преобразования градусов в радианы необходимо умножить значение на Pi/180. Для преобразования радианов в градусы необходимо умножить значение на 180/Pi.
1 градус = (1 радиан * 180)/Pi
1 радиан = (1 градус * Pi)/180
Pi приближенно равно 3,141593.
REM В этом примере для прямоугольного треугольника вводятся
REM противолежащий катет и угол (в градусах) и вычисляется прилежащий катет:
Sub ExampleTangens
REM Число Pi, приближенно равное 3,1415926, - это предопределенная константа
Dim d1 as Double
Dim dAlpha as Double
d1 = InputBox$ ("Введите длину противолежащего катета: ","Прилежащий")
dAlpha = InputBox$ ("Введите угол (в градусах): ","Угол")
Print "Прилежащий катет равен "; (d1 / tan (dAlpha * Pi / 180))
End Sub