Thuật toán giải phương trình bậc nhất:
Bước 1: Nhập a, b;
Bước 2: Nếu a = 0, B≠ 0 thì thông báo vô nghiệm rồi kết thúc;
Bước 3: Nếu a = 0, B = 0 thì thông báo phương trình nghiệm đúng với mọi giá trị rồi kết thúc;
Bước 4: Nếu a ≠ 0 thì x = -b/a thông báo phương trinh có nghiệm duy nhất là x rồi kết thúc
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Phần tự luận
Em hãy vẽ sơ đồ cấu trúc của một máy tính
Xem đáp án » 02/07/2020 1,149
Viết chương trình giải phương trình bậc 1 [ax + b = 0]
Program GIAI_PHUONG_TRINH_BAC_NHAT;
Var a,b,x:real;
Begin
Clrscr;
Writeln['GIAI PHUONG TRINH BAC NHAT: AX + B=0'];
Writeln['————————————————————'];
Write ['Nhap a= '];
readln[a];
Write ['Nhap b= '];
readln[b];
If[a=0] then
If[b=0] then
Writeln[' Phuong trinh co vo so nghiem']
Else
writeln[' Phuong trinh vo nghiem']
Else Writeln['Phuong trinh co nghiem x=',-b/a:4:2];
Readln;
End.
Bơ