Hãy viết thuật toán của bài toán: "Giải phương trình bậc nhất dạng tổng quát bx+c=0".

Input: Nhập b,c

Thuật toán:

nếu b=0,c $\neq$ 0 thì in "pt vô nghiệm"

nếu b=0,c=0 thì in "pt vô số nghiệm"

nếu b $\neq$ 0 thì in "pt có nghiệm bằng -c/b"

Output: in ra màn hình kết quả

uses crt;

var

b,c,x :longint ;

begin

clrscr; 

write(' nhap b , c :' ); read(b,c );

if b = 0 then write(' pt vo nghiem' ) 

else

if (b = 0) and (c=0) then write(' pt vo so nghiem')

else 

if b <>0  then  

 begin 

  if (c=0) then write( ' nghiem cua pt : x = 0 ')

else 

 if (c <> 0) then 

begin 

 x:= -c/b; 

 write(' nghiem pt :' ,x);

end;

readdln;

end.