Section courante

A propos

Section administrative du site

ARCTAN

 ArcTangente
Turbo Pascal pour Windows System

Syntaxe

Function ArcTan(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 permet de calculer la «ArcTangente» en radians.

Algorithme

MODULE SQRT(X)
   SI X = 0.0 ALORS
      RETOURNE 0.0
   SINON
      M ← 1.0
      XN ← X
      BOUCLE FAIRE TANT QUE XN >= 2.0
         XN ← 0.25 x XN
         M ← 2.0 x M
      FIN BOUCLE FAIRE TANT QUE
      BOUCLE FAIRE TANT QUE XN < 0.5
         XN ← 4.0 x XN
         M ← 0.5 x M
      FIN BOUCLE FAIRE TANT QUE
      A ← XN
      B ← 1.0 - XN
      BOUCLE REPETER
         A ← A x (1.0 + 0.5 x B)
         B ← 0.25 x (3.0 + B) x B x B
      FIN BOUCLE JUSQU'A B ← 1.0E - 15
      RETOURNE A x M
   FIN SI

MODULE ARCTAN(X)
   A ← 1.0 / SQRT(1.0 + (X x X))
   B ← 1.0
   BOUCLE POUR N ← 1 JUSQU'A 11
      A ← (A + B) / 2.0
      B ← SQRT(A x B)
   FIN BOUCLE POUR
   RETOURNE X / (SQRT(1.0 + (X x X)) x A)

Exemple

Voici un exemple permet d'afficher les ArcTangente inférieurs à 1 :

  1. Program ArcTanSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Var R:Real;
  6.  
  7. BEGIN
  8.  R := 0.0;
  9.  While R < 1.1 do Begin
  10.   WriteLn('ArcTan(',R:1:6,')=',ArcTan(R):1:6);
  11.   R := R + 0.1;
  12.  End;
  13. END.

on obtiendra le résultat suivant :

ArcTan(0.00000)= 0.000000
ArcTan(0.10000)= 0.099668
ArcTan(0.20000)= 0.197396
ArcTan(0.30000)= 0.291457
ArcTan(0.40000)= 0.380506
ArcTan(0.50000)= 0.463648
ArcTan(0.60000)= 0.540420
ArcTan(0.70000)= 0.610726
ArcTan(0.80000)= 0.674741
ArcTan(0.90000)= 0.732815
ArcTan(1.00000)= 0.785398

Voir également

Langage de programmation - Turbo Pascal pour Windows - Référence de procédures et fonctions - COS
Langage de programmation - Turbo Pascal pour Windows - Référence de procédures et fonctions - SIN

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