RESOLUTION D'EQUATIONS DU TROISIEME DEGRE'
cs_CFCTABLE
Messages postés
18
Date d'inscription
samedi 1 mars 2003
Statut
Membre
Dernière intervention
14 avril 2008
-
31 janv. 2008 à 16:05
cs_CFCTABLE Messages postés 18 Date d'inscription samedi 1 mars 2003 Statut Membre Dernière intervention 14 avril 2008 - 31 janv. 2008 à 16:05
cs_CFCTABLE Messages postés 18 Date d'inscription samedi 1 mars 2003 Statut Membre Dernière intervention 14 avril 2008 - 31 janv. 2008 à 16:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/45574-resolution-d-equations-du-troisieme-degre
https://codes-sources.commentcamarche.net/source/45574-resolution-d-equations-du-troisieme-degre
31 janv. 2008 à 16:05
Dim a As Long
devient
Dim a As double
etc...
Long est un format entier
supprime Const PI As Single = 3.14159265358979 et remplace par
Dim PI As Double
PI = 4 * Atn(1)
et ça devrait marcher
J'ai refait un programme en VB6 à partir de ta formulation et les résultats semblent corrects.
je fais un zip que je poste ici.