Viết chương trình giải phương trình ax b 0 pascal
|
program Phuong_trinh_bac_nhat;
uses crt; var a,b : real; begin clrscr; 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. 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âu 1:Viết chương trình giải phương trình bậc nhất dạng tổng quát bx+c=0.Các hệ số b,c được nhập từ bàn phím câu 2: Viết phương trình nhập số tự nhiên N từ bàn phím .In ra màn hình tổng các số chẳn trong khoảng từ 1->N câu 3: Viết chương trình Pascal tích lũy thừa bậc n của x vs x là các số thưc, n là các số tự nhiên được nhập từ bàn phím Đề bài : Viết chương trình giải phương trình ax+b=0
Mã: Với bài tập này, ta sẽ cần tạo ra 3 biến gồm :
Mã:  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 : Mã:
Program Bat_Phuong_Trinh_Nhat; Uses crt; Var a,b: real; Begin Clrscr; Writeln(‘GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0’); Write(‘nhap a=’);readln(a); Write(‘nhap b=’);readln(b); If a0 then If a>0 then Writeln(‘Bat phuong trinh co nghiem: x>=’,-b/a:4:2) Else Writeln(‘Bat phuong trinh co nghiem: x=0 then Writeln(‘Bat phuong trinh co vo so nghiem’) Else writeln(‘Bat phuong trinh vo nghiem’); Readln; End. Đề bài : Viết chương trình giải bất phương trình bậc 1 (ax + b > 0) Để giải bất phương trình một ẩn,thông thường ta có hai cách giải là: chuyển vế và nhân với một số bất kì nào đó.trường hợp này cũng vậy. Bài giải : [COLOR=#000000]Program BAT_PHUONG_TRINH_BACI;[/COLOR] [COLOR=#000000]Uses crt;[/COLOR] [COLOR=#000000]Var a,b: real;[/COLOR] [COLOR=#000000]BEGIN[/COLOR] [COLOR=#000000] Clrscr;[/COLOR] [COLOR=#000000] Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0');[/COLOR] [COLOR=#000000] Writeln('———————————————————————-');[/COLOR] [COLOR=#000000] Write('nhap a=');readln(a);[/COLOR] [COLOR=#000000] Write('nhap b=');readln(b);[/COLOR] [COLOR=#000000] If a<>0 then[/COLOR] [COLOR=#000000] If a>0 then[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] If b>=0 then[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co vo so nghiem')[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] writeln('Bat phuong trinh vo nghiem');[/COLOR] [COLOR=#000000] Readln;[/COLOR] [COLOR=#000000]END.[/COLOR][COLOR=#000000] [/COLOR] Hướng dẫn chi tiết : Như đã nói bên trên, có hai cách giải vì vậy ta sẽ so sánh số a với 0, nếu a>0 thì phương trình có nghiệm -b/a và ngược lại, sử dụng hàm if else. Đầu tiên thì luôn luôn là phần khai báo thông tin cơ bản :{Khai báo thông tin cơ bản của chương trình} [COLOR=#000000]Program BAT_PHUONG_TRINH_BACI;[/COLOR] [COLOR=#000000]Uses crt;[/COLOR] [COLOR=#000000]Var a,b: real;[/COLOR]{khai báo 2 biến a và b } Xong phần khai báo thông tin cơ bản, đây mới là phần quan trọng. Ta xét ba trường hợp của bất phương trình ax + b > 0 :
Để làm được điều đó ta sẽ sử dụng hàm if để kiểm tra xem nếu a>0 thì sẽ đưa ra kết quả nghiệm bằng -b/a. Ngược là, in ra kết quả trong hàm else a có nghiệm x<= -b/a. So sánh xong a thì làm tương tự với b, nếu b>=0 thì bất phương trình có vô số nghiệm , b<=0 thì bất phương trình vô nghiệm. [COLOR=#000000]BEGIN[/COLOR] [COLOR=#000000] Clrscr;[/COLOR] [COLOR=#000000] Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0');[/COLOR] [COLOR=#000000] Writeln('———————————————————————-');[/COLOR] [COLOR=#000000] Write('nhap a=');readln(a);[/COLOR] [COLOR=#000000] Write('nhap b=');readln(b);[/COLOR] [COLOR=#000000] If a<>0 then[/COLOR] [COLOR=#000000] If a>0 then[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] If b>=0 then[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co vo so nghiem')[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] writeln('Bat phuong trinh vo nghiem');[/COLOR] [COLOR=#000000] Readln;[/COLOR] [COLOR=#000000]END.[/COLOR][COLOR=#000000] [/COLOR] Chúc các bạn học tốt ! [COLOR=#000000]Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0');[/COLOR] mà[COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)[/COLOR] ???Viết chương trình giải bất phương trình bậc 1 (ax + b > 0) Program BAT_PHUONG_TRINH_BACI; Uses crt; Var a,b: real; Begin Clrscr; Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0'); Writeln('———————————————————————-'); Write('nhap a=');readln(a); Write('nhap b=');readln(b); If a<>0 then If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2) Else Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2) Else If b>=0 then Writeln('Bat phuong trinh co vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln; End. 2019-11-30T09:38:18-05:00 2019-11-30T09:38:18-05:00 Bài 1: Viết chương trình giải phương trình bậc nhất (ax + b = 0)Bài 2: Viết chương trình giải bất phương trình bậc nhất (ax + b >= 0) |
