Viết chương trình nhập vào chiều dài và chiều rộng hình chữ nhật từ bàn phím, in ra màn hình chu vi và diện tích của hình chữ nhật đó

Viết chương trình nhập vào chiều dài và chiều rộng hình chữ nhật từ bàn phím, in ra màn hình chu vi và diện tích của hình chữ nhật đó

Đề bài: Viết chương trình nhập vào chiều dài và chiều rộng hình chữ nhật từ bàn phím, in ra màn hình chu vi và diện tích của hình chữ nhật đó?

Lời giải:

uses crt;

var dai,rong,cv,dt:real;

begin

clrscr;

write('nhap chieu dai:'); readln(dai);

write('nhap chieu rong:'); readln(rong);

if (dai>0) and (rong>0) and (dai>=rong) then

begin

cv:=(dai+rong)*2;

dt:=dai*rong;

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

writeln('dien tich hinh chu nhat la: ',dt:4:2);

end

else writeln('vui long nhap lai');

readln;

end.