Section courante

A propos

Section administrative du site

En Turbo Pascal pour Windows, il existe déjà une fonction permettant de connaître le Sinus. Cependant, il peut être intéressant d'en reproduire une pour notre plaisir personnel :

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

on obtiendra le résultat suivant :

Sinus 0.0 0.0000000000
Sinus 0.1 0.0998334166
Sinus 0.2 0.1986693308
Sinus 0.3 0.2955202067
Sinus 0.4 0.3894183423
Sinus 0.5 0.4794255386
Sinus 0.6 0.5646424734
Sinus 0.7 0.6442176872
Sinus 0.8 0.7173560909
Sinus 0.9 0.7833269096
Sinus 1.0 0.8414709848
Sinus 1.1 0.8912073601
Sinus 1.2 0.9320390860
Sinus 1.3 0.9635581854
Sinus 1.4 0.9854497300
Sinus 1.5 0.9974949866
Sinus 1.6 0.9995736030
Sinus 1.7 0.9916648105
Sinus 1.8 0.9738476309
Sinus 1.9 0.9463000877
Sinus 2.0 0.9092974268
Sinus 2.1 0.8632093666
Sinus 2.2 0.8084964038
Sinus 2.3 0.7457052122
Sinus 2.4 0.6754631806
Sinus 2.5 0.5984721441
Sinus 2.6 0.5155013718
Sinus 2.7 0.4273798802
Sinus 2.8 0.3349881502
Sinus 2.9 0.2392493292
Sinus 3.0 0.1411200081
Sinus 3.1 0.0415806624


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