Section courante

A propos

Section administrative du site

En Delphi, il existe déjà une fonction permettant de connaitre le Cosinus (Cos). Cependant, il peut être intéressant d'en reproduire une pour notre plaisir personnel :

  1. Program CosSource;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.      
  7. Function Cosinus(X:Real):Real;
  8. Var
  9.  R,S:Real;
  10.  I:Byte;
  11. Begin
  12.  R:=X*X;
  13.  S:=42.0;
  14.  For I:=10 downto 1 do S:=4.0*I-2.0+(-R)/S;
  15.  S:=S*S;
  16.  Cosinus:=(S-R)/(S+R);
  17. End;
  18.      
  19. Var
  20.  I:Real;
  21. BEGIN
  22.  I:=0;
  23.  While I<PI do Begin
  24.   WriteLn('Cosinus ',I:0:1,' ',Cosinus(I):0:10);
  25.   I:=I+0.1;
  26.  End;
  27. END.

on obtiendra le résultat suivant :

Cosinus 0.0 1.0000000000
Cosinus 0.1 0.9950041653
Cosinus 0.2 0.9800665778
Cosinus 0.3 0.9553364891
Cosinus 0.4 0.9210609940
Cosinus 0.5 0.8775825619
Cosinus 0.6 0.8253356149
Cosinus 0.7 0.7648421873
Cosinus 0.8 0.6967067093
Cosinus 0.9 0.6216099683
Cosinus 1.0 0.5403023059
Cosinus 1.1 0.4535961214
Cosinus 1.2 0.3623577545
Cosinus 1.3 0.2674988286
Cosinus 1.4 0.1699671429
Cosinus 1.5 0.0707372017
Cosinus 1.6 -0.0291995223
Cosinus 1.7 -0.1288444943
Cosinus 1.8 -0.2272020947
Cosinus 1.9 -0.3232895669
Cosinus 2.0 -0.4161468365
Cosinus 2.1 -0.5048461046
Cosinus 2.2 -0.5885011173
Cosinus 2.3 -0.6662760213
Cosinus 2.4 -0.7373937155
Cosinus 2.5 -0.8011436155
Cosinus 2.6 -0.8568887534
Cosinus 2.7 -0.9040721420
Cosinus 2.8 -0.9422223407
Cosinus 2.9 -0.9709581651
Cosinus 3.0 -0.9899924966
Cosinus 3.1 -0.9991351503


Dernière mise à jour : Dimanche, le 17 août 2014