Section courante

A propos

Section administrative du site

COS

Cosinus
Turbo Pascal 1+ 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».

Remarques

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. Program CosSamples;
  2.  
  3. Var I:Real;
  4.  
  5. BEGIN
  6.  I := 0;
  7.  While I < PI do Begin
  8.   WriteLn('Cosinus(',I:1:6,')=',Cos(I):1:6);
  9.   I := I + 0.1;
  10.  End;
  11. 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

Turbo Pascal - Mathématique - Cosinus

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 135.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1220.

Dernière mise à jour : Dimanche, le 25 janvier 2015