Câu 1: Chu vi và diện tích hình tam giác:

Uses crt;
Var a, b, c, cv, s: real;
Begin
Clrscr;
Write('Nhap a, b, c: '); readln(a, b, c);
cv:=a+b+c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('Chu vi la: ',cv,'. Dien tich la: ',s);
Readln
end.

Câu 2: Chu vi và diện tích hình chữ nhật:

Uses crt;
Var a, b, cv, s: real;
Begin
Clrscr;
Write('Nhap a, b: '); readln(a, b);
cv:=(a+b)*2;
s:=a*b;
Writeln('Chu vi la: ',cv,'. Dien tich la: ',s);
Readln
end.

Câu 3: Chu vi và diện tích hình bình hành:

Uses crt;
Var a, b, h, cv, s: real;
Begin
Clrscr;
Write('Nhap a, b, h: '); readln(a, b, h);
cv:=(a+b)*2;
s:=a*h;
Writeln('Chu vi la: ',cv,'. Dien tich la: ',s);
Readln
end.

Câu 4: Chu vi và diện tích hình tròn:

Uses crt;
Var r, cv, s: real;
Const pi=3.14;
Begin
Clrscr;
Write('Nhap a, b: '); readln(a, b);
cv:=pi*r*2;
s:=pi*sqr(r);
Writeln('Chu vi la: ',cv,'. Dien tich la: ',s);
Readln
end.

Câu 5: Chu vi và diện tích hình vuông:

Uses crt;
Var a, cv, s: real;
Begin
Clrscr;
Write('Nhap a: '); readln(a);
cv:=a*4;
s:=sqr(a);
Writeln('Chu vi la: ',cv,'. Dien tich la: ',s);
Readln
end.

uses crt;

var a,b,c,p,S: real;

begin 

        clrscr;

        write ('Nhap a,b,c= ');

        readln (a,b,c);

        p:= a + b + c;

        S:= sqrt(p*(p-a)*(p-b)*(p-c));

        writeln (' Chu vi P va dien tich S la ', P, S);

        readln;

end.

  * Tương tự có:

    - Chu vi hình chữ nhật = (a+b)*2, Diện tích=a*b

    - Chu vi hình bình hành= (a+b)*2, Diện tích=a*h

    - Chu vi hình tròn= $\pi$*r, Diện tích= $\pi$*r*r

    - Chu vi hình tròn= 4a, Diện tích= $a^{2}$