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

0 bình luận về “Viết chương trình giải phương trình bậc nhất tổng quát với các hệ số a, b nhập từ bàn phím (giúp mik vs ạ)”

1. 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.

   Bình luận

2. 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 》

    

   Bình luận