Biểu diễn thuật toán giải bất phương trình bậc I( ax< hoặc bằng b) bằng cách liệt kê

Bước 1 : nhập a,b ;

Bước 2: xét a,nếu a<>0 thì đến bước 3

Nếu a= 0 xét b

Nếu b= 0 thì thì đi phương trình vô số nghiệm

Nếu b<>0 thì phương trình vô nghiệm

Bước 3 : nghiệm x=-b/a khi a<>0

Bước 4: kết luận

Bước 5: kết thúc chương trình

Bài làm

Program giaiohuongtrinh;

Uses crt;

Var a,b,x : integer ;

Begin

Write(' nhap haang so a',a);

Readln(a)

Write( ' nhap so b',b)

Readln(b)

If a<> 0 then

x:= -b/a;

Write( ' phuong trinh co nghiem la x =',x);

Readln(x)

If a=0 then

If b= 0 then

Write( ' phuobg trinh vo so nghiem')

Else writeln( ' phuong trinh vo nghiem');

Readln

End.

$\text{Bước 1 : nhập a, b, c}$
$\text{Bước 2 : nếu a = 0 thì in ra phương trình không phải phương trình bậc 2, chuyển tới bước 5}$
$\text{Bước 3 : d ← b*b - 4*a*c}$
$\text{Bước 4 :}$
$\text{Bước 4.1 :nếu d > 0 thì x1 ← (-b + sqrt(d)) / (2*a); x2 ← (-b - sqrt(d))}$
$\text{Bước 4.2  : nếu d = 0 thì x ← -b/(2 * a)}$
$\text{Bước 4.3  : nếu d < 0 thì đưa ra màn hình phương trình vô nghiệm }$
$\text{Bước 5  : kết thúc}$