Section courante

A propos

Section administrative du site

Bien qu'en Turbo Basic, il existe une fonction «Sqr» permettant de calculer la racine carré, il peut quand même être amusant d'effectuer se genre de calcul nous même. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci:

DEF FNSquareRoot(X)
    LOCAL A,B,M,XN
    IF X=0.0 THEN FNSquareRoot=0.0:EXIT DEF
    M=1.0
    XN=X
    DO UNTIL XN<2.0  
      XN=0.25*XN
      M=2.0*M
    LOOP 
    DO UNTIL XN>=0.5
      XN=4.0*XN
      M=0.5*M
    LOOP 
    A=XN
    B=1.0-XN
    DO
       A=A*(1.0+0.5*B)
       B=0.25*(3.0+B)*B*B
    LOOP WHILE B>=1.0E-15  
    FNSquareRoot=A*M
END DEF

R=2.0
DO UNTIL R>1000.0
   PRINT "Sqrt("+STR$(R)+")="+STR$(FNSquareRoot(R))
   R=R*R        
LOOP

on obtiendra le résultat suivant:

Sqrt(2)= 1.41421
Sqrt(4)= 2.0000
Sqrt(16)= 4.0000
Sqrt(256)= 16.0000


Dernière mise à jour : Mardi, le 28 juillet 2015