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.