Section courante

A propos

Section administrative du site

Bien qu'en Free Pascal, il existe une fonction «ArcCos» ou «ArCos» dans l'unité «Math», permettant de calculer l'Arc Cosinus d'un cercle, il peut être intéressant d'en reproduire une pour notre plaisir personnel :

  1. Program ArcCosinusSource;
  2.  
  3. Function _ArcCos(a:Real):Real;
  4. Const
  5.  PI=3.141592653589793;
  6. Begin
  7.  If Abs(a)=1.0 Then _ArcCos := (1-a)*PI/2.0
  8.                Else _ArcCos := Arctan(-a/Sqrt(1-a*a))+2*Arctan(1);
  9. End;
  10.  
  11. BEGIN
  12.  WriteLn('ArcCos(0.5)=',_ArcCos(0.5));
  13. END.

on obtiendra le résultat suivant :

ArcCos(0.5)= 1.047197551196598

Dernière mise à jour : Jeudi, le 29 décembre 2011