Question

Viết chương trình giải phương trình ax²+bx+c = 0 với a, b, c là 3 số nguyên.

- In ra -1 nếu phương trình vô nghiệm

- In ra 0 nếu phương trình có nghiệm bằng 0

- In ra 1 nếu phương trình có 2 nghiệm phân biệt cùng dấu

- In ra 2 nếu phương trình có 2 nghiệm phân biệt trái dấu

- In ra 3 nếu phương trình có 1 nghiệm kép khác 0

Answer 1

var a,b,c: integer;
delta: real;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
if (a<>0) and (a<>1) then
writeln('Phuong trinh cua chung ta la: ',a,'x^2 + ',b,'x + ',c,' = 0');
if a = 0 then writeln('Phuong trinh cua chung ta la: ',b,'x + ',c,' = 0');
if a = 1 then writeln('Phuong trinh cua chung ta la: x^2 + ',b,'x + ',c,' = 0');
if a = 0 then
begin
if b = 0 then if c <> 0 then write(-1);
if c = 0 then write(0);
end
else
delta:=b*b-4*a*c;
if delta<0 then write(-1);
if (-b-sqrt(delta)=0) or (-b+sqrt(delta)=0) then write(0);
if (delta > 0) and (a*c>0) then write(1);
if (delta > 0) and (a*c<0) then write(2);
if (delta = 0) and (b<>0) then write(3);
end.