RESOLUTION D'EQUATIONS DU TROISIEME DEGRE'

Messages postés
18
Date d'inscription
samedi 1 mars 2003
Statut
Membre
Dernière intervention
14 avril 2008
- - Dernière réponse : 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

Afficher la suite 
cs_CFCTABLE
Messages postés
18
Date d'inscription
samedi 1 mars 2003
Statut
Membre
Dernière intervention
14 avril 2008
-
Déclares toutes tes variables en double précision
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.