Содержимое

# Tan Function

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

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

### Return type:

Double

### Параметры:

Число. Любое число, для которого необходимо вычислить тангенс в радианах.

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.

### Коды ошибок:

5 Неправильный вызов процедуры

### Пример:

    REM Пример для прямоугольного треугольника.
    REM По стороне, противолежащей углу, и углу (в градусах) вычисляется длина стороны, прилежащей к этому углу:
    Sub ExampleTangens
    REM Pi = 3,1415926 - предопределённая константа
    Dim d1 As Double
    Dim dAlpha As Double
        d1 = InputBox("Введите длину стороны, противолежащей углу: ","противолежащая")
        dAngle = InputBox("Введите угол Alpha (в градусах): ","Alpha")
        Print "Длина стороны, прилежащей к углу -"; (d1 / tan (dAlpha * Pi / 180))
    End Sub

См. также

Atn Function

Cos Function

Sin Function