Bài 2: Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh là a, b (được nhập từ bàn phím).

uses crt;

var a,b,cv,s:real;

begin

clrscr;

write('a,b');

readln(a,b);

cv:=2*(a+b);

S:=a*b;

writeln('chu vi: ',cv:5:2);

writeln('dien tich: ',s:5:2);

readln

end.

Bài 3: Viết chương trình tính chu vi, diện tích hình vuông có cạnh a được nhập từ bàn phím

uses crt;

var a,cv,s:real;

begin

clrscr;

write('a=');

readln(a);

cv:=a*4;

s:=sqr(a) ;

writeln('chu vi: ',cv:5:2);

writeln('dien tich: ',s:5:2);

readln

end.

Bài 2 :

uses crt;

var a, b, cv, s : integer;

begin

clrscr;

write('nhap hai canh a va b : ');readln(a, b);

cv :=2 * (a + b);

s := a * b;

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

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

readln

end.

Bài 3 :

uses crt;

var a, cv, s : integer;

begin

clrscr;

write('nhap do dai canh a : ');readln(a);

cv := a * 4;

s := a * a;

writeln('chu vi hinh vuong : ', cv);

writeln('dien tich hinh vuong : ', s);

readln

end.