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

765

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

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

Câu 25: 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.

Đánh giá

0

0 đánh giá