Equation du second degré

Version imprimable

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
program cool;
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.

J'ai touvé cette solution mais je suis trempé.
Est-ce que cette partie du programme est vraie et à quoi sert-elle exactement ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 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

Merci:king:

Ca sert à discriminer les cas où l'équation n'est pas du second degré, tout simplement...
Code:

1 2 if a=0 then begin
Tiens, a vaut zéro, donc l'équation est du premier degré : bx + c = 0
Code:

1 2 if b=0 then begin
Ah, zut ! On a aussi b = 0 donc l'équation n'est même pas du premier degré :
elle se ramène à c = 0
Code:

1 2 if c=0 then writeln('Solution: ensemble R')
L'équation 0 = 0 est toujours vraie...
Code:

1 2 3 else writeln('Pas de solution'); end
Mais par contre si c ne vaut pas zéro, l'équation c = 0 n'a pas de solution.
Fin du bloc concernant le test de c.
Code:

1 2 3 else writeln('Solution: ',(-c/b):5:3); end
On est toujours dans le bloc a = 0, mais b <> 0 : l'équation est vraiment du premier degré, solution évidente.
Fin du bloc concernant le test de b
Code:

1 2 3 4 5 6 7 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.
Et si a <> 0, alors on a une vraie équation du second degré, résolue par le discriminant.
Remarque perso : le calcul de D devrait se trouver dans ce bloc, puisqu'il ne prend son sens qu'ici, il est inutile dans les autres cas.
Remarque perso n° 2 : on voit bien l'intérêt qu'il y a à toujours documenter un code source avec des commentaires... :)

13/10/2008, 22h16
Zero_System

Merci beaucoup :), vraiment c'est genial votre expliquation
Merci ami :D :yaisse2:

:king: