Racine carré sans sqrt

Description

Ce programme est très simple. Il reprend une formule de math et la calcul. son but est de calculer une racine carré sans utiliser la fonction sqrt de Visual basic (peut être pratique des fois).

Pour calculer la racine de a, on choisi une valeur de départ avec Xo² > = a. ensuite Xn+1 = 1/2(Xn + a/Xn). Chaque fois que la formule est executé, on obtien une valeur plus exacte de la racine.

Pour ce code il vous faut une form, avec une textbox et un command button.

Source / Exemple :


Private Sub Command1_Click()

Dim racine As Byte
b = 1
racine = Text1.Text
Do
b = b + 1
i = b * b

Loop Until i > racine

xnew = b
MsgBox xnew
Do
xold = xnew
xnew = 1 / 2 * (xold + Text1.Text / xold)
Loop Until xold - xnew < 0.00000000000001
MsgBox xnew

End Sub

Conclusion :


Plus de bugs connus grace à warny. Voila, je vous conseille de tout de même ne pas mettre trop de zéros, la boucle risque de prendre longtemps, voir même de planter.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.