PatriceVB
Messages postés562Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention26 décembre 2007 22 déc. 2002 à 13:23
Il existe une fonction rechercher sur le site :
regarde en haut ! tape racine carrée et sélectionne sources dans la liste déroulante et tu obtiendras ces liens là :
Après trois itérations on a déjà une aproximation à 1/500000 près.
Exemple de code
Function RacineCarree(ByVal Nombre As Double, Optional ByVal Approximation As Double, Optional ByVal Precision As Double) As Double If Precision 0 Then Precision 10 ^ -6 If Approximation 0 Then Approximation 1
If Nombre = 0 Then
RacineCarree = 0
Exit Function
End If
If Nombre < 0 Then
MsgBox "Tentative de calcul de la racine carrée d'un nombre négatif"
Exit Function
End If
RacineCarree = Approximation
While Abs(RacineCarree ^ 2 - Nombre) > Precision
RacineCarree = 1 / 2 * (RacineCarree + Nombre / RacineCarree)
Wend
End Function