Langage de programmation - Visual Basic (VB) - Référence de procédures et de fonctions

COS	Cosinus
Visual Basic

Syntaxe

Function COS(n As Double) As Double

Paramètres

Nom	Description
n	Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter. Le paramètre n peut être toute expression numérique valide exprimant un angle en radians.

Description

Cette fonction trigonométrique permet de retourner le cosinus.

Remarques

La fonction Cos prend un angle et renvoie le rapport des deux côtés d'un triangle rectangle. Le rapport est la longueur du côté adjacent à l'angle divisé par la longueur de l'hypoténuse. Le résultat est compris entre -1 et 1.
Pour convertir des degrés en radians, multipliez les degrés par π / 180. Pour convertir les radians en degrés, multipliez les radians par 180 / π.
L'exemple suivant utilise la fonction Cos pour renvoyer le cosinus d'un angle :
Dim MyAngle, MySecant MyAngle = 1.3 ' Définit l'angle en radians. MySecant = 1 / Cos(MyAngle) ' Calculer la sécante.

Algorithme

MODULE COS(X)
   R ← X x X
   S ← 42.0
   BOUCLE POUR I ← 10 JUSQU'A 1
      S ← 4.0 x I - 2.0 + (-R) / S
   FIN BOUCLE POUR
   S ← S x S
   RETOURNE (S - R) / (S + R)

Exemple

Voici un exemple permet d'afficher les Cosinus inférieurs à π :


				
Const PI=3.141592653589793  

 
Sub Main()


 Dim S As String

 Dim I As Double

 I = 0


 While I < PI

  S = S & "Cosinus " & I & " " & cos(I) & vbCrLf


  I = I + 0.1

 Wend 

 MsgBox S


End Sub

on obtiendra le résultat suivant :

Cosinus 0 1 Cosinus 0.1 0.9950041652780258 Cosinus 0.2 0.9800665778412416 Cosinus 0.3 0.955336489125606 Cosinus 0.4 0.9210609940028851 Cosinus 0.5 0.8775825618903728 Cosinus 0.6 0.8253356149096783 Cosinus 0.7 0.7648421872844885 Cosinus 0.8 0.6967067093471655 Cosinus 0.9 0.6216099682706645 Cosinus 1.0 0.5403023058681398 Cosinus 1.1 0.4535961214255775 Cosinus 1.2 0.3623577544766736 Cosinus 1.3 0.26749882862458735 Cosinus 1.4 0.16996714290024081 Cosinus 1.5 0.07073720166770268 Cosinus 1.6 -0.029199522301289037 Cosinus 1.7 -0.12884449429552508 Cosinus 1.8 -0.22720209469308753 Cosinus 1.9 -0.32328956686350396 Cosinus 2.0 -0.4161468365471428 Cosinus 2.1 -0.5048461045998579 Cosinus 2.2 -0.5885011172553463 Cosinus 2.3 -0.6662760212798248 Cosinus 2.4 -0.737393715541246 Cosinus 2.5 -0.8011436155469343 Cosinus 2.6 -0.8568887533689478 Cosinus 2.7 -0.9040721420170617 Cosinus 2.8 -0.9422223406686585 Cosinus 2.9 -0.9709581651495908 Cosinus 3.0 -0.9899924966004456 Cosinus 3.1 -0.9991351502732795

Dernière mise à jour : Lundi, le 19 novembre 2012

Section courante

A propos

Section administrative du site

COS