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 :
- <%
- Function SquareRoot(X)
- Dim A,B,M,XN
- If X=0.0Then
- SquareRoot =0.0
- Else
- M=1.0
- XN=X
- Do While XN>=2.0
- XN=0.25*XN
- M=2.0*M
- Loop
- Do While 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 Until B<1.0E-15
- SquareRoot=A*M
- End If
- End Function
-
- R=2
- Do While R<=1000
- Response.Write "Sqrt(" & CStr(R) & ")=" & CStr(Sqr(R)) & " " & CStr(SquareRoot(R)) & "<BR>"
- R=R*R
- Loop
- %>
on obtiendra le résultat suivant :
Sqrt(2)= 1.41421 1.41421Sqrt(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