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

Далее ламинат укладывают на паровлагонепроницаемую полиэтиленовую пленку толщина которой 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