Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

Função: Cos

Calcula o valor do cosseno de um ângulo (em radianos).

Cos ( < nAngulo> ) --> nRet

NomeTipoDescriçãoObrigatórioReferência
nAnguloNuméricoIndica o valor do ângulo em radianos. X
    nRet(numerico)
  • Retorna o valor do cosseno de acordo com o ângulo informado.

Atenção ao utilizar como parâmetro valores maiores que 2^63 ou menores que -2^63, pois ocorrerá uma perda significante na chamada da função.

EntradaSEH ExceptionMatherr Exception
 ± QNAN,IND None Sem Domínio
 ± ∞ INVALID Sem Domínio
 x ≥ 7.104760e+002 INEXACT+OVERFLOW OVERFLOW


#DEFINE CRLF Chr(13)+Chr(10)#DEFINE PI 3.14159265 // ACos(-1)User Function Exemplo()Local cMensagem := ""//+----------------------------------------------------------------------------+//|Exemplifica o uso da função Cos                                             |//+----------------------------------------------------------------------------+  cMensagem += "Cos(  0) = " + cValToChar(Cos(0))           + CRLF  cMensagem += "Cos( 30) = " + cValToChar(Cos(PI / 6))      + CRLF  cMensagem += "Cos( 45) = " + cValToChar(Cos(PI / 4))      + CRLF  cMensagem += "Cos( 60) = " + cValToChar(Cos(PI / 3))      + CRLF  cMensagem += "Cos( 90) = " + cValToChar(Cos(PI / 2))      + CRLF  cMensagem += "Cos(120) = " + cValToChar(Cos(2 * PI / 3))  + CRLF  cMensagem += "Cos(135) = " + cValToChar(Cos(3 * PI / 4))  + CRLF  cMensagem += "Cos(150) = " + cValToChar(Cos(5 * PI / 6))  + CRLF  cMensagem += "Cos(180) = " + cValToChar(Cos(PI))          + CRLF  cMensagem += "Cos(210) = " + cValToChar(Cos(7 * PI / 6))  + CRLF  cMensagem += "Cos(225) = " + cValToChar(Cos(5 * PI / 4))  + CRLF  cMensagem += "Cos(240) = " + cValToChar(Cos(4 * PI / 3))  + CRLF  cMensagem += "Cos(270) = " + cValToChar(Cos(3 * PI / 2))  + CRLF  cMensagem += "Cos(300) = " + cValToChar(Cos(5 * PI / 3))  + CRLF  cMensagem += "Cos(315) = " + cValToChar(Cos(7 * PI / 4))  + CRLF  cMensagem += "Cos(330) = " + cValToChar(Cos(11 * PI / 6)) + CRLF  cMensagem += "Cos(360) = " + cValToChar(Cos(2 * PI))//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos                            |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do Cos")

Exemplo da função Cos
Microsiga Protheus 8.11 , Protheus 10

  • Sem rótulos