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.