Заданы размеры сторон a, b, c некоторой детали в виде параллелепипеда, количество штук деталей K, размеры сторон тары для упаковки деталей, имеющей также форму параллелепипеда A, B, C. Вычислить объем детали v, объем тары V, не...
Заданы размеры сторон a, b, c некоторой детали в виде параллелепипеда, количество штук деталей K, размеры сторон тары для упаковки деталей, имеющей также форму параллелепипеда A, B, C. Вычислить объем детали v, объем тары V, необходимое количество тары N для упаковки деталей количеством K штук. Если N>10, то вычислить отношение объема детали к объему тары .
Помогите пожалуйста написать это В Паскале.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,at,bt,ct,v,vt,k,n,n1:real;
begin
write('Размеры детали: ');
readln(a,b,c);
write('Размеры тары: ');
readln(at,bt,ct);
write('Количество деталей: ');
readln(k);
v:=a*b*c;
vt:=at*bt*ct;
n1:=int(vt/v);
n:=int(k/n1);
if frac(k/n1)>0 then n:=n+1;
writeln ('Необходимое количество тары: ',n);
if n>10 then writeln('Отношение объемов: ',v/vt);
end.
Не нашли ответ?
Похожие вопросы