Program GIAI_PHUONG_TRINH_BAC_NHAT;

Var b,c,x:real;

Begin

Clrscr;

Writeln('GIAI PHUONG TRINH BAC NHAT: BX + C=0');

Writeln('------------------------------------------------------------');

Write ('Nhap b= ');

readln(b);

Write ('Nhap c= ');

readln(c);

If(b=0) then

If(c=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.

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.