viết chương trình giải phương trình bậc nhất một ẩn ax +b =0, a,b nhập từ bàn phím

0 bình luận về “viết chương trình giải phương trình bậc nhất một ẩn ax +b =0, a,b nhập từ bàn phím”

1. Program Hotboy ;

   Uses crt;

   Var a,b,x : integer;

   Begin

   Clrscr

   Write(‘ giai phuong trinh bac nhat ax+b=0’);

   Write(‘ nhap so a’,a);

   Readln(a);

   Write(‘nhap so b’,b);

   Readln(b)

   If a<>0 then

   x:=-b/a;

   Write(‘phuong trinh co 1 nghiem duy nhat la’,x:2:2)

   Else

   If a=0 and b=0 then write(‘ phuong trinh co vo so nghiem’);

   If a=0 and b<>0 then

   Write(‘phuong trinh vo nghiem’);

   Readln

   End.

   Bình luận

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

   Bình luận