Section courante

A propos

Section administrative du site

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 : Dimanche, le 17 janvier 2016