Section courante

A propos

Section administrative du site

SIN

Sinus
Turbo Pascal pour Windows System

Syntaxe

Function Sin(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 «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. Uses WinCrt;
  4.  
  5. Var I:Real;
  6.  
  7. BEGIN
  8.  I := 0;
  9.  While I < PI do Begin
  10.   WriteLn('Sin(',I:1:6,')=',Sin(I):1:6);
  11.   I := I + 0.1;
  12.  End;
  13. 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


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