Polynome du second degre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 086 fois - Téléchargée 34 fois

Contenu du snippet

Tout simplement un petit code présentant les racines et le discriminant d'un polynome du second degré.

Source / Exemple :


Public sub poly(A, B, C, D, X1, X)

D = (B*B) - (4 * (A * C))

If D = 0 then

 X1 = (0 - B) / (2 *A)

 msgbox X1

elseif D > 0 then

 X1 = ((0 - B) + sqr(D)) / (2 * A)
 X = ((0 - B) - sqr(D)) / (2 * A)

 msgbox X1
 msgbox X

elseif D < 0 then

  msgbox "Pas de solutions...."

end if

End Sub

Conclusion :


Il n'y a pas d'erreurs je pense...

A voir également

Ajouter un commentaire

Commentaires

Messages postés
6
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2010

essaie de traiter les solutions complexes , ça sera plus intéressant !
Messages postés
6
Date d'inscription
vendredi 26 mars 2004
Statut
Membre
Dernière intervention
3 août 2006

ca a l air pas mal mais comment l utiliser dans un projet VB ?

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.