Giải bất phương trình bậc nhất một ẩn ax+ b<0 (if- then-else)

0 bình luận về “Giải bất phương trình bậc nhất một ẩn ax+ b<0 (if- then-else)”

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