Source : Ahmed Fessi

Tâche : Ecrire programme qui résout une équation de second degré de la forme ax²+bx+c=0

Exemple :

• Entrée : a= 4, b=3, c=-7
• Sortie : x=1 ou x=-1.75

Correction Problème : Résolution de ax²+bx+c=0

Par : Ahmed Fessi

 Pascal :

program Equation2;
uses wincrt;
var
	a,b,c,x,x1,x2,d : real;
begin
	writeln ('On se propose dans ce programme de résoudre les équations de 2nd degré dansIR');
	writeln ('de forme E:ax2+bx+c');
	writeln ('Donner le a, le b et le c dans l ordre et appuyez sur enter après chaque saisie');
	writeln('donner le a'); 
	readln(a);
	writeln ('donner le b');
	readln(b);
	writeln ('donner le c');
	readln (c);

	if a=0 then
	begin
   	if b=0 then if c=0 then writeln('La Solution est IR')
     		else writeln('Pas de solution')
     	else writeln('La solution est ',-c/b:6:2);
	end

	else
	begin
	d:= (b * b) - (4 * a * c) ;
	if d < 0
		then writeln ('Pas de solution');
	if d = 0
	then
   	begin
    		x := (- b) / (2 * a);
    		writeln('E adment une racine double ',x:6:2);
   	end;
	if d > 0
	then
   	begin
   		x1 := ((- b) - sqrt (d)) / ( 2 * a);
    		x2 := ((- b) + sqrt (d)) / ( 2 * a);
    		writeln ('E admet 2 racines'); writeln (x1:6:2) ; writeln (x2:6:2);
   	end;
	end;
end.