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 :
- Program ArcSinus;
-
- {$APPTYPE CONSOLE}
-
- Uses SysUtils;
-
- Function _ArcTan(X:Real):Real;
- Var
- A,B:Real;
- N:Integer;
- Begin
- A := 1.0 / Sqrt(1.0 + (X * X));
- B := 1.0;
- For N:=1 to 11 do Begin
- A := (A + B) / 2.0;
- B := Sqrt(A * B);
- End;
- _ArcTan:=X/(Sqrt(1.0+(X*X))*A);
- End;
-
- Function _ArcSin(a:Real):Real;Begin
- If Abs(a)=1.0Then _ArcSin:=PI/2.0
- Else _ArcSin:=_ArcTan(a/Sqrt(1.0-a*a));
- End;
-
- BEGIN
- WriteLn('ArcSin(0.5)=',_ArcSin(0.5):0:15);
- END.
on obtiendra le résultat suivant :
ArcSin(0.5)=0.523598787005540
Dernière mise à jour : Dimanche, le 17 août 2014