Question

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;

....,

Answer 1

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.

Answer 2

Đề bạn cần hỏi gì ?