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