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:

Program ArcSinus; Function ArcSin(a:Real):Real; Const  PI=3.141592653589793; Begin  If Abs(a)=1.0Then ArcSin:=PI/2.0               Else ArcSin:=ArcTan(a/Sqrt(1-a*a)); End; BEGIN  WriteLn('ArcSin(0.5)=',ArcSin(0.5)); END.

on obtiendra le résultat suivant:

ArcSin(0.5)= 5.235987755982989E-001