Section courante

A propos

Section administrative du site

En QuickBASIC, 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 :

  1. DECLARE FUNCTION ACos! (a!)
  2. CONST PI = 3.141592653589793#
  3.      
  4. PRINT ACos(.5)
  5.  
  6. FUNCTION ACos (a)
  7.    IF ABS(a) = 1 THEN
  8.       ACos = (1 - a) * PI / 2
  9.    ELSE
  10.       ACos = ATN(-a / SQR(1 - a * a)) + 2 * ATN(1)
  11.    END IF
  12. END FUNCTION

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 : Mercredi, le 14 septembre 2016