1/
uses crt;
var a,b:real;
function cv(x,y:real):real;
begin
cv:=(x+y)*2;
end;
function dt(x,y:real):real;
begin
dt:=a*b;
end;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
writeln;
write('Chu vi hinh chu nhat la: ',cv(a,b):4:2);
writeln;
write('Dien tich hinh chu nhat la: ',dt(a,b):4:2);
readln
end.
2/ Đề hơi lag :V Hình vuông có 4 cạnh bằng nhau nhé.
uses crt;
var a:real;
function cv(x:real):real;
begin
cv:=x*4;
end;
function dt(x:real):real;
begin
dt:=x*x;
end;
begin
write('Nhap canh hinh vuong: '); readln(a);
writeln;
write('Chu vi hinh vuong la: ',cv(a):4:2);
writeln;
write('Dien tich hinh vuong la: ',dt(a):4:2);
readln
end.
