viết phương trình giải bất phương trình bậc 1 (ax+b=0) giúp mik vs ạ mik đc cần gấp

0 bình luận về “viết phương trình giải bất phương trình bậc 1 (ax+b=0) giúp mik vs ạ mik đc cần gấp”

1. Program BAT_PHUONG_TRINH_BACI;

   Uses crt;

   Var a,b: real; 

   Begin

   Clrscr;

   Writeln(‘GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0’); 

   Writeln(‘———————————————————————-‘); 

   Write(‘nhap a=’);

   readln(a);

   Write(‘nhap b=’);

   readln(b); 

   If a<>0 then

   If a>0 then 

   Writeln(‘Bat phuong trinh co nghiem: x>=’,-b/a:4:2) 

   Else 

   Writeln(‘Bat phuong trinh co nghiem: x<=’,-b/a:4:2)

   Else

   If b>=0 then 

   Writeln(‘Bat phuong trinh co vo so nghiem’) 

   Else 

   writeln(‘Bat phuong trinh vo nghiem’);

   Readln;

   End

   Bình luận

2. program giai_phuongtrinh;

   uses crt;

   var a,b:integer;

   begin

           clrscr;

           repeat

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

                   if a=0 then writeln(‘a phai khac 0 de duoc phuong trinh’);

           until a<>0;

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

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

           readln;

   end.

   Bình luận