Discussion :

[Sexyjulo]

Bonjour/bonsoir,

J'utilise virtual pascal. Je dois faire un programme capable de résoudre une équation du second degré, le programme fonctionne tres bien pour la résolution sauf pour 2 cas

dans le cas où les coefficient sont tous égales à zero il me met bien que la solution pour X= l'ensemble R (équation indéterminée) mais au lieu de me proposer de recommencer une nouvelle résolution il m'affiche une erreur :

exception
XCPT_FLOAT_INVALID_OPERATION
(C0000090 at 004011F0, TID = 03F0

dans le cas où les coefficients A=0 , B=0 et C different de zero meme schéma sauf que l'erreur change

exception XCPT_FLOAT_DIVIDE_BY_ZERO
(C000008E) at 004011F0, TID = 1548


Pourriez-vous m'aider car je suis totalement perdu je ne vois pas pourquoi il me fait ça !!!

D'avance je vous en remercie!!!

Voici le programme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
program CAPRJ001;
uses crt;
var A,B,C,DELTA,x1,x2:real;
    R:char;
 
begin
    repeat
        clrscr;
        writeln('Equation du second degre');
        writeln('==========================');
        writeln('Entrez une valeur de A');
        readln(A);
        writeln('Entrez une valeur de B');
        readln(B);
        writeln('Entrez une valeur de C');
        readln(C);
        writeln(A:8:3,'Xý+',B:8:3 ,'X+',C:8:3,'=0');
        writeln('==========================');
 
 
 
             if A=0
                then
                   begin
                       if B=0
                          then
                             begin
                                 if C=0
                                    then
                                       writeln('X= ensemble R')
                                 else
                                    writeln('Pas de solution')
                                 end
 
                       else
                          writeln('Equation du premier degre');
                          writeln('=========================');
                          writeln('X=',-C/B:8:3);
                       end
 
 
             else
                begin
 
                    DELTA:=sqr(B)-4*A*C;
 
                    if DELTA<0
                         then
                            begin
                                writeln('Racines complexes');
                                writeln('=================');
                                x1:=-B/(2*A);
                                x2:=sqrt(-DELTA/(2*A));
                                writeln('X1=',x1:8:3,'+',x2:8:3,'i');
                                writeln('X2=',x1:8:3,'-',x2:8:3,'i');
                    end;
 
                    if DELTA=0
                         then
                            begin
                                writeln('Racine double');
                                writeln('=============');
                                x1:=-B/(2*A);
                                writeln('X=',x1:8:3);
                    end;
 
                    if DELTA>0
                         then
                            begin
                                writeln('Racines reelles');
                                writeln('===============');
                                x1:=(-B+sqrt(DELTA))/(2*A);
                                x2:=(-B-sqrt(DELTA))/(2*A);
                                writeln('X1=',x1:8:3);
                                writeln('X2=',x2:8:3);
                    end;
             end;
 
    writeln('=========================');
    writeln('Voulez vous recommencer ? <O/N>');
    readln(R);
    until (R='N') or (R='n');
 
end.

[droggo]

Kei,

Tu as probablement mal délimité tes blocs begin...end ?

(c'est une erreur fréquente )

[Sexyjulo]

Re,

J'ai revérifier ce n'est pas le cas ou j'ai peu être louper un truc

[CapJack]

Déjà si tu nous recollais ton code en n'oubliant pas de l'encadrer avec des balises [code] ... [/code] (bouton #), ça rendrait les choses plus lisibles, parce que là...

[Sexyjulo]

Salut

Voilà c'est fait, désolé, j'avais pas vu que l'option est disponible

[CapJack]

Eh oui ! Il manque un begin..end !

Du coup, il peut se déclencher une division par zéro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
program CAPRJ001;
uses crt;
var A,B,C,DELTA,x1,x2:real;
    R:char;
 
begin
    repeat
        clrscr;
        writeln('Equation du second degre');
        writeln('==========================');
        writeln('Entrez une valeur de A');
        readln(A);
        writeln('Entrez une valeur de B');
        readln(B);
        writeln('Entrez une valeur de C');
        readln(C);
        writeln(A:8:3,'Xý+',B:8:3 ,'X+',C:8:3,'=0');
        writeln('==========================');
 
 
 
             if A=0
                then
                   begin
                       if B=0
                          then
                             begin
                                 if C=0
                                    then
                                       writeln('X= ensemble R')
                                 else
                                    writeln('Pas de solution')
                                 end
 
                       else
                       begin
                          writeln('Equation du premier degre');
                          writeln('=========================');
                          writeln('X=',-C/B:8:3);
                       end
                   end
 
 
             else
                begin
 
                    DELTA:=sqr(B)-4*A*C;
 
                    if DELTA<0
                         then
                            begin
                                writeln('Racines complexes');
                                writeln('=================');
                                x1:=-B/(2*A);
                                x2:=sqrt(-DELTA/(2*A));
                                writeln('X1=',x1:8:3,'+',x2:8:3,'i');
                                writeln('X2=',x1:8:3,'-',x2:8:3,'i');
                    end;
 
                    if DELTA=0
                         then
                            begin
                                writeln('Racine double');
                                writeln('=============');
                                x1:=-B/(2*A);
                                writeln('X=',x1:8:3);
                    end;
 
                    if DELTA>0
                         then
                            begin
                                writeln('Racines reelles');
                                writeln('===============');
                                x1:=(-B+sqrt(DELTA))/(2*A);
                                x2:=(-B-sqrt(DELTA))/(2*A);
                                writeln('X1=',x1:8:3);
                                writeln('X2=',x2:8:3);
                    end;
             end;
 
    writeln('=========================');
    writeln('Voulez vous recommencer ? <O/N>');
    readln(R);
    until (R='N') or (R='n');
 
end.