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
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.