Написать прогу в паскале.нужно высчитать минимальные затраты на поклейку обоями комнаты. 3вида обоев(по ширине),3 вида обоев(3типа обоев)+разные цены на обои,1 вид клея,из площади комнаты вычесть площадь окон и дверей.

189

407

Посмотреть ответы 2

Ответы на вопрос:

drewetova

Информатика

4,4(70 оценок)

Const n = 9; type twp = record naim: string; wide: real; leng: real; cost: real end; var wallpaper: array[1..n] of twp; lr, wr, hr, ww, hw, wd, hd, gc, sg: real; i, nw, nd, npanel, nwp, nrolls, index: integer; p, npanroll, ng, cg, c, cmin: real; begin writeln('введите информацию по рулонам обоев: '); for i : = 1 to n do begin with wallpaper[i] do begin write('рулон ', i, ', наименование: '); readln(naim); write('ширина, длина, стоимость: '); readln(wide, leng, cost); end; end; writeln('длина комнаты, ширина комнаты, высота оклейки'); readln(lr, wr, hr); writeln('ширина окна, высота окна, количество окон'); readln(ww, hw, nw); writeln('ширина двери, высота двери, количество дверей'); readln(wd, hd, nd); writeln('стоимость обойного клея и площадь, которую им можно оклеить'); readln(gc, sg); p : = 2 * (lr + wr) - nw * ww - nd * wd; //периметр оклейки ng : = p * hr / sg; if ng > int(ng) then ng : = int(ng) + 1; //количество банок с клеем cg : = gc * ng; // общая стоимость клея cmin : = 32768; nrolls : = 0; index : = 0; for i : = 1 to n do with wallpaper[i] do begin // требуемое количество полотнищ, т.е. сколько раз // ширина рулона укладывается по периметру оклейки npanel : = trunc(p / wide); if p - npanel * wide > 0 then npanel : = npanel + 1; // определяем, сколько полотнищ получается из одного рулона // при заданной высоте оклейки. npanroll : = leng / hr; // вычисляем, сколько потребуется рулонов nwp : = trunc(npanel / npanroll); if npanel - nwp * npanroll > 0 then nwp : = nwp + 1; c : = nwp * cost + cg; // cтоимость поклейки обоев if cmin > c then begin cmin : = c; index : = i; nrolls : = nwp end; end; with wallpaper[index] do begin writeln('минимальные расходы на оклейку в сумме ', cmin: 0: 2); writeln('получаются при использовании ', nrolls, ' рул. обоев ',naim); writeln('шириной ', wide * 100: 0: 2, ' при цене ', cost: 0: 2, ' руб.'); writeln('за рулон длиной ', leng: 0: 0, ' м. и ',ng,' банок клея.') end end. тестовое решение: введите информацию по рулонам обоев: рулон 1, наименование: гладкие ширина, длина, стоимость: 0.8 10 190 рулон 2, наименование: гладкие ширина, длина, стоимость: 0.9 10 210 рулон 3, наименование: гладкие ширина, длина, стоимость: 1.2 8 240 рулон 4, наименование: ромбик ширина, длина, стоимость: 0.8 10.5 210 рулон 5, наименование: ромбик ширина, длина, стоимость: 0.9 10 230 рулон 6, наименование: ромбик ширина, длина, стоимость: 1.1 8.5 240 рулон 7, наименование: тисненые ширина, длина, стоимость: 0.8 10 218 рулон 8, наименование: тисненые ширина, длина, стоимость: 0.9 9.5 224 рулон 9, наименование: тисненые ширина, длина, стоимость: 1 9 235 длина комнаты, ширина комнаты, высота оклейки 8.5 6.2 2.4 ширина окна, высота окна, количество окон 1.6 1.2 1 ширина двери, высота двери, количество дверей 0.95 2.2 2 стоимость обойного клея и площадь, которую им можно оклеить 85 3.1 минимальные расходы на оклейку в сумме 3255.00 получаются при использовании 7 рул. обоев гладкие шириной 90.00 при цене 210.00 руб. за рулон длиной 10 м. и 21 банок клея.

kristpan2004p0c22v

Информатика

4,4(1 оценок)

ответ:

надо подключить к интернету

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.