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

Syntax:


Tan (Number As Double) As Double

Return value:

Double

Parameters:

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

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.

Error codes:

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

Example:


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

Please support us!