Discussion :

[MEGA-STORM]

Salut !
Je veux faire un programme pour résoudre une equation du second degré !
Le programme marche 5/5 mais quand je vérifie les racines trouvées ça ne marche pas
Voilà mon code et merci d'avance

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
program secDegr;
uses wincrt ;
var a,b,c,x1,x2,cap,cap2,del:real ;
begin
 
writeln('entrez a');
readln(a);
writeln('entrez b');
readln(b);
writeln('entrez c');
readln(c);
del:=(b*b)-4*a*c ;
cap:=a+b+c;
cap2:=a-b+c;
x1 :=-(b-sqr(del))/ 2*a;
x2 :=-(b+sqr(del))/ 2*a;
 
if
cap=0 then writeln('X1 = 1 et X2 =',c/a:2:0)
else if
cap2=0 then writeln('X1 = -1 et X2 =',-c/a:2:0)
else if del>0 then
writeln('le racine x1 est : ',x1,' et le racine x2 est : ',x2:2:0)  
else if del=0 then
writeln('(admis une racine double tel que x1=x2=',x1:2:0)
else
writeln('aucune racine possible ');
 
end.

[mf.chedly]

Salut,

Code :

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

1
2
cap:=a+b+c;
cap2:=a-b+c;

Ami cette instruction n'est pas nécessaire si a+b+c=0 ou a-b+c=0 et tu calcule avec Delta tu trouve la mémé résultat mais tu étudier ca pour faciliter le résoudre d'équation de seconde degré

une autre chose tu sais que l'équation de 1er degré est une cas particulier de l'équation de seconde degré alors il faut vérifier si a=0 et b=0 et c=0 alors la solution sera toute IR et si a=0 et b=0 alors pas de solution il faut vérifier ces cas après tu calcule avec Delta

Voila un code source qui marche 100%:

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
 
program esd;
uses wincrt;
 var
  a,b,c:integer;
  D:real;
begin
 write('a= ');readln(a);
 write('b= ');readln(b);
 write('c= ');readln(c);
 D:=b*b-4*a*c;
 if a=0 then
 begin
  if b=0 then
  begin
   if c=0 then
    writeln('Solution: ensemble R')
 else
    writeln('Pas de solution');
  end
  else
   writeln('Solution: ',(-c/b):5:3);
 end
 else
 begin
  if D<0 then writeln('Pas de solution');
  if D=0 then writeln('Solution 1: ',-b/(2*a):5:3);
  if D>0 then writeln('Solution 1: ',(-b-sqrt(D))/(2*a):5:3,'||| Solution 2: ',(-b+sqrt(D))/(2*a):5:3);
 end;
end.

[MEGA-STORM]

ca marche 5/5 mercii bien fréro
mais ou est le problème dans mon code ??
comem il faut savoir ! merci d'avance