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]