exercice pascale

belgassem2007

عضو مميز
إنضم
19 أكتوبر 2007
المشاركات
917
مستوى التفاعل
57
ecrire un programe qui permet de resoudre l'equation : ax²+bx+c=0 aidez moi et donner une solution ecrite en pascale​
 
:besmellah2:

tu dois chercher et donner une solution et si c'est faux on te
donne l'aide et la solution correcte.

mais si tu veut la solution prête ça ne revient à rien....

commence à diviser ton programme en modules...ça sera plus simple... puis cherche à trouver les variables qu'on va utiliser...
 
program calcul;
uses wincrt ;
var a,b,c,x,y,n,m:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
y:=((b*b)-(4*a*c));
if a<>0 then
begin
n:=((-b)-(sqrt(y)))/(2*a);
m:=((-b)+(sqrt(y)))/(2*a);
end
else if b<>0 then
n:=-c/b
else if c=0 then
write('tout x est sol')
else writeln('pas de sol');
writeln('n=',n:4:1,' m=',m:4:1);
end.
 
program calcul;
uses wincrt ;
var a,b,c,x,y,n,m:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
y:=((b*b)-(4*a*c));
if a<>0 then
begin
n:=((-b)-(sqrt(y)))/(2*a);
m:=((-b)+(sqrt(y)))/(2*a);
end
else if b<>0 then
n:=-c/b
else if c=0 then
write('tout x est sol')
else writeln('pas de sol');
writeln('n=',n:4:1,' m=',m:4:1);
end.


Si racine de delta >0
alors x'=-racine de delta -b/2a ou x"=racine de delta -b/2a
sinon
Si racine de delta=0
alors x=-b/2a
sinon impossible​
 
أعلى