Giải Bất Phương Trình Ax + B>=0 Pascal

Bài 2: Viết chương trình giải phương trình ax+b=0

Program GIAI_PHUONG_TRINH_BAC_NHAT;

Uses crt;

Var a,b,x: real;

Begin

Clrscr;

Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0');

Writeln('------------------------------------------------------------');

Write ('Nhap a= '); readln(a);

Write ('Nhap b= '); readln(b);

If(a=0) then

If(b=0) then Writeln(' Phuong trinh co vo so nghiem')

Else writeln(' Phuong tring vo nghiem')

Else Writeln('Phuong trinh co nghiem x=',-b/a: 4: 2);

Readln

End.

Bài 3: Viết chương trình giải bất phương trình bậc 1 (ax + b > 0)

Program BAT_PHUONG_TRINH_BAC_I;

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 a0 then

If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a: 4: 2)

Else Writeln('Bat phuong trinh co nghiem: x 0');[/COLOR] [COLOR=#000000] Writeln('———————————————————————-');[/COLOR] [COLOR=#000000] Write('nhap a=');readln(a);[/COLOR] [COLOR=#000000] Write('nhap b=');readln(b);[/COLOR] [COLOR=#000000] If a0 then[/COLOR] [COLOR=#000000] If a>0 then[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x 0');[/COLOR] [COLOR=#000000] Writeln('———————————————————————-');[/COLOR] [COLOR=#000000] Write('nhap a=');readln(a);[/COLOR] [COLOR=#000000] Write('nhap b=');readln(b);[/COLOR] [COLOR=#000000] If a0 then[/COLOR] [COLOR=#000000] If a>0 then[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)[/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x 0');[/COLOR]

[COLOR=#000000] Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)[/COLOR]

Viết chương trình giải bất phương trình bậc 1 (ax + b > 0)

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 a0 then       If a>0 then          Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)       Else          Writeln('Bat phuong trinh co nghiem: x=0'); Writeln('--------------------------------------'); Write('nhap a=');readln(a); Write('nhap b=');readln(b); If a0 then       If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)       Else Writeln('Bat phuong trinh co nghiem: x