Program baitap;

Uses crt;

Var a,b,S,C,r:real;

Begin

Clrscr;

Write('Chieu dai hinh chu nhat:'); Readln(a);

Write('Chieu rong hinh chu nhat:'); Readln(b);

C:=(a+b)*2;

S:=a*b;

r:=(C+S)/2;

Writeln('Chu vi cua hinh chu nhat:',C:5:2);

Writeln('Dien tich cua hinh chu nhat:',S:9:3);

Writeln('Chu vi cua hinh tron:',r*2*3.14:5:2);

Writeln('Dien tich cua hinh tron:',r*r*3.14:9:3);

Readln

End.

nhận vào 2 kích thước của một hình chữ nhật Tính chu vi diện tích . Nếu gọi trung bình cộng của chu vi và diện tích nói trên là bán kính của một đường tròn Tính chu vi và diện tích của đường tròn ( hình tròn ) đó

uses crt;
var a,b,cv,s,tbc,sdtt,cvdt:real;
const Pi=3.14;
begin
clrscr;
write('nhap a,b: ');
readln(a,b);
cv:=(a+b)*2;
s:=(a*b);
tbc:=(cv+s)/2;
cvdt:=tbc*2*PI;
sdtt:=tbc*tbc*PI;
writeln('chu vi hinh chu nhat',cv:3:2);
writeln('dien tich hinh chu nhat',s:3:2);
writeln('chu vi duong tron',cvdt:3:2);
writeln('dien tich duong tron',sdtt:3:2);
readln
end.