bx+c=0 =>bx = -c
+/ nếu a = 0 ⇔ loại vì không có phép chia cho 0
+/ b ≠ 0 ⇔ x = -c/b
Khi đó nghiệm của phương trình là x= -c/b
Chương trình:
Program GIAI_PHUONG_TRINH_BAC_NHAT
Uses crt;
Var a,b,x: real;
BEGIN Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT: BX + C=0');
Writeln(‘Nhap b = ‘); readln(b);
Writeln(‘Nhap c= ‘); readln(c);
If b=0 then
If(b=0) then Writeln(' Phuong trinh co vo so nghiem')
Else writeln(' Phuong tring vo nghiem')
Else Writeln('Phuong trinh co nghiem x=',-c/b: 4: 2);
Readln;
END.
