En PowerBASIC, il n'existe aucune fonction «ArcSin» ou «ASin» permettant de calculer l'Arc Sinus d'un cercle. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci:
DEF FNASin(a)
PI=3.141592653589793
If Abs(a)=1 Then
FNASin = a*PI/2
Else
FNASin = Atn(a/Sqr(1-a*a))
End If
END DEF
PRINT FNASin(0.5)
La dernière ligne contient une instruction «PRINT» retournant la valeur 0.5235987901687622 lors de l'exécution de se petit programme.
Dernière mise à jour : Samedi, le 23 janvier 2016