viết chương trình giải phương trình bật nhất ax+b=0 với a khác 0 và 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ật nhất ax+b=0 với a khác 0 và a,b nhập từ bàn phím”

1. Program NN;
   Uses crt;
   Var a,b: real;
   Begin
           Clrscr;
           Write(‘Nhap a,b: ‘); Readln(a,b);
           If a=0 then
           Begin
                   If b=0 then Write(‘VO SO NGHIEM’)
                   Else If b<>0 then Write(‘VO NGHIEM’);
           End
           Else Write(-b/a:0:2);
           Readln
   End.

   Bình luận

2. program ctpt;

   uses crt;

     var a, b: integer;

   begin

              clrscr;

              write(‘Nhap a = ‘); readln(a);

              write(‘Nhap b = ‘); readln(b);

              if (a=0) and (b=0) then write(‘Phuong trinh vo so nghiem’);

              if (a=0) and (b<>0) then write(‘Phuong trinh vo nghiem’);

              if (a<>0) then write(‘a khac 0, nhap sai’);

              readln

   end.

   Bình luận