Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Tham khảo:
Thuật toán giải phương trình ax + b = 0
- Bằng liệt kê tuần tự
Bước 1: Nhập hai số thực a, b
Bước 2. Nếu a = 0
Bước 2.1. Nếu b ≠0 thì thông báo phương trình vô định, rồi kết thúc;
Bước 2.2. Nếu b = 0 thì gán x <- 0 rồi chuyển sang bước 4;
Bước 3: x <- -b/a
Bước 4. Đưa ra nghiệm X, rồi kết thúc.
- Sơ đồ khối:
Đề xuất các test tiêu chuẩn
Để xét tất cả các trường hợp có thể xảy ra, ta sử dụng ba bộ test như sau:
i) a = 0, b = 1 (kiểm tra trường hợp phương trình vô định);
ii) a = 0,b = 0 (kiểm tra trường hợp nghiệm x=0);
iii) a = 3, b = 6 (kiểm tra trường hợp nghiêm , y = -b/a)
Sử dụng khối lệnh if else như sau
Thu được kết quả như sau:
Bước 1: Nhập ba số a,b,c
Bước 2: Xuất a+b+c;
Bước 3: Kết thúc
Thuật toán:
B1: Nhập a,b
B2:Nếu a< > 0 thì x=-a/b 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ố ngiệm ngược lại thì chương vô nghiệm và kết thúc thuật toán.
Viết chương trình:
Program PT_bac_nhat;
Var
a,b:Integer;
x:Real;
Begin
Writeln('GIAI PHUONG TRINH BAC NHAT');
Writeln(' aX + b = 0');
Write('-Nhap he so a= ');
Readln(a);
Write('-Nhap he so b= ');
Readln(b);
If a=0 Then
If b=0 Then
Writeln('+Phuong trinh vo dinh')
Else
Writeln('+Phuong trinh vo nghiem')
Else
Begin
x:=-b/a;
Writeln('+Nghiem cua phuong trinh X= ',x:0:6);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Mô tả thuật toán phương trình bậc nhất ax + b = 0 như sau:
1. Nhập giá trị của a và b từ bàn phím.
2. Nếu a=0:
- Nếu b=0, phương trình vô số nghiệm
- Nếu b=0, phương trình vô nghiệm.
3. Nếu a khác 0, x = -b/a.
4. Hiển thị giá trị của x trên màn hình.