Đề bài : Viết chương trình giải phương trình ax+b=0
Thông thường để giải phương trình ax+b=0, làm như sau :
- a != 0 => PT có nghiệm duy nhất x= -b/a
- a = 0 => PT sẽ có dạng 0.x=b
- Nếu b !=0 => PT vô nghiệm, xét hai trường hợp :
- Nếu b = 0 => PT có vô số nghiệm
Bài giải :
Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; BEGIN Clrscr; Writeln['GIAI PHUONG TRINH BAC NHAT: AX + B=0']; Writeln['------------------------------------------------------------']; Writeln[‘Nhap a = ‘]; readln[a]; Writeln[‘Nhap b= ‘]; readln[b]; If a=0 then If[b=0] then Writeln[' Phuong trinh co vo so nghiem'] Else writeln[' Phuong tring vo nghiem'] Else Writeln['Phuong trinh co nghiem x=',-b/a: 4: 2]; Readln; END.
Hướng dẫn chi tiết : Với bài tập này, ta sẽ cần tạo ra 3 biến gồm :- a : hệ số a [do người dùng nhập]
- b : hệ số b [do người dùng nhập]
- x : nghiệm của phương trình, sẽ có sau khi thực hiện xong chương trình.
Biến này sẽ có kiểu là real, tức là kiểu số thực.
Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; {Khai báo các biến }
“Có lạc rồi sẽ có rượu” [ clrscr ] sẽ giúp xóa cache trước khi bắt đầu chương trình của chúng ta.
BEGIN Clrsrc; Writeln[‘Giai Phuong trinh bac nhat ax+b=0’]; Writeln[‘Nhap a =’]; readln[a]; Writeln[‘Nhap b=’]; readln[b]; If [a0] then writeln [‘Phuong trinh co Nghiem x =’, -b/a: 4: 2] Else if [a=0 and b!=0] then writeln[‘Phuong trinh co vo so nghiem’] Else writeln[‘Phuong trinh da cho vo nghiem’]; Readln; END.
Với bài này thì ta có rất nhiều cách để viết với lệnh If Else, tùy thói quen và sở thích của mỗi người mà có cách viết khác
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình giải phương trình ax + b = 0 [các hệ số a,b được nhập từ bàn phím]
Hướng dẫn có sẵn trong bài là:
- Nếu a khác 0 thì phương trình có nghiệm x=-b/a[âm b phần a]
- Nếu a = 0 và b = 0 thì phương trình có vô số nghiệm
- Nếu a = 0 và b khác 0 thì phương trình vô nghiệm
Các câu hỏi tương tự
program Phuong_trinh_bac_nhat;uses crt;var a,b : real;beginclrscr;write ['Nhap so a:']; readln[a];write ['Nhap so b:']; readln[b];if [a0] then writeln ['Nghiem cua phuong trinh la:', -b/a];if [a=0] and [b=0] then writeln ['Phuong trinh co vo so nghiem'];if [a=0] and [b0] then writeln ['Phuong trinh vo nghiem'];readln
end.
60 điểm
NguyenChiHieu
Viết chương trình giải phương trình bậc 1 [ax + b = 0]
Tổng hợp câu trả lời [1]
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 Else writeln[' Phuong tring vo nghiem'] End. Writeln['Phuong trinh co nghiem x=',-b/a:4:2]; Readln;
Tham khảo giải bài tập hay nhất
Loạt bài Lớp 9 hay nhất
xem thêm1 trả lời
Tính [Tin học - Lớp 6]
1 trả lời
Viết các công thức excel phù hợp câu hỏi [Tin học - Lớp 7]
2 trả lời
Rùa đi lùi: BK; LT; RD; RT; CS; CT [Tin học - Lớp 4]
5 trả lời
Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies