Cho hình hộp chữ nhật của đáy là W, chiều dài là l , chiều cao của hình hộp là H cm ( 0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Cho hình hộp chữ nhật của đáy là W, chiều dài là l , chiều cao của hình hộp là H cm ( 0
0 bình luận về “Cho hình hộp chữ nhật của đáy là W, chiều dài là l , chiều cao của hình hộp là H cm ( 0 <W,l,H< 100). Viết chương trình và đưa ra màn hình diện tích t”
program hoidap247;
uses crt;
var w,i,s,h,u,v,d : integer;
begin
Write(‘ day hinh hop chu nhat la :’); readln(w);
Write(‘ chieu dai hinh hop chu nhat la :’); readln(i);
Write(‘ chieu cao hinh hop chu nhat la :’); readln(h);
v:w*i*h
u := 2*h*(w + I);
s := u + 2*w*I;
write(‘ the tich hinh hop chu nhat la :’,v);
write(‘ dien tich toan phan hinh hop chu nhat la :’,s);
program hoidap247;
uses crt;
var w,i,s,h,u,v,d : integer;
begin
Write(‘ day hinh hop chu nhat la :’); readln(w);
Write(‘ chieu dai hinh hop chu nhat la :’); readln(i);
Write(‘ chieu cao hinh hop chu nhat la :’); readln(h);
v:w*i*h
u := 2*h*(w + I);
s := u + 2*w*I;
write(‘ the tich hinh hop chu nhat la :’,v);
write(‘ dien tich toan phan hinh hop chu nhat la :’,s);
readln
end.
program az;
uses Crt;
var W,I,H,S,U,V,D : integer;
begin
Write(‘ Day hinh hop chu nhat la :’); readln(W);
Write(‘ Chieu dai hinh hop chu nhat la :’); readln(I);
Write(‘ Chieu cao hinh hop chu nhat la :’); readln(H);
V := W*I*H;
U := 2*H*(W + I);
S := U + 2*W*I;
Write(‘ The tich hinh hop chu nhat la :’,V);
Write(‘ Dien tich toan phan hinh hop chu nhat la :’,S);
readln
end.