Section courante

A propos

Section administrative du site

Bien qu'en ASP 3.0, 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 :

  1. <%
  2. Function SquareRoot(X)
  3.  Dim A,B,M,XN
  4.  If X=0.0Then
  5.   SquareRoot =0.0
  6.  Else
  7.   M=1.0
  8.   XN=X
  9.   Do While XN>=2.0
  10.    XN=0.25*XN
  11.    M=2.0*M
  12.   Loop
  13.   Do While XN<0.5
  14.    XN=4.0*XN
  15.    M=0.5*M
  16.   Loop
  17.   A=XN
  18.   B=1.0-XN
  19.   Do
  20.    A=A*(1.0+0.5*B)
  21.    B=0.25*(3.0+B)*B*B
  22.   Loop Until B<1.0E-15
  23.   SquareRoot=A*M
  24.  End If
  25. End Function
  26.  
  27. R=2
  28. Do While R<=1000
  29.   Response.Write "Sqrt(" & CStr(R) & ")=" & CStr(Sqr(R)) & " " & CStr(SquareRoot(R)) & "<BR>"
  30.   R=R*R
  31. Loop
  32. %>

on obtiendra le résultat suivant :

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


Dernière mise à jour : Mercredi, le 20 août 2014