Viết chương trình in ra màn hình chu vi diện tích của hình chữ nhật có chiều dài a...

Question

VCT in ra màn hình chu vi diện tích của hình chữ nhật có chiều dài a, chiều rộng là  b ( a va b được nhập từ bàn phím)  . Tính chu vi dien tích của hình trên

Answer 1

var a,b,c,s:real;

begin

write(' Nhap chieu dai a: ');

readln(a);

write(' Nhap chieu rong b: ');

readln(b);

c:=(a+b)*2;

s:=a*b;

writeln(' Chu vi hinh chu nhat la: ',c:5:2);

write(' Dien tich hinh chu nhat la: ',s:5:2);

readln

end.

Vì đề bài bạn không nói rõ a,b có phải số nguyên hay không nên mình khai báo biến kiểu real, còn nếu đề bài nói số nguyên thì khai báo bằng kiểu nguyên (byte, integer, word, longint) nhé

cách 2

var a,b:real;

begin

write(' Nhap chieu dai a: ');

readln(a);

write(' Nhap chieu rong b: ');

readln(b);

writeln(' Chu vi hinh chu nhat la: ',(a+b)*2);

write(' Dien tich hinh chu nhat la: ',a*b);

readln

end.