Visual basic: algo résolvant une équation du second degré

Version imprimable

Bonsoir à tous!

J'ai un petit exercice à faire: écrire un algo sous visual basic qui résout n'importe quelle équation du second dégré.
J'ai déjà écri un algo mais il bug de temps en temps...

Est ce que quelqu'un aurait la gentillesse de m'apporter son aide? Merci

En ce qui concerne l'interface graphique, il y a juste un bouton qui lance la saisie des coefficient et la résolution de l'équation.

Algo:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim delta As Integer
Dim x As Integer
Dim x1 As Integer
Dim x2 As Integer
'Déclaration des variables
 
 
 
 
Private Sub Command1_Click()
'Algorithme qui résout une équation du second degré
 
a = InputBox("A=", "**SAISIE**")
b = InputBox("B=", "**SAISIE**")
c = InputBox("C=", "**SAISIE**")
 
If a = 0 And b = 0 And c = 0 Then
   MsgBox ("Tout est solution")
 
   ElseIf a = 0 And b = 0 And c <> 0 Then
        MsgBox ("Impossible de résoudre cette équation")
 
          ElseIf a <> 0 Then
                 delta = (b * b) - 4 * a * c
 
End If
 
   If delta < 0 Then
       MsgBox ("Pas de solution")
 
       ElseIf delta = 0 Then
              x = (-b) / (2 * a)
              MsgBox ("Il existe une unique solution qui est " & x)
 
          Else: x1 = ((-b) - (delta ^ (1 / 2))) / (2 * a)
                 x2 = ((-b) + (delta ^ (1 / 2))) / (2 * a)
                 MsgBox ("Il existe deux solutions qui sont " & x1 & " et " & x2)
 
 
 
End If
 
End Sub

:lol: :lol:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim delta As Integer
Dim x As Integer
Dim x1 As Integer
Dim x2 As Integer
'Déclaration des variables
 
 
 
 
Private Sub Command1_Click()
'Algorithme qui résout une équation du second degré
 
a = InputBox("A=", "**SAISIE**")
b = InputBox("B=", "**SAISIE**")
c = InputBox("C=", "**SAISIE**")
 
If a = 0 And b = 0 And c = 0 Then
   MsgBox ("Tout est solution")
 
   ElseIf a = 0 And b = 0 And c <> 0 Then
        MsgBox ("Impossible de résoudre cette équation")
 
          ElseIf a <> 0 Then
                 delta = (b * b) - 4 * a * c
 
 
 
   If delta < 0 Then
       MsgBox ("Pas de solution")
 
       ElseIf delta = 0 Then
              x = (-b) / (2 * a)
              MsgBox ("Il existe une unique solution qui est " & x)
 
          Else: x1 = ((-b) - (delta ^ (1 / 2))) / (2 * a)
                 x2 = ((-b) + (delta ^ (1 / 2))) / (2 * a)
                 MsgBox ("Il existe deux solutions qui sont " & x1 & " et " & x2)
 
 
End If
End If
 
End Sub

Je crois juste qu'il fallait déplacer le End if qui était sous le calcul de delta et le mettre à la fin comme ci-dessus. Essaie le je crois qu'il marche très bien

02/12/2005, 09h47
Megaxel

N'oublie pas le cas (trivial) a = 0, et b et c sont non-nuls. Il fait planter la division par 2a...
04/12/2005, 23h54
mauriiice

Citation:

Envoyé par Megaxel

N'oublie pas le cas (trivial) a = 0, et b et c sont non-nuls. Il fait planter la division par 2a...

Justement, c'est ce cas la qui me pause problème. Avec le changement de place du "end if", la division ne plante pas mais, lors de ce cas la, l'ago ne s'execute pas.

...

Salut

L'incovénient avec les InputBox, c'est qu'ils rendent la validation de saisie un peu tordue:
Code:

1 2 3 4 5 6 a = 0 Do While (a <= 0) or (a = "") ' et pour éviter un champ vide ' le 3e paramètre est la valeur par défaut ' ça évite de saisir n'importe quoi... a = InputBox ("A = ", "**SAISIE**", "1") Loop
De plus, il serait bon de vérifier si a est vide (or (a = "")) ou si tu veux si l'utilisateur n'a rien saisi ou effacé la valeur par défaut... car en transformant un string vide en entier on obtient fatalement zéro.

Si je peux me permettre, n'y vois rien de malicieux, c'est juste une remarque, donc, si je peux me permettre, je trouve que tes indentations ne rendent pas le code plus lisible... surtout avec les if et elseif... faut être prudent et adopter des habitudes... heu... standard, disons.

05/12/2005, 08h21
cyrill.gremaud

attention aussi a sa : si a = 0 => error... car 2*a = 0 donc division par 0 = nombre complex...

et il faudrais pas faire sqrt(Delta) encore ???

Bonjour,
Un modèle d'équation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim delta As Double
Dim premiereRacine As Double
Dim secondeRacine As Double
a = 0
While a = 0
    a = InputBox("Entrez une valeur pour a")
Wend
b = InputBox("Entrez une valeur pour b")
c = InputBox("Entrez une valeur pour c")
delta = b * b - 4 * a * c
If delta < 0 Then
    MsgBox "Pas de racine réelle."
