Viết chương trình giải phương trình nhất tổng quát vs các hệ số a, b nhập từ bàn phím :

Hướng dẫn :

• Nếu a khác 0 thì phương trình có nghiệm x=-b/a ( là âm b phần a )

• Nếu a = 0 và b = 0 thì phương trình có vô số nghiệm

• Nếu a = 0 còn b khác 0 thì phương trình vô nghiệm

Trả lời :

 Use crt ;

Var a,b : logint; 

Begin 

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

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

If  ( a = 0 and b = 0 )

Then write  ( ' Pt co nghiem x thuoc R ' ) 

Else 

If  ( a = 0 and b#0 ) then write  ( ' pt vo nghiem )

Else 

Write  ( nghiem là x = ' :-b/a ) ;

Readln 

End 

《 mình xin hay nhất 》

uses crt;

var a,x,b,i: integer;

Begin

         clrscr;

         write ('nhap a: ');  readln (a);

         write ('nhap b: ');  readln (b);

         write ('cac gia tri cua x la: ');

         if a>b then

            for i:=1 to a do

                 if (a*x+b=0) then write(i,'  ')

                 else for i:=1 to b do

                         if (a*x+b=0) then write(i,'  ');

readln;

end.