Viết chương trình giải phương trình ax + b=0
Đề 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 :
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 :
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. Như đã nói cách giải ở bên trên, ta sẽ lần lượt xét các điều kiện như sau : - 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 Đoạn code dưới đây mình đảo ngược lại so với đoạn mẫu ở phần bài giải 1 chút, bạn dùng cái nào cũng OK nha :
BEGIN Clrsrc; Writeln(‘Giai Phuong trinh bac nhat ax+b=0’); Writeln(‘Nhap a =’); readln(a); Writeln(‘Nhap b=’); readln(b); If (a<>0) 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 . Chúc các bạn học tốt
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 (a<>0) 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 (b<>0) 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ấtLoạt bài Lớp 9 hay nhấtxem thêm Thủ tục lục giác (Tin học - Lớp 5)1 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 |