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.

0 bình luận về “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.”

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

   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