Section courante

A propos

Section administrative du site

COS

 Cosinus
Fortran

Syntaxe

FUNCTION COS(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 «Cosinus».

Algorithme

MODULE COS(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
   S ← S x S
   RETOURNE (S - R) / (S + R)

Exemple

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

  1. PROGRAM cossamples
  2.     REAL I,PI
  3.     PARAMETER (PI = 3.14159)
  4.     I = 0.0
  5.     DO WHILE (I < PI)
  6.         PRINT'(a, f7.5, a, f7.5)', 'Cosinus(', I ,')=', cos(I)
  7.         I = I + 0.1
  8.     END DO
  9. END  

on obtiendra le résultat suivant :

Cosinus(0.00000)=1.00000
Cosinus(0.10000)=0.99500
Cosinus(0.20000)=0.98007
Cosinus(0.30000)=0.95534
Cosinus(0.40000)=0.92106
Cosinus(0.50000)=0.87758
Cosinus(0.60000)=0.82534
Cosinus(0.70000)=0.76484
Cosinus(0.80000)=0.69671
Cosinus(0.90000)=0.62161
Cosinus(1.00000)=0.54030
Cosinus(1.10000)=0.45360
Cosinus(1.20000)=0.36236
Cosinus(1.30000)=0.26750
Cosinus(1.40000)=0.16997
Cosinus(1.50000)=0.07074
Cosinus(1.60000)=-.02920
Cosinus(1.70000)=-.12884
Cosinus(1.80000)=-.22720
Cosinus(1.90000)=-.32329
Cosinus(2.00000)=-.41615
Cosinus(2.10000)=-.50485
Cosinus(2.20000)=-.58850
Cosinus(2.30000)=-.66628
Cosinus(2.40000)=-.73739
Cosinus(2.50000)=-.80114
Cosinus(2.60000)=-.85689
Cosinus(2.70000)=-.90407
Cosinus(2.80000)=-.94222
Cosinus(2.90000)=-.97096
Cosinus(3.00000)=-.98999
Cosinus(3.10000)=-.99914

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