Đề 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 a0 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 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 a0 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 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 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'];
Writeln['--------------------------------------'];
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