Viết chương trình tìm x của: ax+b=0(a khác 0) giá trị của a,b nhập từ bàn phím.

program timx;

uses crt;

var a,b: integer;

x: real

begin

writeln('Ban hay nhap a,b');

write('a='); readln(a);

write('b='); readln(b);

x:=(0-b)/2;

writeln(' gia tri x phai tim la',x:0:2);

readln;

end.

writeln('Gia tri x phai tim la'

 Uses Crt;

Var  a,b,x : real;

Begin

      Write('a = ');

      Readln(a);

      Write('b = ');

      Readln(b);

     If a = 0 Then

     If b = 0 Then Writeln('Phuong trinh co vo so nghiem')

      Else Writeln('Phuong trinh vo nghiem')

      Else

         Begin

            x:= -b/a;

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

         End;

Readln;

End.