IBM Lotus Symphony


Função Tan [Runtime]

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

Utilizando o ângulo Alpha, a função Tan calcula a relação do comprimento do lado oposto ao ângulo com o comprimento do lado adjacente ao ângulo num triângulo de ângulo recto.

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

Sintaxe:

Tan (Número)

Valor de retorno:

Duplo

Parâmetros:

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

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

graus=(radiano*180)/Pi

radiano=(graus*Pi)/180

Pi corresponde aproximadamente a 3,141593.

Códigos de erro

5 Chamada de procedimento não válido

Exemplo:

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

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 pré-definida

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais