Viết chương trình giải phương trình bậc nhất ax+b=0 với a b nhập từ bàn phím

Đề 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 :

Ta có : ax+b=0 =>ax = -b

1. a != 0 => PT có nghiệm duy nhất x= -b/a
2. a = 0 => PT sẽ có dạng 0.x=b

1. Nếu b !=0 => PT vô nghiệm, xét hai trường hợp :
2. 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.

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

Chủ đề bai tap pascal bai tap pascal 11 pascal co ban

Bài 1 : viết chương trình giải phương trình bậc nhất ax + b=0 biết a , b là các hệ số được nhập từ bàn phím Bài 2 : viết chương trình cho biết chữ số hàng trăm, hàng chục , hàng đơn vị của một số có 3 chữ số

Giúp cho mk vs ạ , mk đang cần gấp

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

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

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

• 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ự