Viết chương trình tính diện tích và chu vi của hình chữ nhật có 2 cạnh nguyên (<65000 đơn vị dài). Và xuất các giá trị vừa tính được ra màn hình?
2 câu trả lời
uses crt;
var a, b, cv, s : extended;
begin
clrscr;
write('nhap chieu dai va chieu rong : ');
readln(a, b);
if ((a > 0) and (a < 65000)) and ((b > 0) and (b < 65000)) then
begin
cv := (a + b) * 2;
s := a * b;
writeln('chu vi = ', cv:2:1);
writeln('dien tich = ', s:2:1);
end;
readln
end.
#Chiều Dài
length = float(input("Nhập Chiều Dài: "))
#Chiều Rộng
width = float(input("Nhập Chiều Rộng: "))
#Chu Vi
print("\nChu Vi Hình Chữ Nhật: " + str((length + width) * 2))
#Diện Tích
print("Diện Tích Hình Chữ Nhật: " + str(length * width))
