Section courante

A propos

Section administrative du site

COS

 Cosinus
Turbo Pascal pour Windows System

Syntaxe

Function Cos(r:Real):Real;

Paramètres

Nom Description
r 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. Uses WinCrt;
  4.  
  5. Var I:Real;
  6.  
  7. BEGIN
  8.  I := 0;
  9.  While I < PI do Begin
  10.   WriteLn('Cosinus(',I:1:6,')=',Cos(I):1:6);
  11.   I := I + 0.1;
  12.  End;
  13. 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

Dernière mise à jour : Dimanche, le 10 décembre 2017