Bien qu'en Visual 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 :
- 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
-
- Sub Main
- Dim S As String
- Dim R As Double
- S = ""
- R = 2
- Do While R<=1000
- S = S & "Sqrt(" &CStr(R) &")=" &CStr(Sqr(R)) &" " &CStr(SquareRoot(R)) & vbCrLf
- R=R*R
- Loop
- MsgBox S
- End Sub
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
Voir également
Dernière mise à jour : Lundi, le 19 novembre 2012