c)
program giai_phuong_trinh;
uses crt;
var a, b : real;
begin
clrscr;
write ('nhap hai so a, b :');readln(a,b);
writeln('phuong trinh :', a:3:1,'x+ ', b:3:1, ' =0);
if a<>0 then writeln ('phuong trinh co duy nhat nghiem x= '; '-b/a');
else if a=0 then
if b=0 then writeln ('phuong trinh co vo so nghiem');
else writeln ('phuong trinh vo nghiem');
readln
end.
a,
-Input : b,c và bx+c =0;
-output : x.
b,
B1: Nhập a,b.
B2: Nếu a<>0 thì x=-b/a và kết thúc ngược lại thì đi tiếp.
B3: Nếu b=0 thì phương trình vô số nghiệm ngược lại thì phương trình vô nghiệm.
c,
program giaipb1;
uses crt;
var a,b:real;
begin
clrscr;
writeln('Chuong Trinh Giai PT bac 1: ax+b=0');
writeln('Nhap a va b'); readln(a,b);
If (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem');
If (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem');
If (a<>0) and(b<>0) then writeln('Phuong trinh co nghiem x=',(-b)/a:4:2);
readln;
end.