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”.
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”.
By Isabelle
By Isabelle
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.