Section courante

A propos

Section administrative du site

En Turbo Pascal, bien qu'il existe une fonction «ArcTan» permettant de calculer l'ArcTangente d'un cercle, il peut être intéressant de le calculer nous même. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci avec un préalable la fonction de racine carré:

  1. Program ArcTangente;
  2.  
  3. Function Atn(X:Real):Real;
  4. Var
  5.  A,B:Real;
  6.  N:Integer;
  7. Begin
  8.  A := 1.0 / Sqrt(1.0 + (X * X));
  9.  B := 1.0;
  10.  For N:=1 to 11 do Begin
  11.   A := (A + B) / 2.0;
  12.   B := Sqrt(A * B);
  13.  End;
  14.  Atn:=X/(Sqrt(1.0+(X*X))*A);
  15. End;
  16.  
  17. Var
  18.  R:Real;
  19.  
  20. BEGIN
  21.  R:=0.0;
  22.  While R<=1.1 do Begin
  23.   WriteLn('ArcTan(',R:0:5,')=',Atn(R):0:5);
  24.   R:=R+0.1;
  25.  End;
  26. 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

Dernière mise à jour : Dimanche, le 17 janvier 2016