begin process at 2008 07 06 20:32:53
1 205 765 membres
328 nouveaux aujourd'hui
14 119 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RESOLUTION D'EQUATIONS DU TROISIEME DEGRE'


Information sur la source

Catégorie :Maths Source .NET ( DotNet ) Classé sous : arctan, utiliser lenombrepi, Fonctions trigo Niveau : Débutant Date de création : 30/01/2008 Date de mise à jour : 30/01/2008 23:41:50 Vu : 3 860

Note :
Aucune note

Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

Description

Option Explicit
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Private Sub Command1_Click()
Const PI As Single = 3.14159265358979
Dim e As Long
Dim f As Long
Dim g As Long
Dim p As Long
Dim q As Long
Dim k As Long
Dim x As Integer
Dim t As Integer
Dim s1 As Long
Dim s2 As Long
Dim s3 As Long
Dim s4 As Long
Dim s5 As Long
Dim s6 As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
On Error Resume Next
e = b / (3 * a)
f = c / a
g = d / a
p = (-3 * (e ^ 2)) + f
q = (2 * (e ^ 3)) - (e * f) + g
k = ((4 * (p ^ 3)) / 27) + (q ^ 2)
If k < 0 Then
   x = ((3 * q) / (2 * p)) * Sqr(-3 / p)
   t = (1 / 3) * (Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1))
   s1 = -e + Sqr(-4 * p / 3) * Cos(t)
   s2 = -e + Sqr(-4 * p / 3) * Cos(t + 2 * PI / 3)
   s3 = -e + Sqr(-4 * p / 3) * Cos(t + 4 * PI / 3)
   Text1.Text = " Les trois solutions sont : " & s1 & " et " & s2 & " et " & s3
   Text2.Text = "  "
   Text3.Text = " "
   Text4.Text = " "
ElseIf k = 0 Then
   s4 = -e - ((4 * q) ^ (1 / 3))
   s5 = -e + ((q / 2) ^ (1 / 3))
   Text1.Text = " Les deux solutions sont : " & s4 & " et " & s5
   Text2.Text = "  "
   Text3.Text = "  "
   Text4.Text = "  "
Else
   s6 = -e + (((-q + Sqr(k)) / 2) ^ (1 / 3)) - (((q + Sqr(k)) / 2) ^ (1 / 3))
   Text1.Text = " La solution est : " & s6
   Text2.Text = "  "
   Text3.Text = "  "
   Text4.Text = "  "
End If
End Sub
Private Sub Command2_Click()
   Text1.Text = "  "
   Text2.Text = "  "
   Text3.Text = "  "
   Text4.Text = "  "
   Text1.SetFocus
End Sub

Source

  • Anciens livres de math
Anciens livres de math

Conclusion

Des erreurs dans ce programme que je n'arrive pas a devoiler surtout    
l'utilisation des variables. Je vous demande de m'aider
30 janvier 2008 23:41:50 :
Precision du problemme
  • signaler à un administrateur
    Commentaire de CFCTABLE le 31/01/2008 16:05:46

    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.

Ajouter un commentaire

Discussions en rapport avec ce code source

Pub



Appels d'offres

WEB DESIGN
Budget : 1 000€
Plugin Dialer outlook
Budget : 2 000€
Travail graphique- ill...
Budget : 1 000€

Snippets en rapport

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS