viết phương trình tính diện tích và chu vi hình chữ nhật. Với chiều dài và chiều rộng nhập vào từ bàn phím
2 câu trả lời
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.
#Học tốt
program ct;
uses crt;
var cv,dt,dai,rong:real;
begin clrscr;
write('nhap chieu dai=');readln(dai);
write('nhap chieu rong=');readln(rong);
dt:=dai*rong;
cv:=(dai+rong)*2;
writeln('dien tich hinh chu nhat la:',dt);
writeln('chu vi hinh chu nhat la:',cv);
readln
end.
Câu hỏi trong lớp
Xem thêm