Else
    If delta = 0 Then
       MsgBox "Une racine double : " & (0 - b) / (2 * a)
    Else
        premiereRacine = (-b - Sqr(delta)) / (2 * a)
        secondeRacine = (-b + Sqr(delta)) / (2 * a)
        MsgBox "Les racines sont " & premiereRacine & " et " & secondeRacine
    End If
End If
 
End Sub

jpleroisse

05/12/2005, 13h06
sovo

Citation:

Envoyé par mauriiice

écrire un algo sous visual basic qui résout n'importe quelle équation du second dégré

Citation:

Envoyé par Megaxel

N'oublie pas le cas (trivial) a = 0, et b et c sont non-nuls

Citation:

Envoyé par mauriiice

Justement, c'est ce cas la qui me pause problème

vu le probleme qui a ete pose je croit que tu ne va pas resoudre tous les probleme car tu doit aussi pense au cas ou delta (le discriminant) est inferieure a 0 (les solutions sont des complexes).

Voila mon algo final:

ALGO:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Option Explicit 
Dim a As Single
Dim b As Single 
Dim c As Single 
Dim delta As Single 
Dim x As Single 
Dim x1 As Single  
'Déclaration des variables 
 
 
 
 
Private Sub Command1_Click() 
'Algorithme qui résout une équation du second degré 
 
a = InputBox("A=", "**SAISIE**") 
b = InputBox("B=", "**SAISIE**") 
c = InputBox("C=", "**SAISIE**") 
 
If a = 0 And b = 0 And c = 0 Then 
   MsgBox ("Tout est solution") 
 
   ElseIf a = 0 And b = 0 And c <> 0 Then 
        MsgBox ("Impossible de résoudre cette équation") 
 
          ElseIf a=0 And b<>0 Then
                 x = (-c)/b
                 MsgBox("Il existe une unique solution qui est " & x)
 
                 ElseIf a <> 0 Then 
                         delta = (b * b) - 4 * a * c 
 
 
 
   If delta < 0 Then 
       MsgBox ("Pas de solution") 
 
       ElseIf delta = 0 Then 
              x = (-b) / (2 * a) 
              MsgBox ("Il existe une unique solution qui est " & x) 
 
          Else: x = ((-b) - (delta ^ (1 / 2))) / (2 * a) 
                 x1 = ((-b) + (delta ^ (1 / 2))) / (2 * a) 
                 MsgBox ("Il existe deux solutions qui sont " & x & " et " & x1) 
 
 
End If 
End If 
 
End Sub

Il résoud tout les cas sauf le cas où on obtient une équation du type Ax² + C = 0

Je suis parti du principe que l'utilisateur rentrera obligatoirement un nombre quelconque, c'est à dire qu'aucune des saisies ne sera égales à "".

a++ :-)

05/12/2005, 14h16
leroissejp

Bonjour, Le code que je t'ai passé fait exactement la même chose.

jpleroisse
05/12/2005, 14h23
mauriiice

Citation:

Dim a As Double

premiereRacine = (-b - Sqr(delta)) / (2 * a)
secondeRacine = (-b + Sqr(delta)) / (2 * a)

Salut!

Merci mais je suis obligé de me référer à ce que j'ai vu en cour.
A quoi correspond l'élément "double" ? Est ce la déclaration d'un réel?

Ensuite, quelle est la fonction exacte de "sqr", je suppose que ça calcule la formule dite plus haut.

Ca me sera utile pour mes propres connaisances!

++
05/12/2005, 14h28
ouskel'n'or

Ça marche ?
Et pourtant, là -> tu as un pb...

Citation:

MgsBox("Il existe une unique qui est " & x)

:lol:
05/12/2005, 14h34
mauriiice

Citation:

Envoyé par ouskel'n'or

Ça marche ?
Et pourtant, là -> tu as un pb...

Citation:

MgsBox("Il existe une unique qui est " & x)

:lol:

Si tu fais allusion à l'oubli du mot "solution", j'ai édité mon message :)
05/12/2005, 14h44
ouskel'n'or

Non, je faisais allusion à MgsBox qui me semblait être un anagramme très savant de Msgbox... mais c'était juste pour taquiner... :wink:

A+
05/12/2005, 15h01
mauriiice

Citation:

Envoyé par ouskel'n'or

Non, je faisais allusion à MgsBox qui me semblait être un anagramme très savant de Msgbox... mais c'était juste pour taquiner... :wink:

A+

J'avais parfaitement compri que tu cherchais à taquiner grace au smiley à la fin de ton message :lol:

Cette fois, j'ai édité la bonne chose :wink:

++
05/12/2005, 17h16
leroissejp

Bonsoir, mauriiice

Double = la valeur la plus élevée d'un type de données Double est 1,79769313486232D+308, soit environ 1,8 multiplié par 10 à la puissance 308. Quand D sépare la mantisse de l'exposant dans un littéral numérique, la valeur est traitée comme une valeur de type Double.

La Function Sqr, Renvoie une valeur de type Double indiquant la racine carrée d'un nombre.

jpleroisse