Предмет: Информатика, автор: Аноним

Pascal: написать программу расчета количества рулонов обоев шириной d см, если известны длина, ширина, высота комнаты (a,b,c), размеры одного окна (m,n) и одной двери (p,k). ​Дверь одна, окно тоже.


Аноним: 1 дверь, 1 окно

Ответы

Автор ответа: BobbyFresnel
1

var

 a, b, c, d, l, m, n, p, k, r: integer;

 S, u: real;

begin

 writeln('Оклейка комнаты обоями. Все размеры в см.');

 write('Укажи длину, ширину и высоту комнаты: ');

 readln(a, b, c);

 write('Укажи ширину и высоту двери: ');

 readln(p, k);

 write('Укажи ширину и высоту окна: ');

 readln(m, n);

 write('Укажи длину и ширину рулона обоев: ');

 readln(l, d);

 S := 2 * c * (a + b) - p * k - m * n; { площадь оклейки }

 u := l * d; { площадь одного рулона }

 r := Trunc(S / u);

 if Frac(S / u) > 0.05 then

   r := r + 1;

 writeln('Потребуется рулонов: ', r)

end.


Аноним: а что за r trunc и frac?
Похожие вопросы
Предмет: Алгебра, автор: kolya5136
Предмет: География, автор: яegor