Thuật toán và chương trình của tin 8

THẬT TOÁN VÀ CHƯƠNG TRÌNH ĐỂ GIẢI BẤT PHƯƠNG TRÌNH BẬC NHẤT Ax+B>=0 TRONG PASSCAL

1. Thuật toán: Dùng sơ đồ khối:



2. Chương trình:


Uses Crt;

Var a,b,x : real;

Begin

Write('a = '); Readln(a);

Write('b = '); Readln(b);

If a = 0 Then { Nếu a bằng 0 }

If b = 0 Then { Trường hợp a = 0 và b = 0 }

Writeln('Phuong trinh co vo so nghiem')

Else { Trường hợp a=0 và b<>0 }

Writeln('Phuong trinh vo nghiem')

Else { Trường hợp a<>0 }

Begin

x:= -b/a;

Writeln('Phuong trinh co nghiem la :',x:0:2);

End;

Readln;

End.