Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Turbo Pascal - ACos/ArcCos Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

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: Jeudi, le 16 juin 2011