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

En Turbo Pascal, il n'existe aucune fonction «ArcSin» ou «ASin» 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 ArcSin(a:Real):Real;
  2. Const
  3.  PI=3.141592653589793;
  4. Begin
  5.  If Abs(a)=1.0Then ArcSin:=PI/2.0
  6.               Else ArcSin:=ArcTan(a/Sqrt(1-a*a));
  7. End;
  8.  
  9. BEGIN
  10.  WriteLn(ArcSin(0.5));
  11. END.

on obtiendra le résultat suivant :

ArcSin(0.5)=0.5235987901687622


Dernière mise à jour: Jeudi, le 16 juin 2011