Разработка универсальной программы по подсчету досок ламината на задаваемую плащадь

Далее ламинат укладывают на паровлагонепроницаемую полиэтиленовую пленку толщина которой 0,2 мм, на стыке пленку следует уложить с нахлестом не менее 20 см. Укладка ламината обязательно должна сопровождаться с выполнением шумопоглощающей подложки, поскольку она устраняет шумы, нивелирует маленькие неровные места. Уложить ламинат могут на подложку из полиэтилена, пробки, шерстно-войлочного картона, а также на «профессиональный» материал. Укладка паркета (ламината) в зимнее время требует обязательной адаптации материала к климату помещения, к влажности и температуре. Перед тем, как произойдет укладка ламината, его следует хранить в закрытом виде.

Уложить ламинат можно поперек длинной стены и окна, вдоль длинной стены и окна и, наконец возможна укладка ламината по диагонали. Укладка ламината по диагонали наиболее сложная и требует определенных навыков и опыта. Необходимо обязательно учитывать направление света падающего из окна, как правило, планки ламината укладывают по направлению падения света, такая технология укладки ламината делает менее заметными стыки между панелями ламината. В длинном узком помещении без окон, панели монтируются перпендикулярно длине данного помещения, при этом не учитывается направление света, это позволяет визуально расширить пространство. В данном случае минимальное расстояние, которое допускается между стыками в соседнем ряду не менее 200 мм. Такая укладка ламината повышает прочность соединения панелей.

Разработка программы подсчета количества досок ламината Программу по подсчету досок ламината на задаваемую площадь реализуем в среде Turbo Pascal.

Этапы работы программы:

— ввод длины и ширины одной доски ламината;

— ввод площади помещения;

— вывод результата.

Рис. 1 Кладка ламината по длине

Входные данные: площадь помещения, длина и ширина ламинатной доски в миллиметрах.

Выходные данные: Общее число использованных досок.

При разработке программы необходимо учесть наличие теплового зазора при кладке между досками ламината, а также наличие пазов соединения.

В программе также необходимо учесть случай, когда доска ламината имеет не стандартные размеры (1280мм на 192мм) и позволить пользователю самому задавать размер доски (рис. 1).

Первый этап при разработке программы — объявление переменных и констант.

Константа m — необходима для перевода из миллиметров в метры.

Переменная s хранит данные о площади помещения, которую задает пользователь.

Переменная SR хранит расчетные данные теоретического теплового зазора.

Переменная a1 хранит данные о длине доски ламината.

Переменная b1 хранит данные о ширине доски ламината.

Переменная S1 хранит расчетные данные о теоретическом пазе соединения.

Следующий этап — очистка экрана:

clrscr;

Далее программа просит пользователя ввести данные о ширине и длине доски ламината, предлагая в качестве примера стандартные:

writeln ('Vvedite dlinu doski laminata, mm (pr = 1280 mm): ');

readln (al);

writeln ('Vvedite shirinu doski laminata, mm (pr = 192 mm): ');

readln (bl);

Далее осуществляется вывод на экран площади одной доски ламината:

writeln ('Ploshad doski laminata (', al:8:0,' x', bl:8:0,') = ', ((al/m)*(bl/m)):8:3, ' m*m');

Далее программа просит пользователя ввести данные о площади помещения в метрах:

writeln ('Vvedite ploshad S pomesheniya (m*m)');

readln (s);

После ввода всех необходимых данных производится расчет всех необходимых данных.

Рассчитывается теоретический тепловой зазор:

SR:=s-0.02; {teoreticheskii teplovoy zazor}

Рассчитывается теоретический паз соединения:

Sl:=(al/m)*((bl-15)/m); {teoreticheskii paz soedineniya}

Рассчитывается и выводится на экран количество досок ламината, необходимых для покрытия заданной площади — итог работы программы:

writeln ('kolichestvo dosok laminata (', al:8:0,' x', bl:8:0,') dlya pomesheniya (S = ', S:8:3,' m*m) = ', SR/Sl:8:3,' shtuk');

readln;

Необходимо отметить, что расчет количества досок ламината на задаваемую площадь выполняется точно, без запаса.

Блок-схема программы приведена в приложении.

Листинг

program laminat;

uses crt;

const m = 1000;

var s, SR, al, bl, Sl: real;

begin

clrscr;

{*** s uchetom teplovogo zazora, a takzhe pazov soedineniya ***}

writeln ('Vvedite dlinu doski laminata, mm (pr = 1280 mm): ');

readln (al);

writeln ('Vvedite shirinu doski laminata, mm (pr = 192 mm): ');

readln (bl);

writeln ('Ploshad doski laminata (', al:8:0,' x', bl:8:0,') = ', ((al/m)*(bl/m)):8:3, ' m*m');

writeln ('Vvedite ploshad S pomesheniya (m*m)');

readln (s);

SR:=s-0.02; {teoreticheskii teplovoy zazor}

Sl:=(al/m)*((bl-15)/m); {teoreticheskii paz soedineniya}

writeln ('kolichestvo dosok laminata (', al:8:0,' x', bl:8:0,') dlya pomesheniya (S = ', S:8:3,' m*m) = ', SR/Sl:8:3,' shtuk');

readln;

end.

Заключение

Результатом данной курсовой работы является строительный калькулятор — универсальная программа по подсчету досок ламината на задаваемую площадь, разработанная в среде Turbo Pascal.

Расчет количества досок ламината на задаваемую площадь выполняется точно, без запаса.

Меженный О.А. Turbo Pascal. — М.: Вильямс Диалектика, 2008. — 336с.

Павловская Т. А. Паскаль. Программирование на языке высокого уровня. — Спб.: Питер, 2006. — 317с.

Сухарев М. Turbo Pascal 7.

0. Учеб. пособие. Просто о сложном. — М.: Наука и техника, 2004. — 640с.

http://www.m2kafel.ru/raschet_plitki

http://planetcalc.ru/703/

http://www.stroim66.ru/experts/i4/

http://www.witex-rus.ru/articles/laying_laminat.html

http://www.poly-shop.ru/pol_info/raschet_laminat

http://ru.wikipedia.org/wiki/Turbo_Pascal

Приложение

Меженный О.А. Turbo Pascal. — М.: Вильямс Диалектика, 2008. — с. 8

Меженный О.А. Turbo Pascal. — М.: Вильямс Диалектика, 2008. — с. 12

Сухарев М. Turbo Pascal 7.

0. Учеб. пособие. Просто о сложном. — М.: Наука и техника, 2004. — с. 40.

Меженный О.А. Turbo Pascal. — М.: Вильямс Диалектика, 2008. — с. 22

Сухарев М. Turbo Pascal 7.

0. Учеб. пособие. Просто о сложном. — М.: Наука и техника, 2004. — с. 56

Сухарев М. Turbo Pascal 7.

0. Учеб. пособие. Просто о сложном. — М.: Наука и техника, 2004. — с. 61

http://www.witex-rus.ru/articles/laying_laminat.html