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

1. program Phuong_trinh_bac_nhat;

   uses crt;

   var a,b : real;

   begin

   clrscr;

   write (‘Nhap so a:’); readln(a);

   write (‘Nhap so b:’); readln(b);

   if (a<>0) then writeln (‘Nghiem cua phuong trinh la:’, -b/a);

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

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

   readln

   end.

   Bình luận

2. program giaipt;

   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’)

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

                     else write(‘x= ‘,-b/a:0:2);

         readln;

   end.

   Bình luận