Question

Viết CT tính diện tích xung quanh và thể tích hình hộp chữ nhật (các kích thước được nhập vào từ bàn phím) 

Answer 1

Var sxq,v,d,r,c:real;

Begin

Write('Chieu dai = ');readln(d);

Write('Chieu rong = ');readln(r);

Write('Chieu cao = ');readln(c);

sxq:=2*(d+r)*c;

v:=d*r*c;

Writeln('Dien tich xung quanh la ',sxq:10:2);

Write('The tich la ',v:10:2);

Readln

End.

Answer 2

* Công thức :

- Diện tích xung quanh hình hộp chữ nhật: 

Trong đó:

+  là nửa chu vi đáy.

+  là chiều cao.

- Thể tích hình hộp chữ nhật: 

Trong đó:

+  là diện tích đáy.

+  là chiều cao.

Mã số;

p = float(input('p = '))
S = float(input('S = '))
h = float(input('h = '))
Sxq = 2 * p * h
V = S * h
print(Sxq, V)