Aide LibreOffice 7.3
Calcule le cosinus d'un angle. L'angle est exprimé en radians. Le résultat est compris entre -1 et 1.
Using the angle Alpha, the Cos function calculates the ratio of the length of the side that is adjacent to the angle, divided by the length of the hypotenuse in a right-angled triangle.
Cos(Alpha) = Adjacent/Hypotenuse
Cos (Number As Double) As Double
Double
Number : expression numérique spécifiant l'angle, en radians, dont le cosinus doit être calculé.
Pour convertir des degrés en radians, multipliez les degrés par pi/180. Pour convertir des radians en degrés, multipliez les radians par 180/pi.
degrés=(radians*180)/pi
radians=(degrés*pi)/180
Pi is here the fixed circle constant with the rounded value 3.14159...
' L'exemple suivant permet, dans le cas d'un triangle rectangle, de saisir
' la sécante et l'angle (en degrés), et calcule la longueur de l'hypoténuse :
Sub ExampleCosinus
' Pi arrondi = 3,14159
Dim d1 As Double, dAngle As Double
d1 = InputBox("Saisissez la longueur du côté adjacent : ","Adjacent")
dAngle = InputBox("Saisissez l'angle alpha (en degrés) : ","Alpha")
Print "La longueur de l'hypoténuse est"; (d1 / cos (dAngle * Pi / 180))
End Sub