Câu 1:
uses crt;
var r:real;
begin
clrscr;
readln(r);
write('S= ',r*r*3.14:10:2);
readln
end.
Câu 2:
uses crt;
var a,b:real;
begin
clrscr;
readln(a,h);
write('S= ',a*h);
readln
end.
Câu 3:
uses crt;
var a,b,c:longint;
begin
clrscr;
write('So lon nhat: ');
if (a<c) and (b<c) then write(c);
if (b>a) and (b>c) then write(b);
if (a>b) and (a>c) then write(a);
readln
end.
Câu 4:
uses crt;
var a,b,c:longint;
begin
clrscr;
write('So nho nhat: ');
if (a>c) and (b>c) then write(c);
if (b<a) and (b<c) then write(b);
if (a<b) and (a<c) then write(a);
readln
end.
Câu 5:
uses crt;
var a,b:longint;
begin
clrscr;
readln(a,b);
if (a=0) and (b=0) then write('Pt co vo so No');
if (a=0) and (b<>0) then write('Pt vo No');
if (a<>0) and (b<>0) then write('Pt co nghiem x= ',-b/a:10:2);
readln
end.
Câu 6:
uses crt;
var a,b,c:longint;
begin
clrscr;
repeat readln(a,b,c);
untila<>0;
d:=sqr(b)-4*a*c;
IF d<0 THEN write('Phuong trinh vo nghiem!')
ELSE
BEGIN
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
IF d=0 THEN writeln('Phuong trinh co nghiem kep x = ',x1:0:2)
ELSE writeln('Phuong trinh co 2 nghiem phan biet: ',x1:0:2,' ',x2:0:2);
END;
readln;
END.
Chú ý: các bài đều có thể khai báo bằng các kiểu dữ liệu khác nhau như longint,real, integer,...Nếu khai báo là real thì cần phải viết :0:2 hoặc :0:..(tùy theo bản thân) ở phần kết quả riêng bài 6 thì kết quả luôn phải viết dạng :0:2 hoặc :=0:..(tùy theo ý của bản thân))
