IBM Lotus Symphony


Função Tan [Tempo de Execução]

Determina a tangente de um ângulo. O ângulo é especificado em radianos.

Usando o ângulo Alpha, a Função Tan calcula a proporção do comprimento do lado oposto ao ângulo ao comprimento do lado adjacente ao ângulo em um triângulo reto.

Tan(Alpha) = lado oposto ao ângulo/lado adjacente ao ângulo

Sintaxe:

Tan (Number)

Valores de Retorno:

Double

Parâmetros:

Number: Qualquer expressão numérica para a qual você deseje calcular a tangente (em radianos).

Para converter os graus em radianos, multiplique por Pi/180. Para converter radianos em graus, multiplique por 180/Pi.

degrees=(radiant*180)/Pi

radiant=(degrees*Pi)/180

Pi é aproximadamente 3,141593.

Códigos de Erro

5 Chamada de procedimento inválida

Exemplo:

REM Neste exemplo, é possível a seguinte entrada para um triângulo reto:

REM O lado oposto ao ângulo e o ângulo (em graus) para calcular o comprimento do lado adjacente ao ângulo:

Sub ExampleTangens

REM Pi = 3,1415926 é uma variável predefinida

Dim d1 as Double

Dim dAlpha as Double

d1 = InputBox$ ("Enter the length of the side opposite the angle: ","opposite")

dAlpha = InputBox$ ("Enter the Alpha angle (in degrees): ","Alpha")

Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))

End Sub


Feedback do Produto | Documentação Adicional | Marcas Registradas