Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
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.
* Công thức :
- Diện tích xung quanh hình hộp chữ nhật: Sxq=2ph
Trong đó:
+ p là nửa chu vi đáy.
+ h là chiều cao.
- Thể tích hình hộp chữ nhật: V=Sh
Trong đó:
+ S là diện tích đáy.
+ h 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)
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.
Tổng n số tự nhiên đầu tiên:
Var i,n,s:integer;
Begin
Write('n = ');
for i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln
End.
Tích các số từ 5 đến 30
Var i,p:longint;
Begin
p:=1;
For i:=5 to 30 do
P:=p*i;
Write('Tich la ',p);
Readln
End.
Chu vi đáy của hình hộp chữ nhật là :
(3+4)×2=14(cm)
Diện tích xung quanh là :
14×5=70(cm)
Thể tích hình hộp chữ nhật là :
3×4×5=60(cm)
Đ/S:....
Diện tích mặt đáy của hình hộp chữ nhật đó là:
( 192 - 168 ) : 2 = 12 cm vuông
Chiều cao của hcn đó là:
144 : 12 = 12 cm
Tổng chiều dài và chiều rộng của hình chữ nhật là:
192 : 12 : 2 = 8 cm
Ta có chiều dài + rộng = 8 cm và chiều dài x chiều rộng = 12 cm
=> Chiều dài = 6 cm và chiều rộng = 2 cm
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.