Racine carré sans sqrt

Soyez le premier à donner votre avis sur cette source.

Vue 6 579 fois - Téléchargée 254 fois

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

Ajouter un commentaire

Commentaires

cs_mic
Messages postés
77
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
19 septembre 2012
-
merci Explorer, je manque un peu de temps, mais je vais essayer de déposer d'autres sources, plus avancés que celle ci. Bonne programmation à tous
cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12 -
Et bien mic ne te laisses pas décourager pour si peux de toute façon ce n'est pas grave si elle existe sur le site, tu imagines si à chaque fois un constructeur de voiture devrait enlever la voiture qu'il a imaginée du marcher on devrait tous rouler en 2CV!!!!!des doublons(voir plus.....il y en a de partout...Certaines personnes ne font que déplacer ou arranger un prog qu'elles ont téléchargés pour en faire le leur...),alors franchement continu à faire tes progs....fait un tour par auteur et tu sera surpris!!!!!

A+
matrey
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004
-
C'est vrai que c'est déjà sur le site... mais bon ! Pour supprimer la source, Nix à pas prévu çà... Mais bon, elle est pas si pourrie que çà ta source !!! ;-)
@ +
cs_mic
Messages postés
77
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
19 septembre 2012
-
Je suis vraiment désolé, si vous voulez je peux enlever cette source enfin je crois si le site le permet.
cs_mic
Messages postés
77
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
19 septembre 2012
-
Je m'excuse, tu as tout à fait raison Zeroc, il y a une source qui ne s'appelle pas méthode de newton mais cela est marqué dans le source qui utilise cette méthode. De plus sa source est plutôt mieux puisqu'en introduisant quelques autres trucs il calcule à plus de chiffre après la virgule.

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.