Đề 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 :
Mã:
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.
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 :
Mã:
{Khai báo thông tin cơ bản của chương trình}
Program BAT_PHUONG_TRINH_BACI;
Uses crt;
Var a,b: real;{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 :
- a <>0 thì phương trình có nghiệm x=-b/a
- a,b =0 thì bất phương trình có vô số nghiệm
- a =0, b <> 0 thì bất phương trình vô nghiệm
Để 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.
Mã:
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.
Chúc các bạn học tốt !
Để 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 :
Mã:
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.
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 :
Mã:
{Khai báo thông tin cơ bản của chương trình}
Program BAT_PHUONG_TRINH_BACI;
Uses crt;
Var a,b: real;{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 :
- a <>0 thì phương trình có nghiệm x=-b/a
- a,b =0 thì bất phương trình có vô số nghiệm
- a =0, b <> 0 thì bất phương trình vô nghiệm
Để 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.
Mã:
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.
Chúc các bạn học tốt !