1: Hình vuông:

Uses crt;

Var a,s1,c1: real;

Begin

Write('Nhap a = ');

readln(a);

c1:=a*4;

s1:=a*a;

Writeln('Dien tich cua hinh vuong la: ',s1);

Writeln('Chu vi cua hinh vuong la: ',c1);

Readln

End.

2: Hình chữ nhật:

Uses crt;

Var a,b,s1,c1: real;

Begin

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

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

c1:=(a+b)*2;

s1:=a*b;

Writeln('Dien tich cua hinh chu nhat la: ',s1);

Writeln('Chu vi cua hinh chu nhat la: ',c1);

Readln

End.

3: Hình tròn:

Uses crt;

Var r,s1,c1: real;

Begin

Write('Nhap r = ');

readln(r);

c1:=pi*r*2;

s1:=pi*r*r;

Writeln('Dien tich cua hinh tron la: ',s1);

Writeln('Chu vi cua hinh tron la: ',c1);

Readln

End.

*Lưu ý: 3 CT khác nhau nhé!

program tinhdienticha;

uses crt;

var a,b,s1,s2,s:real;

begin

write('Nhap vao so a: '); readln(a);

write('Nhap vao so b: '); readln(b);

s1:=2*a*b;

s2:=(3.14*a*a)/2;

s:=s1+s2;

writeln('Dien tich tong la: ', s:10:6);

readln end.

>>>Chúc bạn học tốt<<<