Section courante

A propos

Section administrative du site

SIN

 Sinus
Fortran

Syntaxe

FUNCTION SIN(n)

Paramètres

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

Description

Cette fonction trigonométrique retourne le «Sinus».

Algorithme

MODULE SIN(X)
   R ← X 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.     REAL I,PI
  3.     PARAMETER (PI = 3.14159)
  4.     I = 0
  5.     DO WHILE (I < PI)
  6.         PRINT'(a, f7.5, a, f7.5)', 'Sin(', I, ')=', sin(I)
  7.         I = I + 0.1
  8.     END DO
  9. END  

on obtiendra le résultat suivant :

Sin(0.00000)=0.00000
Sin(0.10000)=0.09983
Sin(0.20000)=0.19867
Sin(0.30000)=0.29552
Sin(0.40000)=0.38942
Sin(0.50000)=0.47943
Sin(0.60000)=0.56464
Sin(0.70000)=0.64422
Sin(0.80000)=0.71736
Sin(0.90000)=0.78333
Sin(1.00000)=0.84147
Sin(1.10000)=0.89121
Sin(1.20000)=0.93204
Sin(1.30000)=0.96356
Sin(1.40000)=0.98545
Sin(1.50000)=0.99749
Sin(1.60000)=0.99957
Sin(1.70000)=0.99166
Sin(1.80000)=0.97385
Sin(1.90000)=0.94630
Sin(2.00000)=0.90930
Sin(2.10000)=0.86321
Sin(2.20000)=0.80850
Sin(2.30000)=0.74571
Sin(2.40000)=0.67546
Sin(2.50000)=0.59847
Sin(2.60000)=0.51550
Sin(2.70000)=0.42738
Sin(2.80000)=0.33499
Sin(2.90000)=0.23925
Sin(3.00000)=0.14112
Sin(3.10000)=0.04158

Dernière mise à jour : Dimanche, le 23 novembre 2014