IBM Lotus Symphony
|
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
Tan (Número)
Duplo
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.
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