>> Chu vi hình tròn:

program cv_hinh_tron;

uses crt;

     var cv, r: real;

begin

     clrscr;

     writeln('Nhap chieu dai ban kinh r: '); readln(r);

     cv:=2*r*pi;

     writeln('Chu vi hinh tron la: ', cv);

     readln

end.

>> Diện tích hình tròn:

program dt_hinh_tron;

uses crt;

     var s, r: real;

begin

     clrscr;

     writeln('Nhap chieu dai ban kinh r: '); readln(r);

     s:=r*r*pi;

     writeln('Dien tich hinh tron la: ', s);

     readln

end.

>> Chu vi hình vuông:

program cv_hinh_vuong;

uses crt;

      var cv, a: real;

begin

      clrscr;

      writeln('Nhap chieu dai canh cua hinh vuong: '); readln(a);

      cv:=4*a;

      writeln('Chu vi hinh vuong la: ', cv);

      readln

end.

>> Diện tích hình vuông:

program DT_hinh_vuong;

uses crt;

      var s, a: real;

begin

      clrscr;

      writeln('Nhap chieu dai canh cua hinh vuong: '); readln(a);

      s:=a*a;

      writeln('Dien tich hinh vuong la: ', a*a);

      readln

end.

>> Chu vi hình chữ nhật:

program cv_hcn;

uses crt;

      var cv, a, b: real;

begin

      clrscr;

      writeln('Nhap chieu dai canh a: '); readln(a);

      writeln('Nhap chieu rong canh b: '); readln(b);

      cv:=(a+b)*2;

      writeln('Chu vi hinh chu nhat la: ', cv);

      readln

end.

>> Diện tích hình chữ nhật:

program DT_hcn;

uses crt;

      var s, a, b: real;

begin

      clrscr;

      writeln('Nhap chieu dai canh a: '); readln(a);

      writeln('Nhap chieu rong canh b: '); readln(b);

      s:=a*b;

      writeln('Dien tich hinh chu nhat la: ', s);

      readln

end.

>> Chu vi hinh tam giác:

program cv_htg;

uses crt;

      var cv, a, b, c: real;

begin

      clrscr;

      writeln('Nhap a = '); readln(a);

      writeln('Nhap b = '); readln(b);

      writeln('Nhap c = '); readln(c);

      cv:=a+b+c;

      writeln('Chu vi hinh tam giac la: ', cv);

      readln

end.

>> Diện tích hình tam giác:

program dt_htg;

uses crt;

      var s, a, h: real;

begin

      clrscr;

      writeln('Nhap a = '); readln(a);

      writeln('Nhap h = '); readln(h);

      s:=(a*h)/2;

      writeln('Dien tich hinh tam giac la: ', s);

      readln

end.