COS |
Cosinus |
|---|---|
| Turbo Pascal 1+ | System |
Syntaxe
| Function Cos(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 «Cosinus».
Remarques
- Le résultat et sa précision dépendront beaucoup du mode de traitement de l'unité mathématique de calcul, soit le coprocesseur mathématique 80x87 (l'option de la directive de compilation {$N+}) ou de l'émulateur de coprocesseur mathématique utilisable avec l'option {$E+}.
- Le paramètre r est une expression de type réel. Le résultat est le cosinus de r. La fonction Cos suppose que r représente un angle en radians.
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 à π :
on obtiendra le résultat suivant :
Cosinus(0.000000)=1.000000Cosinus(0.100000)=0.995004
Cosinus(0.200000)=0.980067
Cosinus(0.300000)=0.955336
Cosinus(0.400000)=0.921061
Cosinus(0.500000)=0.877583
Cosinus(0.600000)=0.825336
Cosinus(0.700000)=0.764842
Cosinus(0.800000)=0.696707
Cosinus(0.900000)=0.621610
Cosinus(1.000000)=0.540302
Cosinus(1.100000)=0.453596
Cosinus(1.200000)=0.362358
Cosinus(1.300000)=0.267499
Cosinus(1.400000)=0.169967
Cosinus(1.500000)=0.070737
Cosinus(1.600000)=-0.029200
Cosinus(1.700000)=-0.128845
Cosinus(1.800000)=-0.227202
Cosinus(1.900000)=-0.323290
Cosinus(2.000000)=-0.416147
Cosinus(2.100000)=-0.504846
Cosinus(2.200000)=-0.588501
Cosinus(2.300000)=-0.666276
Cosinus(2.400000)=-0.737394
Cosinus(2.500000)=-0.801143
Cosinus(2.600000)=-0.856889
Cosinus(2.700000)=-0.904072
Cosinus(2.799999)=-0.942222
Cosinus(2.899999)=-0.970958
Cosinus(2.999999)=-0.989992
Cosinus(3.099999)=-0.999135
Voir également
Turbo Pascal - Mathématique - Cosinus
Référence
Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 135.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1220.
Dernière mise à jour : Dimanche, le 25 janvier 2015