Section courante

A propos

Section administrative du site

COS

Cosinus
PL/1

Syntaxe

Y=COS(X);

Paramètres

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

Description

Cette fonction trigonométrique permet de connaitre le «Cosinus» en radians.

Algorithme

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

Exemple

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

  1.  Corps: PROC options(main);
  2.       DECLARE (PI,I) float;
  3.       PI = 3.14159;   
  4.       I = 0;
  5.       DO WHILE (I < PI);
  6.             display('Cosinus(' || I || ')=' || cos(I));
  7.             I = I + 0.1;
  8.       END;
  9.  END Corps;

on obtiendra le résultat suivant :

Cosinus( 0.00000E+0000)= 1.00000E+0000
Cosinus( 1.00000E-0001)= 9.95004E-0001
Cosinus( 2.00000E-0001)= 9.80067E-0001
Cosinus( 3.00000E-0001)= 9.55337E-0001
Cosinus( 4.00000E-0001)= 9.21061E-0001
Cosinus( 5.00000E-0001)= 8.77583E-0001
Cosinus( 6.00000E-0001)= 8.25336E-0001
Cosinus( 7.00000E-0001)= 7.64842E-0001
Cosinus( 8.00000E-0001)= 6.96707E-0001
Cosinus( 9.00000E-0001)= 6.21610E-0001
Cosinus( 1.00000E+0000)= 5.40302E-0001
Cosinus( 1.10000E+0000)= 4.53596E-0001
Cosinus( 1.20000E+0000)= 3.62358E-0001
Cosinus( 1.30000E+0000)= 2.67499E-0001
Cosinus( 1.40000E+0000)= 1.69967E-0001
Cosinus( 1.50000E+0000)= 7.07370E-0002
Cosinus( 1.60000E+0000)=-2.91998E-0002
Cosinus( 1.70000E+0000)=-1.28845E-0001
Cosinus( 1.80000E+0000)=-2.27202E-0001
Cosinus( 1.90000E+0000)=-3.23290E-0001
Cosinus( 2.00000E+0000)=-4.16147E-0001
Cosinus( 2.10000E+0000)=-5.04846E-0001
Cosinus( 2.20000E+0000)=-5.88501E-0001
Cosinus( 2.30000E+0000)=-6.66276E-0001
Cosinus( 2.40000E+0000)=-7.37394E-0001
Cosinus( 2.50000E+0000)=-8.01143E-0001
Cosinus( 2.60000E+0000)=-8.56889E-0001
Cosinus( 2.70000E+0000)=-9.04072E-0001
Cosinus( 2.80000E+0000)=-9.42222E-0001
Cosinus( 2.90000E+0000)=-9.70958E-0001
Cosinus( 3.00000E+0000)=-9.89992E-0001
Cosinus( 3.10000E+0000)=-9.99135E-0001


Dernière mise à jour : Lundi, le 13 octobre 2014