Section courante

A propos

Section administrative du site

En Turbo Pascal pour Windows, il n'existe pas de 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. Uses WinCrt;
  4.  
  5. Function ArcTan(X:Real):Real;
  6. Var
  7.  A,B:Real;
  8.  N:Integer;
  9. Begin
  10.  A := 1.0 / Sqrt(1.0 + (X * X));
  11.  B := 1.0;
  12.  For N:=1 to 11 do Begin
  13.   A := (A + B) / 2.0;
  14.   B := Sqrt(A * B);
  15.  End;
  16.  ArcTan:=X/(Sqrt(1.0+(X*X))*A);
  17. End;
  18.  
  19. Function ArcSin(a:Real):Real;Begin
  20.  If Abs(a)=1.0Then ArcSin:=PI/2.0
  21.               Else ArcSin:=ArcTan(a/Sqrt(1.0-a*a));
  22. End;
  23.  
  24. BEGIN
  25.  WriteLn('ArcSin(0.5)=',ArcSin(0.5));
  26. END.

on obtiendra le résultat suivant :

ArcSin(0.5)= 5.235987755982989E-001

Dernière mise à jour : Dimanche, le 10 décembre 2017