Section courante

A propos

Section administrative du site

En Turbo Pascal, il n'existe aucune fonction «ArcCos» ou «ACos» permettant de calculer l'Arc Sinus d'un cercle. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci :

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

on obtiendra le résultat suivant :

ArcSin(0.5)=1.047197580337524

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