Bt1: nhập vào 1 số a bất kỳ, nếu a>=0 thì thông báo a là số không âm ngoài ra thông báo a là số âm
Bt2: giải biện luận phương trình bật nhất:
ax+b=0(a khác 0)
Nếu a khác 0:x=-b/a
Nếu a=0:
+b=0(phương trình có nghiệm)
+b khác 0 (phương trình vô nghiệm)
Bài 1:
Uses crt;
Var a: longint;
Begin
Clrscr;
Write(‘Nhap so a = ‘); readln(a);
If a>=0 then writeln(a,’ la so khong am’)
Else writeln(a,’ la so am’);
Readln
end.
Bài 2:
Uses crt;
Var a, b, x: real;
Begin
Clrscr;
Write(‘Nhap a, b: ‘); readln(a, b);
If a<>0 then writeln(‘Nghiem cua PT la: ‘,-b/a:4:2);
If a=0 then
If b=0 then writeln(‘Phuong trinh co vo so nghiem’)
Else writeln(‘Phuong trinh vo nghiem);
Readln
End.
B1:
uses crt;
var a:longint;
begin
clrscr;
write(‘Nhap a=’);readln(a);
if a>=0 then write(a,’ khong am’)
else write(a,’ am’);
readln;
end.
B2:
uses crt;
var a,b:longint;
begin
clrscr;
write(‘Nhap a=’);readln(a);
write(‘Nhap b=’);readln(b);
if (a=0) and (b=0) then write(‘Phuong trinh vo so nghiem’);
if (a=0) and (b<>0) then write(‘Phuong trinh vo nghiem’)
else write(‘Phuong trinh co nghiem x=’,-b/a:0:2);
readln;
end.