En QuickPascal, 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:
Program ArcSinus;
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));
END.
on obtiendra le résultat suivant:
ArcSin(0.5)= 5.235987755982989E-001
Dernière mise à jour : Dimanche, le 4 mai 2014