Section courante

A propos

Section administrative du site

COS

 Cosinus
Delphi/Kylix/Lazarus System

Syntaxe

Function Cos(X: Extended): Extended;

Paramètres

Nom Description
X Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter

Description

Cette fonction trigonométrique retourne le «Cosinus».

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 à π :

  1. Program CosSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.      
  6. Var I:Real;
  7.      
  8. BEGIN
  9.  I := 0;
  10.  While I < PI do Begin
  11.   WriteLn('Cosinus(',I:1:6,')=',Cos(I):1:6);
  12.   I := I + 0.1;
  13.  End;
  14. END.

on obtiendra le résultat suivant :

Cosinus(0.000000)=1.000000
Cosinus(0.100000)=0.995004
Cosinus(0.200000)=0.980067
Cosinus(0.300000)=0.955336
Cosinus(0.400000)=0.921061
Cosinus(0.500000)=0.877583
Cosinus(0.600000)=0.825336
Cosinus(0.700000)=0.764842
Cosinus(0.800000)=0.696707
Cosinus(0.900000)=0.621610
Cosinus(1.000000)=0.540302
Cosinus(1.100000)=0.453596
Cosinus(1.200000)=0.362358
Cosinus(1.300000)=0.267499
Cosinus(1.400000)=0.169967
Cosinus(1.500000)=0.070737
Cosinus(1.600000)=-0.029200
Cosinus(1.700000)=-0.128845
Cosinus(1.800000)=-0.227202
Cosinus(1.900000)=-0.323290
Cosinus(2.000000)=-0.416147
Cosinus(2.100000)=-0.504846
Cosinus(2.200000)=-0.588501
Cosinus(2.300000)=-0.666276
Cosinus(2.400000)=-0.737394
Cosinus(2.500000)=-0.801143
Cosinus(2.600000)=-0.856889
Cosinus(2.700000)=-0.904072
Cosinus(2.799999)=-0.942222
Cosinus(2.899999)=-0.970958
Cosinus(2.999999)=-0.989992
Cosinus(3.099999)=-0.999135

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - ArcCos
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - ArcSin
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - ArcTan
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Sin
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Tan

Dernière mise à jour : Mercredi, le 18 février 2015