chương trình tính diện tích, chu vi hình vuông (sử dụng chương trình con)

program tinhdientich;
procedure hv(var s, cv, a: real);

        begin
        s:=a*a;

        cv:=4*a;
        end;

begin

write(‘nhap a = ‘);

readln(a);

write('dien tich hinh vuong la=', 's');

readln(s);

writeln('chu vi hinh vuong la=', 'cv')

readln(cv);

readln

end.

chương trình tính diện tích, chu vi hình chữ nhật (sử dụng chương trình con) 

program tinh dien tich;     

procedure CN(var a, b, s, cv: real);
        begin
        s:= a*b;

        cv:=(a+b)*2;

        end;
begin

write('nhap a, b=');

readln(a);

readln(b);

writeln('dien tich hinh chu nhat=', 's');

readln(s);

writeln('chu vi hinh chu nhat=', 'cv');

readln(cv);

readln

end.

chương trình tính diện tích, chu vi hình tam giác (sử dụng chương trình con) 

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);
writeln(‘Chu vi tam giac:=’, 'cv');

readln(cv);
writeln(‘Dien tich tam giac:’, 's');

readln(s);

readln
end.

hình tròn

program tinh dien tich;

procedure ht(var s, cv, r: real);
       begin
       cv:=3,14*r*r;

       s:=2*3,14*r;

       end;

begin

write('nhap r=');

readln(r);

writeln(‘dien tich hinh tron =‘, 's');

readln(s)

writeln('chu vi hinh tron =', 'cv');

readln(cv);

readln
end;