import.css=/download/attachments/327912/newLayout.css |
Função: Sin
Calcula o valor do seno de um ângulo (em radianos). Sin ( < nAngulo> ) --> nRet
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.
#DEFINE CRLF Chr(13)+Chr(10)#DEFINE PI 3.14159265 // ACos(-1)User Function Exemplo()Local cMensagem := ""//+----------------------------------------------------------------------------+//|Exemplifica o uso da função Sin |//+----------------------------------------------------------------------------+ cMensagem += "Sin( 0) = " + cValToChar(Sin(0)) + CRLF cMensagem += "Sin( 30) = " + cValToChar(Sin(PI / 6)) + CRLF cMensagem += "Sin( 45) = " + cValToChar(Sin(PI / 4)) + CRLF cMensagem += "Sin( 60) = " + cValToChar(Sin(PI / 3)) + CRLF cMensagem += "Sin( 90) = " + cValToChar(Sin(PI / 2)) + CRLF cMensagem += "Sin(120) = " + cValToChar(Sin(2 * PI / 3)) + CRLF cMensagem += "Sin(135) = " + cValToChar(Sin(3 * PI / 4)) + CRLF cMensagem += "Sin(150) = " + cValToChar(Sin(5 * PI / 6)) + CRLF cMensagem += "Sin(180) = " + cValToChar(Sin(PI)) + CRLF cMensagem += "Sin(210) = " + cValToChar(Sin(7 * PI / 6)) + CRLF cMensagem += "Sin(225) = " + cValToChar(Sin(5 * PI / 4)) + CRLF cMensagem += "Sin(240) = " + cValToChar(Sin(4 * PI / 3)) + CRLF cMensagem += "Sin(270) = " + cValToChar(Sin(3 * PI / 2)) + CRLF cMensagem += "Sin(300) = " + cValToChar(Sin(5 * PI / 3)) + CRLF cMensagem += "Sin(315) = " + cValToChar(Sin(7 * PI / 4)) + CRLF cMensagem += "Sin(330) = " + cValToChar(Sin(11 * PI / 6)) + CRLF cMensagem += "Sin(360) = " + cValToChar(Sin(2 * PI))//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do Sin") Exemplo da função Sin
Microsiga Protheus 8.11
,
Protheus 10
|