Section courante

A propos

Section administrative du site

En QuickBASIC, il n'existe pas de fonction «ArcSin» permettant de calculer l'Arc Sinus d'un cercle. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci :

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

on obtiendra le résultat suivant :

ArcSin(0.5)= 0.5235987755982989

Dernière mise à jour : Mercredi, le 14 septembre 2016