IBM Lotus Symphony


Функция Tan [встроенная]

Вычисляет тангенс угла. Угол задается в радианах.

По данному углу функция Tan вычисляет отношение противолежащего катета прямоугольного треугольника к прилежащему.

Tan(угол) = противолежащий катет / прилежащий катет

Синтаксис:

Tan (Число)

Возвращаемое значение:

Двойной

Параметры:

Число: произвольное числовое выражение (в радианах), для которого необходимо вычислить тангенс.

Для преобразования градусов в радианы необходимо умножить значение на Pi/180. Для преобразования радианов в градусы необходимо умножить значение на 180/Pi.

1 градус = (1 радиан * 180)/Pi

1 радиан = (1 градус * Pi)/180

Pi приближенно равно 3,141593.

Коды ошибок

5 Недопустимый вызов процедуры

Пример:

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


Комментарии по продукту | Дополнительная документация | Товарные знаки