Lập trình đơn giản

IB

Viết chương trình tính chu vi và diện tích hình chữ nhật với chiều dài và chiều rộng được nhập từ bàn phím

NT
14 tháng 5 2020 lúc 18:36

uses crt;

var dai,rong,cv,dt:real;

begin

clrscr;

repeat

write('Chieu dai='); readln(dai);

write('Chieu rong='); readln(rong);

until (dai>0) and (rong>0) and (dai>=rong);

cv:=(dai+rong)*2;

writeln('Chu vi=',cv:4:2);

dt:=dai*rong;

writeln('Dien tich=',dt:4:2);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
KV
Xem chi tiết
TN
Xem chi tiết
HM
Xem chi tiết
XB
Xem chi tiết
TD
Xem chi tiết
H24
Xem chi tiết
QD
Xem chi tiết
NA
Xem chi tiết
DT
Xem chi tiết