Section courante

A propos

Section administrative du site

SIN

Sinus
Delphi/Kylix/Lazarus System

Syntaxe

Function Sin(X:Extended):Extended;

Paramètres

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

Description

Cette fonction trigonométrique retourne le «Sinus».

Algorithme

MODULE SIN(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
   RETOURNE 2.0 x X x S / (R + S x S)

Exemple

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

  1. Program SinSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.      
  6. Var I:Real;
  7.      
  8. BEGIN
  9.  I := 0;
  10.  While I < PI do Begin
  11.   WriteLn('Sin(',I:1:6,')=',Sin(I):1:6);
  12.   I := I + 0.1;
  13.  End;
  14. END.

on obtiendra le résultat suivant :

Sin(0.000000)=0.000000
Sin(0.100000)=0.099833
Sin(0.200000)=0.198669
Sin(0.300000)=0.295520
Sin(0.400000)=0.389418
Sin(0.500000)=0.479426
Sin(0.600000)=0.564642
Sin(0.700000)=0.644218
Sin(0.800000)=0.717356
Sin(0.900000)=0.783327
Sin(1.000000)=0.841471
Sin(1.100000)=0.891207
Sin(1.200000)=0.932039
Sin(1.300000)=0.963558
Sin(1.400000)=0.985450
Sin(1.500000)=0.997495
Sin(1.600000)=0.999574
Sin(1.700000)=0.991665
Sin(1.800000)=0.973848
Sin(1.900000)=0.946300
Sin(2.000000)=0.909297
Sin(2.100000)=0.863209
Sin(2.200000)=0.808496
Sin(2.300000)=0.745705
Sin(2.400000)=0.675463
Sin(2.500000)=0.598472
Sin(2.600000)=0.515501
Sin(2.700000)=0.427380
Sin(2.800000)=0.334988
Sin(2.900000)=0.239249
Sin(3.000000)=0.141120
Sin(3.100000)=0.041581

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - ArcCos
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - ArcSin
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - ArcTan
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Cos
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Tan

Dernière mise à jour : Mercredi, le 18 février 2015