Viết công thức nhập vào chiều dài(D) chiều rộng(R) chiều cao (H) của hình hộp chữ nhật.Tính và xuất ra diện tích xung quanh (Sxq) diện tích toàn phần (STP)và thể tích(V) của hình hộp.Biết rằng công thức tính Sxq,STP,V như sau
Sxq=(D*R)*2*H
Stp=Sxq+2*D*R
V=D*R*H
Khai báo 6 biến
Nhập D
Nhập R
Nhập H
Sxq:=(D*R)*2*H;
....,
Program Hinh_hop_chu_nhat;
Uses crt;
Var d,r,h,sxq,stp,v:real;
Begin
clrscr;
Write('Nhap chieu dai:'); Readln(d);
Write('Nhap chieu rong:'); Readln(r);
Write('Nhap chieu cao:'); Readln(h);
sxq:=(d*r)*2*h;
stp:=sxq+2*d*r;
v=d*r*h;
Writeln('Dien tich xung quanh la:',sxq);
Writeln('Dien tich toan phan:',stp);
Writeln('The tich la:',v);
Readln
End.
Đề bạn cần hỏi gì ?
