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
225
17/10/2023
Câu 20: 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 đó?
Trả lờ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.
