Diện tích hình chữ nhật:
program tinhdientich;
procedure hv(var s, cv, a: real);
begin
s:=a*a;
cv:=4*a;
end;
Diện tích hình vuông:
program tinhdientich;
procedure hv(var s, cv, a: real);
begin
s:=a*a;
cv:=4*a;
end.
Diện tích hình tam giác vuông:
program tinh dien tich;
procedure TG(var a, b, cv, s: real);
begin
cv:=(a+b+c)/2;
s:=sqrt(cv*(cv-a)*(cv-b)*(cv-c));
begin
write(‘nhap a =’);
readln(a);
write (‘nhap b =’);
readln(b);
write(‘nhap c =’);
readln(c);
end.
