Gladir.com - Turbo Basic - ACos


En Turbo Basic, il n'existe aucune fonction «ArcCos» ou «ACos» permettant de calculer l'Arc Cosinus d'un cercle. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci:
DEF FNACos(a)
   PI=3.141592653589793
   If Abs(a)=1 Then
      FNACos = (1-a)*PI/2
   Else
      FNACos = Atn(-a/Sqr(1-a*a))+2*Atn(1)
   End If
END DEF

PRINT FNACos(0.5)
La dernière ligne contient une instruction «PRINT» retournant la valeur 1.047197580337524 lors de l'exécution de se petit programme.


Dernière mise à jour: Mardi, le 7 février 2006