Pascal

Bài 5: 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 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ài 6: Viết chương trình giải phương trình bậc 2 (ax2 + bx + c =0)
Program GIAI_PHUONG_TRINH_BACII;  Uses crt; Var a,b,c,d,x,x1,x2:real;
Begin Writeln(`GIAI PHUONG TRINH BAC II:`);
Writeln(`-------------------------------------------`);  Write(`Nhap he so a=`);readln(a); Write(`Nhap he so b=`);readln(b); Write(`Nhap he so c=`);readln(c); If a=0 then If b=0 then If c=0 then Writeln(`Phuong trinh co vo so nghiem`) Else Writeln(`Phuong trinh vo nghiem`) Else Writeln(`Phuong trinh co mot nghiem: x=`,-c/b:4:2) Else Begin d:=b*b-4*a*c;  If d=0 then Writeln(`Phuong trinh co nghiem kep: x=`,-b/(2*a):4:2) Else If d<0 then writeln(`phuong trinh vo nghiem`) else begin x1:= (-b+sqrt(d))/(2*a); x2:= (-b-sqrt(d))/(2*a); write(`phuong co hai nghiem: ‘); writeln(‘ x1 =`,x1:4:2,` va x2 =`,x2:4:2); end; readln;
End.