En QuickPascal, 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é:
Program ArcTangente;
Function Atn(X:Real):Real;
Var
A,B:Real;
N:Integer;
Begin
A := 1.0 / Sqrt(1.0 + (X * X));
B := 1.0;
For N:=1 to 11 do Begin
A := (A + B) / 2.0;
B := Sqrt(A * B);
End;
Atn:=X/(Sqrt(1.0+(X*X))*A);
End;
Var
R:Real;
BEGIN
R:=0.0;
While R<=1.1 do Begin
WriteLn('ArcTan(',R:0:5,')=',Atn(R):0:5);
R:=R+0.1;
End;
END.
on obtiendra le résultat suivant:
ArcTan(0.00000)= 0.000000ArcTan(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 4 mai 2014