Section courante

A propos

Section administrative du site

Bien qu'en Turbo Pascal pour Windows, 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 :

  1. Program ArcCosinus;
  2.  
  3. Uses WinCrt;
  4.  
  5. Function ArcCos(a:Real):Real;
  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));
  13. END.

on obtiendra le résultat suivant :

ArcCos(0.5)= 1.047197551196598

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