Section courante

A propos

Section administrative du site

En Free Pascal, il existe une fonction «ArcSin» dans l'unité «Math», permettant de calculer l'Arc Sinus d'un cercle, il peut être intéressant d'en reproduire une pour notre plaisir personnel :

  1. Program ArcSinusSource;
  2.  
  3. Function _ArcSin(a:Real):Real;
  4. Const
  5.  PI=3.141592653589793;
  6. Begin
  7.  If Abs(a)=1.0Then _ArcSin:=PI/2.0
  8.               Else _ArcSin:=ArcTan(a/Sqrt(1-a*a));
  9. End;
  10.  
  11. BEGIN
  12.  WriteLn('ArcSin(0.5)=',_ArcSin(0.5));
  13. END.

on obtiendra le résultat suivant :

ArcSin(0.5)= 5.235987755982989E-001

Dernière mise à jour : Jeudi, le 29 décembre 2011