Viết thuật toán.Giải phương trình ax+b=0 Mọi người giúp em với ạ em sẽ cho 5*

- Thuật toán giải phương trình ax + b = 0

+ Bước 1 : nhập 2 hệ số a, b

+ Bước 2 :

+ Bước 2.1 : nếu a = 0 và b = 0 thì phương trình vô số nghiệm

+ Bước 2.2 : nếu a = 0 và b <> 0 thì phương trình vô nghiệm

+ Bước 2.3 : nếu a <> 0 thì nghiệm x = -b / a

+ Bước 3 : đưa ra thông báo

+ Bước 4 : kết thúc

uses crt;

var a,b :real;

begin

clrscr;

writeln('Nhap he so a,b: ');readln(a,b);

writeln('PT co dang: (',a:0:4,')x + (',b:0:4,') = 0');

If (a=0) and (b<>0) then writeln('PT vo nghiem');

If (a=0) and (b=0) then writeln('PT vo so nghiem');

If a<>0 then writeln('Nghiem cua pt la: ',(-b)/a:0:4);

readln;

end.