Bien qu'en QuickPascal, il n'existe pas de fonction «ArcCos» ou «ArCos» permettant de calculer l'Arc Cosinus d'un cercle, mais il peut être intéressant d'en reproduire une pour notre plaisir personnel:
Program ArcCosinus;
Function ArcCos(a:Real):Real;Begin
If Abs(a)=1.0 Then ArcCos := (1-a)*PI/2.0
Else ArcCos := Arctan(-a/Sqrt(1-a*a))+2*Arctan(1);
End;
BEGIN
WriteLn('ArcCos(0.5)=',ArcCos(0.5));
END.
on obtiendra le résultat suivant:
ArcCos(0.5)= 1.047197551196598
Dernière mise à jour : Dimanche, le 4 mai 2014