uses crt;
var a,b,c,delta,x1,x2:real;
begin
clrscr;
write('Nhap a: ');readln(a);
if a = 0 then
begin
writeln('Day khong phai la phuong trinh bac 2.');
readln;
exit;
end;
write('Nhap b: ');
readln(b);
write('Nhap c: ');
readln(c);
writeln;
writeln('phuong trinh bac hai: ',a:0:0,'x^2+',b:0:0,'x+',c:0:0,'=0'
);
delta:=b*b-4*a*c;
if delta<0 then
writeln('Phuong trinh vo nghiem.')
else if delta=0 then
begin
x1:=-b/(2*a);
writeln('Phuong trinh co nghiem kep x = ', x1:0:2);
end
else
begin
x1:=(-b+sqrt(delta))/(2 * a);
x2:=(-b-sqrt(delta))/(2 * a);
writeln('Phuong trinh co hai nghiem phan biet:');
writeln('x1 = ',x1:0:2);
writeln('x2 = ',x2:0:2);
end;
readln;
end.
Code này trc mik mới học , mik copy vô đây ko bt có bị sao ko nhưng bn tham khảo !