IBM Lotus Symphony


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

Calcula o cosseno de um ângulo. O ângulo é especificado em radianos. O resultado fica entre -1 e 1.

Usando o ângulo Alpha, a Função Cos calcula a proporção do comprimento do lado adjacente ao ângulo, dividido pelo comprimento da hipotenusa em um triângulo reto.

Cos(Alpha) = Adjacente/Hipotenusa

Sintaxe:

Cos (Number)

Valores de Retorno:

Double

Parâmetros:

Number: Expressão numérica que especifica um ângulo em radianos do qual você deseja calcular o cosseno.

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

grau=(radiano*180)/pi

radiano=(grau*pi)/180

Pi aqui é a constante do círculo fixo com o valor arredondado de 3,14159...

Códigos de Erro

5 Chamada de procedimento inválida

Exemplo:

REM O exemplo a seguir permite a um triângulo reto a entrada de

REM secante e ângulo (em graus) e calcula o comprimento da hipotenusa:

Sub ExampleCosinus

REM Pi arredondado = 3,14159

Dim d1 as Double, dAngle as Double

d1 = InputBox$ (""Enter the length of the adjacent side: ","Adjacent")

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

Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))

End Sub


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