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

202

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (phần 1) hay nhất được biên soạn và chọn lọc giúp bạn ôn luyện và đạt kết quả cao trong bài thi môn Tin học.

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.

Từ khóa :
Giải bài tập
Đánh giá

0

0 đánh giá