Section courante

A propos

Section administrative du site

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

  1. Program ArcSinus;
  2.  
  3. {$APPTYPE CONSOLE}
  4.      
  5. Uses SysUtils;
  6.      
  7. Function _ArcTan(X:Real):Real;
  8. Var
  9.  A,B:Real;
  10.  N:Integer;
  11. Begin
  12.  A := 1.0 / Sqrt(1.0 + (X * X));
  13.  B := 1.0;
  14.  For N:=1 to 11 do Begin
  15.   A := (A + B) / 2.0;
  16.   B := Sqrt(A * B);
  17.  End;
  18.  _ArcTan:=X/(Sqrt(1.0+(X*X))*A);
  19. End;
  20.      
  21. Function _ArcSin(a:Real):Real;Begin
  22.  If Abs(a)=1.0Then _ArcSin:=PI/2.0
  23.               Else _ArcSin:=_ArcTan(a/Sqrt(1.0-a*a));
  24. End;
  25.      
  26. BEGIN
  27.  WriteLn('ArcSin(0.5)=',_ArcSin(0.5):0:15);
  28. END.

on obtiendra le résultat suivant :

ArcSin(0.5)=0.523598787005540

Dernière mise à jour : Dimanche, le 17 août 2014