Viết chương trình PASCAL để nghiệm của phương trình bậc hai ax+b=0 theo nguyên tắc : Nếu a và b cùng bằng 0 thì phương trình vô số nghiệm, ngược lại nếu a bằng 0 và b khác 0 thì phương trình vô nghiệm, ngược lại phương trình có một nghiệm là -b/a Giúp e vss :<<
program Giai_phuong_trinh;
uses crt;
var a,b:real;
begin
write(‘Nhap a:’); readln(a);
write(‘Nhap b:’); readln(b);
if (a<>0) then writeln(‘Phuong trinh’,a:5:2,’x+’,b:5:2,’=0′,’ co nghiem la:’ -b/a:5:2)
else
if b=0 then writeln(‘Phuong trinh co vo so nghiem’)
else writeln(‘Phuong trinh vo nghiem’);
readln
end.
uses crt;
var a,b:real;
begin
clrscr;
write(‘a,b= ‘);readln(a,b);
if(a=0)and(b=0) then writeln(‘Phuong trinh vo so nghiem’) else
if(a=0)and(b<>0) then writeln(‘Phuong trinh vo ngiem’) else
writeln(‘Phuong trinh co 1 nghiem la: ‘,(-b)/a);
readln
end.