Пример решения домашнего задания

7. Пример решения домашнего задания

(используется для проверки домашнего задания)

Пример программы для решения данной задачи:

program z2;

var D,d1,Dsr,L,l1,n,h,pi:real;

begin

pi:=3.14;

L:=150;

writeln('измерить наружный диаметр рулона D и внутренний диаметр d1');

readln(D,d1);

Dsr:=(D+d1)/2;//Найдем средний диаметр рулона скотча

l1:=pi*Dsr;//Найдем длину скотча по среднему в рулоне диаметру по формуле

n:=L/l1;//Вычисляем количество слоев скотча в рулон

h:=(D-d1)/n;//Подсчитываем толщину одного слоя скотча по формуле

Writeln('Толщина одного слоя скотча в рулоне равна ', h,' мм');

end.