Giải bất phương trình ax + b
Lưu ý: Những giờ không làm thì không tính tiền công Your browser isn’t supported anymore. Update it to get the best YouTube experience and our latest features. Learn more Có vẻ như bạn đang dùng nhầm tính năng này do sử dụng quá nhanh. Bạn tạm thời đã bị chặn sử dụng nó. Nếu bạn cho rằng nội dung này không vi phạm Tiêu chuẩn cộng đồng của chúng tôi, hãy cho chúng tôi biết.
Đề 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]
[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. Xem thêm: Tại sao phải khai báo biến? |