(3.12)

где К_ДЗП - стимулирующая надбавка.

В экономическом расчете рекомендуется дополнительную заработную плату выбирать в интервале от 10% до 15%. Исходя из этого, значение стимулирующей надбавки К_ДЗП принимается равным 13%, то есть К_ДЗП=0,13.

Дополнительная заработная плата рассчитывается по формуле (3.12)

(руб.)

Расчет страхового взноса.

Страховой взнос включает в себя денежные отчисления во внебюджетные фонды. Страховой взнос СВ, руб. рассчитывается по формуле

	(3.13)

где К_СВ - коэффициент процентной ставки.

Страховой взнос на территории Российской Федерации составляет 30% от доходов населения, то есть К_СВ =0,30.

Страховой взнос рассчитывается по формуле (3.13)

(руб)

Расчет затрат на содержание фондов.

Затраты на содержание фондов СО, руб. рассчитываются по формуле

	(3.14)

где СО_ЭВМ - расходы на содержание компьютера, руб.;

СО_пр - расходы на содержание принтера, руб.

Расходы на содержание компьютера СО_ЭВМ, руб. рассчитываются по формуле

	(3.15)

где С_ЭВМ - стоимость компьютера, руб.;

Т_пол - полезное время использования, ч., принимается равным 36 месяцам по 176 часов в каждом месяце;

Т - время использования компьютера при выполнении работы, ч., принимается равным 153,69 часам.

Стоимость компьютера, на котором производится разработка электронного пособия, принимаем равной 16000,00 руб. Расходы на содержание ЭВМ рассчитываются по формуле (3.15)

(руб.)

Расходы на содержание принтера, СО_пр, руб. рассчитываются по формуле

	(3.16)

где С_пр - стоимость принтера, руб.;

Т_пол - полезное время использования, ч., принимается равным 36 месяцам по 176 часов в каждом месяце;

Т - время использования принтера при выполнении работы, ч., принимается равным 0,5 часа.

Стоимость принтера равна 3000,00 руб. Время работы принтера составляет 0,5 часа.

Расходы на содержание принтера рассчитываются по формуле (3.16)

(руб.)

Затраты на содержание фондов СО, руб., рассчитываются по формуле (3.14)

(руб.)

Расчет общехозяйственных расходов.

Общехозяйственные расходы рекомендуется рассчитывать на основании процентной ставки 120% -180% от основной заработной платы. Возьмем размер процентной ставки равной 140%, то есть К_ОХР =1,4.

Общехозяйственные затраты ОХР, руб. вычисляются по формуле

	(3.17)

где К_ОХР - коэффициент общехозяйственных расходов.

Общехозяйственные затраты вычисляются по формуле (3.17)

(руб.)

Расчет полной себестоимости программного продукта.

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

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

	(3.18)

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

Расчет коммерческих затрат

В экономическом расчете коммерческие затраты рекомендуется выбирать из диапазона процентных ставок от 2% до 4% от полной производственной себестоимости. В расчете коммерческие затраты составляют 3%, то есть К_кз = 0,03.

Коммерческие затраты КЗ, руб. определяются по формуле

	(3.19)

где К_кз. - коэффициент коммерческих затрат, руб.

Коммерческие затраты рассчитываются по формуле (3.19)

(руб.)

Расчет коммерческой себестоимости.

Коммерческая себестоимость продукта Сб_ком, руб., определяется по формуле

	(3.20)

Коммерческая себестоимость продукта рассчитывается по формуле (3.20)

(руб.)

Расчет отпускной цены.

Отпускная цена ОЦ, руб., определяется по формуле

	(3.21)

где Ц_ком. - коммерческая цена завода изготовителя, руб.;

К_НДС - коэффициент на добавленную стоимость.

Для определения отпускной цены необходимо определить коммерческую цену Ц_ком.

Коммерческая цена Ц_ком , руб. рассчитывается по формуле

	(3.22)

где П_пр. - плановая прибыль, руб.

Плановая прибыль П_пр, руб. рассчитывается по формуле

	(3.23)

где К_р. - коэффициент рентабельности.

В экономическом расчете процент рентабельности принимается равным 25%, то есть К_р=0,25.

Плановую прибыль с учетом коэффициента планируемой прибыли вычисляется по формуле (3.23)

 (руб.)

Отпускная цена программы "Расчет фундаментов" рассчитывается по формуле (3.22)

(руб.)

В соответствии с действующим законодательством Российской Федерации, при реализации продукции следует учитывать налог на добавленную стоимость (НДС). В экономическом расчете процентная ставка НДС составляет 18%, то есть К_НДС=0,18.

Отпускная цена с учетом НДС рассчитывается по формуле (3.21)

(руб.)

Все вычисления сведены в таблицу 3.4.

Таблица 3.4 - Сводная ведомость затрат на выполнение работ

Наименование статей затрат	Сумма, руб.	% к итогу
Основные и вспомогательные материалы, полуфабрикаты и комплектующие (за вычетом возвратных отходов)	2013,35	5,51
Основная заработная плата производственных рабочих		31,10
Дополнительная заработная плата		4,04
Страховой взнос		11,96
Содержание и эксплуатация оборудования		0,97
Общехозяйственные расходы	15892,99	43,59
Итого: Полная себестоимость
Коммерческие расходы		2,91
Итого: Коммерческая себестоимость		100,00
Коммерческая цена с учетом рентабельности	45184
Отпускная цена с учетом НДС(18%)

Таким образом, в результате экономического расчета полная себестоимость дипломного проекта программа "Расчет фундаментов" составляет 45184 руб., коммерческая себестоимость составляет 36512,96 руб., отпускная цена с учетом НДС составляет 53317,12 руб.

4. Техника безопасности

При работе с персональными электронными машинами (ПЭВМ) и видеодисплейными терминалами (ВДТ) на организм человека воздействуют различные по своей природе неблагоприятные факторы.

Физические:

повышенные уровни электромагнитного, рентгеновского, ультрафиолетового и инфракрасного излучения;

повышенный уровень статического электричества;

повышенные уровни запыленности воздуха рабочей зоны;

повышенное содержание положительных аэроионов в воздухе рабочей зоны;

пониженное содержание отрицательных аэроионов в воздухе рабочей зоны;

пониженная или повышенная влажность и подвижность воздуха рабочей зоны;

повышенный уровень шума;

повышенный или пониженный уровень освещенности;

повышенный уровень прямой и отраженной блесткости;

повышенный уровень ослепленности;

неравномерность распределения яркости в поле зрения;

повышенная яркость светового изображения;

повышенный уровень пульсации светового потока;

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

Химические:

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

Биологические:

повышенное содержание в воздухе рабочей зоны микроорганизмов.

Психофизиологические:

напряжение зрения и внимания;

интеллектуальные и эмоциональные нагрузки;

длительные статические нагрузки;

монотонность труда;

большой объем информации, обрабатываемой в единицу времени;

нерациональная организация рабочего места.

При работе с ЭВМ опасные и вредные факторы влияют на следующие категории работников:

операторов ПЭВМ и ВДТ, работа которых связана с приемом и вводом информации, наблюдением и корректировкой решаемых задач по готовым программам;

программистов, работа которых связана с разработкой, проверкой, отладкой программ;

Освещенность рабочего места является одним из определяющих факторов, влияющих на работу пользователя ПЭВМ.

Контроль искусственного освещения:

При контроле искусственного освещения рабочих мест инженера-технолога с дисплеями определяется соответствие требованием действующих норм: системы освещения, источников света, типов светильников, решений по ограничению отраженной блескости, пульсации освещенности, фактических параметров освещения на рабочих поверхностях;

Проводятся измерения:

освещенности на рабочих местах;

яркости рабочих поверхностей экрана, стола, документа;

яркости пятен отражения в экране светильников, источников света;

Контрольные измерения освещенности и яркости следует проводить на рабочих местах с дисплеями всех типов имеющегося, а помещении оборудования, находящихся в различных условиях освещения, затененных конструктивными элементами оборудования или коммуникациями, там, где имеются жалобы работающих;

Контрольные точки для освещенности на рабочем месте размещаются:

на клавиатуре, в горизонтальной плоскости;

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

Условия освещения рабочих мест с дисплеями:

рабочее место находится в положении, позволяющем избежать наличия дискомфортной яркости отражений источников света в экране и на клавиатуре дисплея;

типы используемых светильников общего и местного освещения должны соответствовать требованиям действующих норм;

соотношения яркостей в поле зрения операторов и яркости бликов отражений в экране должны соответствовать установленным допустимым значениямя

Помещения для занятий оборудуются одноместными столами, предназначенными для работы с ПЭВМ.

Конструкция одноместного стола для работы с ПЭВМ должна предусматривать:

две раздельные поверхности: одна горизонтальная для размещения ПЭВМ с плавной регулировкой по высоте в пределах 520 - 760 мм и вторая - для клавиатуры с плавной регулировкой по высоте и углу наклона от 0 до 15 градусов с надежной фиксацией в оптимальном рабочем положении (12 - 15 градусов);

ширину поверхностей для ВДТ и клавиатуры не менее 750 мм (ширина обеих поверхностей должна быть одинаковой) и глубину не менее 550 мм;

опору поверхностей для ПЭВМ или ВДТ и для клавиатуры на стояк, в котором должны находиться провода электропитания и кабель локальной сети. Основание стояка следует совмещать с подставкой для ног;

отсутствие ящиков;

увеличение ширины поверхностей до 1200 мм при оснащении рабочего места принтером.

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

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

Линия взора должна быть перпендикулярна центру экрана и оптимальное ее отклонение от перпендикуляра, проходящего через центр экрана в вертикальной плоскости, не должно превышать ±5 градусов, допустимое ±10 градусов.

Эксплуатация ПЭВМ в помещениях без естественного освещения допускается только при наличии расчетов, обосновывающих соответствие нормам естественного освещения и безопасность их деятельности для здоровья работающих. (п. 3.1 в ред. Изменения N 1, утвержденного Постановлением Главного государственного санитарного врача РФ от 25.04.2007 N 22)

Естественное и искусственное освещение должно соответствовать требованиям действующей нормативной документации. Окна в помещениях, где эксплуатируется вычислительная техника, преимущественно должны быть ориентированы на север и северо-восток.

Оконные проемы должны быть оборудованы регулируемыми устройствами типа: жалюзи, занавесей, внешних козырьков и др.

Не допускается размещение мест пользователей ПЭВМ во всех образовательных и культурно-развлекательных учреждениях для детей и подростков в цокольных и подвальных помещениях.

Площадь на одно рабочее место пользователей ПЭВМ с ВДТ на базе электронно-лучевой трубки (ЭЛТ) должна составлять не менее 6 м², в помещениях культурно-развлекательных учреждений и с ВДТ на базе плоских дискретных экранов (жидкокристаллические, плазменные) - 4,5 м².

При использовании ПВЭМ с ВДТ на базе ЭЛТ (без вспомогательных устройств - принтер, сканер и др.), отвечающих требованиям международных стандартов безопасности компьютеров, с продолжительностью работы менее 4-х часов в день допускается минимальная площадь 4,5 м² на одно рабочее место пользователя (взрослого и учащегося высшего профессионального образования).

Для внутренней отделки интерьера помещений, где расположены ПЭВМ, должны использоваться диффузно отражающие материалы с коэффициентом отражения для потолка - 0,7 - 0,8; для стен - 0,5 - 0,6; для пола - 0,3 - 0,5.

Полимерные материалы используются для внутренней отделки интерьера помещений с ПЭВМ при наличии санитарно-эпидемиологического заключения.

Помещения, где размещаются рабочие места с ПЭВМ, должны быть оборудованы защитным заземлением (занулением) в соответствии с техническими требованиями по эксплуатации.

Не следует размещать рабочие места с ПЭВМ вблизи силовых кабелей и вводов, высоковольтных трансформаторов, технологического оборудования, создающего помехи в работе ПЭВМ.

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

В производственных помещениях, в которых работа с использованием ПЭВМ является основной (диспетчерские, операторские, расчетные, кабины и посты управления, залы вычислительной техники и др.) и связана с нервно-эмоциональным напряжением, должны обеспечиваться оптимальные параметры микроклимата для категории работ 1а и 1б в соответствии с действующими санитарно-эпидемиологическими нормативами микроклимата производственных помещений. На других рабочих местах следует поддерживать параметры микроклимата на допустимом уровне, соответствующем требованиям указанных выше нормативов.

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

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

Уровни положительных и отрицательных аэроионов в воздухе помещений, где расположены ПЭВМ, должны соответствовать действующим санитарно-эпидемиологическим нормативам [11].

Содержание вредных химических веществ в воздухе производственных помещений, в которых работа с использованием ПЭВМ является вспомогательной, не должно превышать предельно допустимых концентраций вредных веществ в воздухе рабочей зоны в соответствии с действующими гигиеническими нормативами.

Содержание вредных химических веществ в производственных помещениях, в которых работа с использованием ПЭВМ является основной (диспетчерские, операторские, расчетные, кабины и посты управления, залы вычислительной техники и др.), не должно превышать предельно допустимых концентраций загрязняющих веществ в атмосферном воздухе населенных мест в соответствии с действующими гигиеническими нормативами.

Содержание вредных химических веществ в воздухе помещений, предназначенных для использования ПЭВМ во всех типах образовательных учреждений, не должно превышать предельно допустимых среднесуточных концентраций для атмосферного воздуха в соответствии с действующими санитарно-эпидемиологическими нормативами.

В производственных помещениях при выполнении основных или вспомогательных работ с использованием ПЭВМ уровни шума на рабочих местах не должны превышать предельно допустимых значений, установленных для данных видов работ в соответствии с действующими санитарно-эпидемиологическими нормативами.

В помещениях всех образовательных и культурно-развлекательных учреждений для детей и подростков, где расположены ПЭВМ, уровни шума не должны превышать допустимых значений, установленных для жилых и общественных зданий.

При выполнении работ с использованием ПЭВМ в производственных помещениях уровень вибрации не должен превышать допустимых значений вибрации для рабочих мест (категория 3, тип "в") в соответствии с действующими санитарно-эпидемиологическими нормативами.

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

Шумящее оборудование (печатающие устройства, серверы и т.п.), уровни шума которого превышают нормативные, должно размещаться вне помещений с ПЭВМ.

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

Искусственное освещение в помещениях для эксплуатации ПЭВМ должно осуществляться системой общего равномерного освещения. В производственных и административно-общественных помещениях, в случаях преимущественной работы с документами, следует применять системы комбинированного освещения (к общему освещению дополнительно устанавливаются светильники местного освещения, предназначенные для освещения зоны расположения документов).

Освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300 - 500 лк. Освещение не должно создавать бликов на поверхности экрана. Освещенность поверхности экрана не должна быть более 300 лк.

Следует ограничивать прямую блесткость от источников освещения, при этом яркость светящихся поверхностей (окна, светильники и др.), находящихся в поле зрения, должна быть не более 200 кд/м².

Следует ограничивать отраженную блесткость на рабочих поверхностях (экран, стол, клавиатура и др.) за счет правильного выбора типов светильников и расположения рабочих мест по отношению к источникам естественного и искусственного освещения, при этом яркость бликов на экране ПЭВМ не должна превышать 40 кд/м² и яркость потолка не должна превышать 200 кд/м².

Показатель ослепленности для источников общего искусственного освещения в производственных помещениях должен быть не более 20. Показатель дискомфорта в административно-общественных помещениях - не более 40, в дошкольных и учебных помещениях - не более 15.

Яркость светильников общего освещения в зоне углов излучения от 50 до 90 градусов с вертикалью в продольной и поперечной плоскостях должна составлять не более 200 кд/м², защитный угол светильников должен быть не менее 40 градусов.

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

Следует ограничивать неравномерность распределения яркости в поле зрения пользователя ПЭВМ, при этом соотношение яркости между рабочими поверхностями не должно превышать 3:1 - 5:1, а между рабочими поверхностями и поверхностями стен и оборудования - 10:1.

В качестве источников света при искусственном освещении следует применять преимущественно люминесцентные лампы типа ЛБ и компактные люминесцентные лампы (КЛЛ). При устройстве отраженного освещения в производственных и административно-общественных помещениях допускается применение металлогалогенных ламп. В светильниках местного освещения допускается применение ламп накаливания, в том числе галогенных.

Для освещения помещений с ПЭВМ следует применять светильники с зеркальными параболическими решетками, укомплектованными электронными пускорегулирующими аппаратами (ЭПРА). Допускается использование многоламповых светильников с электромагнитными пускорегулирующими аппаратами (ЭПРА), состоящими из равного числа опережающих и отстающих ветвей.

Применение светильников без рассеивателей и экранирующих решеток не допускается.

При отсутствии светильников с ЭПРА лампы многоламповых светильников или рядом расположенные светильники общего освещения следует включать на разные фазы трехфазной сети.

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

Коэффициент запаса (Кз) для осветительных установок общего освещения должен приниматься равным 1,4.

Коэффициент пульсации не должен превышать 5%.

Для обеспечения нормируемых значений освещенности в помещениях для использования ПЭВМ следует проводить чистку стекол оконных рам и светильников не реже двух раз в год и проводить своевременную замену перегоревших ламп [12].

Заключение

В ходе дипломного проектирования была разработана программа "Расчет фундаментов".

Программа "Расчет фундаментов" выполняет все требования предъявленные к ней.

В итоге полученный программный продукт может применяться как пример, методичка или информационное пособие по дисциплине "Математические методы" в любом средне-специальном или средне-техническом учебных заведениях.

Проектное решение реализовано в среде программирования Delphi 7.0.

Для полученной программы в дальнейшем возможна модернизация, усовершенствование.

Был произведен расчет себестоимости программы. Себестоимость программы составляет: 36512,96 руб.

Список литературы

1. Долматов Б.И. "Проектирование фундаментов зданий и промышленных сооружений"

2. Матросов Ф.В., Сергеев А.О., Чаунин М.П. HTML 4.0 СПБ.: БВХ - Петербург, 2002.

3. Бобровский С. И. Delphi 7. Учебный курс - СПб.: Питер, 2009. - 736 с.: ил.

4. Гофман В.Э. "Delphi 7" - СПБ.: БВХ - Петербург, 2012.

5. Фаронов В.В. Delphi. "Программирование на языке высокого уровня: Учебник для вузов" - СПб.: Питер, 2011. - 640 с., ил.

6. Фирсов В.Р. Методическое пособие "Экономика отрасли", Владимир, 2009.

7. Правовая автоматизированная информационная система "Консультант плюс".

8. Правовая автоматизированная информационная система "Гарант плюс".

Приложение

Текст программного кода

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, sButton, sEdit, sLabel, Buttons, sBitBtn, ExtCtrls, sPanel, sSkinProvider, ComCtrls, sPageControl, OleCtrls, SHDocVw, jpeg, sRadioButton, acPNG, acImage;

type

TForm2 = class(TForm)

sSkinProvider1: TsSkinProvider;

sPageControl1: TsPageControl;

sTabSheet1: TsTabSheet;

sTabSheet4: TsTabSheet;

sTabSheet5: TsTabSheet;

sTabSheet6: TsTabSheet;

StringGrid1: TStringGrid;

WebBrowser1: TWebBrowser;

Image2: TImage;

sImage2: TsImage;

sLabel17: TsLabel;

sImage1: TsImage;

sLabel8: TsLabel;

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sLabel5: TsLabel;

sLabel6: TsLabel;

sLabel7: TsLabel;

sLabel9: TsLabel;

sLabel10: TsLabel;

sLabel11: TsLabel;

sLabel12: TsLabel;

sLabel13: TsLabel;

sLabel14: TsLabel;

sLabel15: TsLabel;

sLabel16: TsLabel;

sLabel18: TsLabel;

sEdit1: TsEdit;

sEdit2: TsEdit;

sEdit3: TsEdit;

sEdit4: TsEdit;

sEdit5: TsEdit;

sEdit6: TsEdit;

sEdit7: TsEdit;

sEdit8: TsEdit;

sEdit9: TsEdit;

sEdit10: TsEdit;

sEdit11: TsEdit;

sEdit12: TsEdit;

sEdit13: TsEdit;

sEdit14: TsEdit;

sButton1: TsButton;

sLabel19: TsLabel;

sLabel20: TsLabel;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure sButton1Click(Sender: TObject);

procedure sTabSheet4Show(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Main;

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.show;

end;

procedure TForm2.sButton1Click(Sender: TObject);

var F,N,Rn,Vop,hf,m,A,B,D,b1,h,Vo,cn,Pf,Nn,F1:Extended;

begin

m:=StrToFloat(sEdit1.Text);

A:=StrToFloat(sEdit2.Text);

B:=StrToFloat(sEdit3.Text);

D:=StrToFloat(sEdit4.Text);

b:=StrToFloat(sEdit5.Text);

h:=StrToFloat(sEdit6.Text);

Vo:=StrToFloat(sEdit7.Text);

cn:=StrToFloat(sEdit8.Text);

Rn:=m*((a*b+b*h)*Vo+(D*cn));

sedit9.text:=floattostr(Rn);

sedit11.text:=floattostr(Rn);

N:=StrToFloat(sEdit10.Text);

Rn:=StrToFloat(sEdit11.Text);

Vop:=StrToFloat(sEdit12.Text);

hf:=StrToFloat(sEdit13.Text);

F:=N/(Rn-Vop*hf);

{sedit9.Text:=FloatToStr(F); }

sEdit14.Text:=FloatToStr(F)

end;

{

Nn:=StrToFloat(sEdit19.text);

F:=StrToFloat(sEdit20.text);

Pf:=Nn/F;

sEdit18.Text:=FloatToStr(Pf);

sEdit20.Text:=FloatToStr(F);

end; }

procedure TForm2.sTabSheet4Show(Sender: TObject);

begin

StringGrid1.Cols[0].LoadFromFile('Tables\Table1.txt');

StringGrid1.Cols[2].LoadFromFile('Tables\Table2.txt');

StringGrid1.Cols[4].LoadFromFile('Tables\Table3.txt');

StringGrid1.Cols[6].LoadFromFile('Tables\Table4.txt');

end;

procedure TForm2.FormShow(Sender: TObject);

begin

//webbrowser1.Navigate();

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

webbrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Primeri\1.mht');

end;

{procedure TForm2.sBitBtn2Click(Sender: TObject);

var F,N,Rn,Vop,hf,m,A,B,D,b1,h,Vo,cn,Pf,Nn,F1:Extended;

begin

m:=StrToFloat(sEdit1.Text);

A:=StrToFloat(sEdit2.Text);

B:=StrToFloat(sEdit3.Text);

D:=StrToFloat(sEdit4.Text);

b:=StrToFloat(sEdit5.Text);

h:=StrToFloat(sEdit6.Text);

Vo:=StrToFloat(sEdit7.Text);

cn:=StrToFloat(sEdit8.Text);

Rn:=m*((a*b+b*h)*Vo+(D*cn));

sedit9.text:=floattostr(Rn);

sedit11.text:=floattostr(Rn);

end;

procedure TForm2.sBitBtn3Click(Sender: TObject);

var F,N,Rn,Vop,hf,m,A,B,D,b1,h,Vo,cn,Pf,Nn,F1:Extended;

begin

N:=StrToFloat(sEdit10.Text);

Rn:=StrToFloat(sEdit11.Text);

Vop:=StrToFloat(sEdit12.Text);

hf:=StrToFloat(sEdit13.Text);

F:=N/(Rn-Vop*hf);

sEdit14.Text:=FloatToStr(F)

end;

}

end.

procedure TZast.Timer1Timer(Sender: TObject);

begin

sprogressbar1.Position := sprogressbar1.Position +1;

if sprogressbar1.Position = 200 then

begin

Zast.Hide;

form1.show;

timer1.Enabled:=false;

end;

end;

end.

unit Calculation2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, sPageControl, StdCtrls, sButton, sLabel, sEdit, Grids,

sRadioButton, OleCtrls, SHDocVw, jpeg, ExtCtrls, acImage, acPNG;

type

TForm3 = class(TForm)

sPageControl1: TsPageControl;

sTabSheet2: TsTabSheet;

sTabSheet1: TsTabSheet;

PageControl1: TPageControl;

StringGrid1: TStringGrid;

sTabSheet3: TsTabSheet;

WebBrowser1: TWebBrowser;

sTabSheet4: TsTabSheet;

sImage2: TsImage;

sImage1: TsImage;

sLabel1: TsLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

sEdit9: TsEdit;

sEdit10: TsEdit;

sEdit11: TsEdit;

sEdit12: TsEdit;

sEdit13: TsEdit;

sEdit14: TsEdit;

sEdit15: TsEdit;

sEdit16: TsEdit;

sEdit17: TsEdit;

sEdit18: TsEdit;

sEdit19: TsEdit;

sButton1: TsButton;

sEdit1: TsEdit;

sEdit2: TsEdit;

sEdit3: TsEdit;

sEdit4: TsEdit;

sEdit5: TsEdit;

sEdit6: TsEdit;

sEdit7: TsEdit;

sEdit8: TsEdit;

sRadioButton1: TsRadioButton;

sRadioButton2: TsRadioButton;

sButton2: TsButton;

procedure sButton1Click(Sender: TObject);

procedure sButton2Click(Sender: TObject);

procedure sRadioButton2Click(Sender: TObject);

procedure sRadioButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

p_dp, RH, y0, h, F, NH0, y_cp, hf,

b, ZH_l1,ZH_l2, m, I, G, L_rus, Fh, F_rus, ch,

A, D, pH, S, H_e, a0, p_d, omega, torrent,

b_y, K_p, ZH, TT, H_p, omega_p, P, k,

N_p_pg, n, F_p, n_c, N_p_0, Pp, Fp:Extended;

implementation

uses Main;

{$R *.dfm}

procedure TForm3.sButton1Click(Sender: TObject);

begin

sButton1.Visible := false;

sButton2.Visible:=True;

sRadioButton2.Checked := True;

F_rus:=StrToFloat(sEdit10.Text);

h:=StrToFloat(sEdit11.Text);

L_rus:=StrToFloat(sEdit12.Text);

ch:=StrToFloat(sEdit13.Text);

y0:=StrToFloat(sEdit14.Text);

G:=StrToFloat(sEdit15.Text);

y_cp:=StrToFloat(sEdit16.Text);

hf:=StrToFloat(sEdit17.Text);

m:=StrToFloat(sEdit18.Text);

y0:=StrToFloat(sEdit10.Text);

ZH_l1 := 1/2 * (F_rus*h+L_rus*(ch/y0)-G*(y_cp*hf/m*y0));

sedit9.text:=floattostr(ZH_l1);

sedit1.text:=floattostr(ZH_l1);

sedit2.text:=floattostr(ZH_l1);

end;

procedure TForm3.sButton2Click(Sender: TObject);

begin

ZH_l1:=StrToFloat(sEdit1.Text);

ZH_l2:=StrToFloat(sEdit2.Text);

NH0:=StrToFloat(sEdit3.Text);

G:=StrToFloat(sEdit4.Text);

m:=StrToFloat(sEdit5.Text);

I:=StrToFloat(sEdit6.Text);

y0:=StrToFloat(sEdit7.Text);

b := -ZH_l1 + sqrt( sqr(ZH_l2) + (NH0*G)/(m*I*y0));

sedit8.text:=floattostr(b);

end;

procedure TForm3.sRadioButton2Click(Sender: TObject);

begin

sButton1.Visible := false;

sButton2.Visible:=True;

end;

procedure TForm3.sRadioButton1Click(Sender: TObject);

begin

sButton2.Visible := false;

sButton1.Visible:=True;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

StringGrid1.Cols[0].LoadFromFile('Tables\Table1_1.txt');

StringGrid1.Cols[2].LoadFromFile('Tables\Table2_2.txt');

StringGrid1.Cols[4].LoadFromFile('Tables\Table3_3.txt');

StringGrid1.Cols[6].LoadFromFile('Tables\Table4_4.txt');

end;

procedure TForm3.FormShow(Sender: TObject);

begin

webbrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Primeri\2.mht');

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.Show;

end;

end.

unit Calculation3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, sPageControl, StdCtrls, sButton, sEdit, sLabel, jpeg,

ExtCtrls, acImage, OleCtrls, SHDocVw, Grids;

type

TForm4 = class(TForm)

sPageControl1: TsPageControl;

sTabSheet1: TsTabSheet;

sTabSheet2: TsTabSheet;

sTabSheet3: TsTabSheet;

Image1: TImage;

sImage2: TsImage;

Label1: TLabel;

sLabel14: TsLabel;

sLabel16: TsLabel;

sLabel36: TsLabel;

sLabel37: TsLabel;

sLabel38: TsLabel;

sLabel39: TsLabel;

sLabel40: TsLabel;

sLabel41: TsLabel;

sLabel42: TsLabel;

sLabel43: TsLabel;

sLabel18: TsLabel;

sButton6: TsButton;

sEdit18: TsEdit;

sEdit19: TsEdit;

sEdit20: TsEdit;

sEdit21: TsEdit;

sEdit22: TsEdit;

sEdit23: TsEdit;

sEdit24: TsEdit;

sEdit25: TsEdit;

sEdit26: TsEdit;

sEdit27: TsEdit;

sEdit28: TsEdit;

sTabSheet4: TsTabSheet;

WebBrowser1: TWebBrowser;

sTabSheet5: TsTabSheet;

StringGrid1: TStringGrid;

sImage4: TsImage;

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sLabel5: TsLabel;

sLabel6: TsLabel;

sLabel7: TsLabel;

sLabel8: TsLabel;

sLabel9: TsLabel;

sLabel10: TsLabel;

sLabel11: TsLabel;

sLabel29: TsLabel;

sLabel30: TsLabel;

sLabel31: TsLabel;

sLabel32: TsLabel;

sLabel19: TsLabel;

sLabel20: TsLabel;

sLabel21: TsLabel;

sLabel22: TsLabel;

sLabel23: TsLabel;

sLabel24: TsLabel;

sLabel25: TsLabel;

sLabel26: TsLabel;

sLabel27: TsLabel;

sLabel28: TsLabel;

sLabel44: TsLabel;

sLabel45: TsLabel;

sLabel46: TsLabel;

sLabel47: TsLabel;

sButton1: TsButton;

sEdit1: TsEdit;

sEdit2: TsEdit;

sEdit3: TsEdit;

sEdit4: TsEdit;

sEdit5: TsEdit;

sButton2: TsButton;

sButton3: TsButton;

sEdit6: TsEdit;

sEdit7: TsEdit;

sEdit8: TsEdit;

sButton4: TsButton;

sEdit9: TsEdit;

sEdit10: TsEdit;

sEdit11: TsEdit;

sButton7: TsButton;

sEdit29: TsEdit;

sEdit30: TsEdit;

sEdit31: TsEdit;

sButton8: TsButton;

sEdit32: TsEdit;

sEdit33: TsEdit;

sEdit34: TsEdit;

sButton9: TsButton;

sEdit35: TsEdit;

sEdit36: TsEdit;

sEdit37: TsEdit;

sImage1: TsImage;

sLabel15: TsLabel;

sLabel17: TsLabel;

sLabel33: TsLabel;

sLabel34: TsLabel;

sLabel35: TsLabel;

sLabel12: TsLabel;

sLabel13: TsLabel;

sEdit12: TsEdit;

sEdit13: TsEdit;

sEdit14: TsEdit;

sEdit15: TsEdit;

sEdit16: TsEdit;

sEdit17: TsEdit;

sButton5: TsButton;

procedure sButton1Click(Sender: TObject);

procedure sButton2Click(Sender: TObject);

procedure sButton3Click(Sender: TObject);

procedure sButton4Click(Sender: TObject);

procedure sButton5Click(Sender: TObject);

procedure sButton6Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure sButton7Click(Sender: TObject);

procedure sButton8Click(Sender: TObject);

procedure sButton9Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

p, ZH,q, P_ru, Qb,alpha,bet,x,b,p_1,q_1,q_2,Qb_1:Extended;

implementation

uses Main;

{$R *.dfm}

procedure TForm4.sButton1Click(Sender: TObject);

var p,ZH,q,P_ru,Qb,alpha,bet,b:Extended;

begin

ZH:=StrToFloat(sedit1.text);

p:= (ZH*ZH)/3;

sedit2.text:=floattostr(p);

{

alpha := Exp( 2/3 *( -q/2+sqrt(Qb));

bet := Exp( 2/3 *( -q/2-sqrt(Qb));

x:= alpha+bet;

b := x - ZH/3 ; }

end;

procedure TForm4.sButton2Click(Sender: TObject);

begin

ZH:=StrToFloat(sedit3.text);

P_ru:=StrToFloat(sedit4.text);

q:= - (ZH*ZH*ZH)/27-P_ru;

sedit5.text:=floattostr(q);

end;

procedure TForm4.sButton3Click(Sender: TObject);

begin

p_1:=strtofloat(sedit6.text);

q_1:= strtofloat(sedit7.text);

Qb := (p_1/3)*(p_1/3)*(p_1/3)+sqr((q_1/2));

sedit8.text:=floattostr(Qb);

end;

procedure TForm4.sButton4Click(Sender: TObject);

begin

q_2:=StrToFloat(sedit9.text);

Qb_1:= StrToFloat(sedit10.text);

//alpha := Exp( 2/3 *( -q/2+sqrt(Qb));

sedit11.text:=floattostr(alpha);

end;

procedure TForm4.sButton5Click(Sender: TObject);

var TT,NH,G,m,K_p,y:Extended;

begin

NH:=StrToFloat(sEdit12.Text);

G:=StrToFloat(sEdit13.Text);

m:=StrToFloat(sEdit14.Text);

K_p:=StrToFloat(sEdit15.Text);

y:=StrToFloat(sEdit16.Text);

TT := (NH*G) / ( m * K_p*y );

sEdit17.Text:=FloatToStr(TT);

sEdit4.Text:=FloatToStr(TT);

webbrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Teoria\25.mht');

end;

procedure TForm4.sButton6Click(Sender: TObject);

var ZH,F_rus,L_rus,ch,he,yq,Gq,y_cp,hf,mq,yqq:extended;

begin

F_rus:=StrToFloat(sEdit18.Text);

he:=StrToFloat(sEdit19.Text);

L_rus:=StrToFloat(sEdit20.Text);

ch:=StrToFloat(sEdit21.Text);

yq:=StrToFloat(sEdit22.Text);

Gq:=StrToFloat(sEdit23.Text);

y_cp:=StrToFloat(sEdit24.Text);

hf:=StrToFloat(sEdit25.Text);

mq:=StrToFloat(sEdit26.Text);

yqq:=StrToFloat(sEdit27.Text);

ZH := (F_rus * he) + L_rus*(ch/yq)-Gq*(y_cp*hf/mq*yqq);

sEdit28.Text:=FloatToStr(ZH);

sEdit3.Text:=FloatToStr(ZH);

end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.Show;

end;

procedure TForm4.sButton7Click(Sender: TObject);

var bet,qw,QQ:Extended;

begin

qw:=StrToFloat(sEdit29.Text);

QQ:=StrToFloat(sEdit30.Text);

bet := Exp( 2/3 *( -qw/2-sqrt(QQ)));

sEdit31.Text:=FloatToStr(bet);

end;

procedure TForm4.sButton8Click(Sender: TObject);

var xq,alphabet,betta:Extended;

begin

alphabet:=StrToFloat(sEdit32.Text);

betta:=StrToFloat(sEdit33.Text);

xq:= alphabet+betta;

sEdit34.Text:=FloatToStr(xq);

end;

procedure TForm4.sButton9Click(Sender: TObject);

var bz,xz,ZHz:Extended;

begin

xz:=StrToFloat(sEdit35.Text);

ZHz:=StrToFloat(sEdit36.Text);

bz := xz - ZHz/3 ;

sEdit37.Text:=FloatToStr(xz);

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

webbrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Teoria\25.mht');

StringGrid1.Cols[0].LoadFromFile('Tables\Table1.txt');

StringGrid1.Cols[2].LoadFromFile('Tables\Table2.txt');

StringGrid1.Cols[4].LoadFromFile('Tables\Table3.txt');

StringGrid1.Cols[6].LoadFromFile('Tables\Table4.txt');

end;

end.

unit Main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, sSkinManager, acPNG, ExtCtrls, StdCtrls, sLabel, jpeg, sMemo,

Buttons, sBitBtn;

type

TForm1 = class(TForm)

sSkinManager1: TsSkinManager;

About: TImage;

Setting: TImage;

Calculation: TImage;

Image1: TImage;

Image2: TImage;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

calculation_b: TImage;

setting_b: TImage;

about_b: TImage;

Image3: TImage;

Button1: TButton;

sBitBtn1: TsBitBtn;

Calculat1: TImage;

Calculat: TImage;

Image6: TImage;

Image7: TImage;

I1: TImage;

I2: TImage;

I8: TImage;

I3: TImage;

Image4: TImage;

procedure TeoriaMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure CalculationMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure SettingMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure AboutMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure CalculationClick(Sender: TObject);

procedure TeoriaClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure sBitBtn1Click(Sender: TObject);

procedure CalculatMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure CalculatClick(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure SettingClick(Sender: TObject);

procedure AboutClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Calculation, Teoria, Unit11, note, zastavka, setting, about;

{$R *.dfm}

procedure TForm1.TeoriaMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

calculation.Visible:=False;

setting.Visible:=False;

about.Visible:=False;

sLabel2.Visible:=False;

sLabel3.Visible:=False;

sLabel4.Visible:=False;

I1.Visible:=False;

I2.Visible:=False;

I8.Visible:=False;

calculat.Visible:=False;

Image7.Visible:=False;

end;

procedure TForm1.CalculationMouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer);

begin

Calculation.Visible:=True;

setting.Visible:=False;

about.Visible:=False;

sLabel2.Visible:=True;

sLabel3.Visible:=False;

sLabel4.Visible:=False;

I1.Visible:=True;

I2.Visible:=False;

I8.Visible:=False;

calculat.Visible:=False;

Image7.Visible:=False;

end;

procedure TForm1.SettingMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

calculation.Visible:=False;

setting.Visible:=True;

about.Visible:=False;

sLabel3.Visible:=True;

sLabel2.Visible:=False;

sLabel4.Visible:=False;

I1.Visible:=False;

I2.Visible:=False;

I8.Visible:=True;

calculat.Visible:=False;

Image7.Visible:=False;

end;

procedure TForm1.AboutMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

calculation.Visible:=False;

setting.Visible:=False;

about.Visible:=True;

sLabel4.Visible:=True;

sLabel2.Visible:=False;

sLabel3.Visible:=False;

I1.Visible:=False;

I2.Visible:=True;

I8.Visible:=False;

calculat.Visible:=False;

Image7.Visible:=False;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

calculation.Visible:=False;

setting.Visible:=False;

about.Visible:=False;

sLabel2.Visible:=False;

sLabel3.Visible:=False;

sLabel4.Visible:=False;

I1.Visible:=False;

I2.Visible:=False;

I8.Visible:=False;

calculat.Visible:=False;

Image7.Visible:=False;

end;

procedure TForm1.CalculationClick(Sender: TObject);

begin

Teoriat.show;

Form1.Hide;

end;

procedure TForm1.TeoriaClick(Sender: TObject);

begin

Hide;

Teoriat.Show;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form11.show;

end;

procedure TForm1.sBitBtn1Click(Sender: TObject);

begin

Form7.smemo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'Teoria\note.txt');

form7.showmodal;

end;

procedure TForm1.CalculatMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

calculat.Visible:=True;

calculation.Visible:=False;

setting.Visible:=False;

about.Visible:=False;

sLabel4.Visible:=True;

sLabel2.Visible:=False;

sLabel3.Visible:=False;

I1.Visible:=False;

I2.Visible:=False;

I8.Visible:=False;

Image7.Visible:=False;

end;

procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Image7.Visible:=True;

calculat.Visible:=False;

calculation.Visible:=False;

setting.Visible:=False;

about.Visible:=False;

sLabel4.Visible:=True;

sLabel2.Visible:=False;

sLabel3.Visible:=False;

I1.Visible:=False;

I2.Visible:=False;

I8.Visible:=False;

end;

procedure TForm1.CalculatClick(Sender: TObject);

begin

Form11.show;

end;

procedure TForm1.Image7Click(Sender: TObject);

begin

Form7.smemo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'Teoria\note.txt');

form7.showmodal;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Zast.close;

end;

procedure TForm1.SettingClick(Sender: TObject);

begin

Sett.showmodal;

end;

procedure TForm1.AboutClick(Sender: TObject);

begin

aboutt.showmodal;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Calculat1.Picture := Calculat.Picture;

calculation_b.Picture := calculation.Picture;

Image6.Picture := Image7.Picture;

setting_b.Picture := Setting.Picture;

about_b.Picture := About.Picture;

end;

end.

unit note;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, sMemo;

type

TForm7 = class(TForm)

sMemo1: TsMemo;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure sMemo1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);

begin

smemo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Teoria\note.txt');

end;

unit setting;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, sLabel, StdCtrls, sComboBox;

type

Tsett = class(TForm)

sLabel1: TsLabel;

sComboBox1: TsComboBox;

sWebLabel1: TsWebLabel;

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure sComboBox1Change(Sender: TObject);

procedure sWebLabel1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

sett: Tsett;

implementation

uses Main;

{$R *.dfm}

procedure Tsett.FormCreate(Sender: TObject);

begin

Form1.sSkinManager1.GetSkinNames(sett.sComboBox1.Items);

scombobox1.Text:=form1.sSkinManager1.SkinName;

end;

procedure Tsett.FormActivate(Sender: TObject);

begin

scombobox1.Text:=form1.sSkinManager1.SkinName;

scombobox1.SetFocus;

end;

procedure Tsett.sComboBox1Change(Sender: TObject);

begin

form1.sSkinManager1.SkinName:=sComboBox1.Items[sComboBox1.itemIndex];

end;

procedure Tsett.sWebLabel1Click(Sender: TObject);

begin

form1.sSkinManager1.SkinName:='Snow Leopard (внутренний)';

scombobox1.Text:=form1.sSkinManager1.SkinName;

end;

end.

unit Teoria;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, sButton, ComCtrls, sTreeView, OleCtrls, SHDocVw,

ExtCtrls, sPanel;

type

TTeoriat = class(TForm)

sPanel1: TsPanel;

sButton1: TsButton;

sButton2: TsButton;

sPanel2: TsPanel;

sPanel3: TsPanel;

WebBrowser1: TWebBrowser;

sTreeView1: TsTreeView;

procedure sTreeView1Change(Sender: TObject; Node: TTreeNode);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure sButton2Click(Sender: TObject);

procedure sButton1Click(Sender: TObject);

private

{ Private declarations }

public

x:integer;

{ Public declarations }

end;

var

Teoriat: TTeoriat;

implementation

uses Main, Calculation, Calculation2, Calculation3, Unit5, Unit6, Unit8;

{$R *.dfm}

procedure TTeoriat.sTreeView1Change(Sender: TObject; Node: TTreeNode);

begin

case Node.AbsoluteIndex of

1:begin WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Teoria\1_1.mht'); x:=1; end;

2:begin WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Teoria\2_2.mht'); x:=2; end;

3:begin WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Teoria\3_3.mht'); x:=3; end;

5:begin WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Teoria\4_1.mht'); x:=4; end;

7:begin WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Teoria\1_12.mht'); x:=5; end;

8:begin WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Teoria\1_13.mht'); x:=6; end;

end;

end;

procedure TTeoriat.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.show;

end;

procedure TTeoriat.sButton2Click(Sender: TObject);

begin

case x of

1: begin Form2.Show; Hide; end;

2: begin Form3.Show; Hide; end;

3: begin Form4.Show; Hide; end;

4: begin Form5.Show; Hide; end;

5: begin Form6.Show; Hide; end;

6: begin Form8.Show; Hide; end;

else ShowMessage('Выберите раздел');

end;

end;

procedure TTeoriat.sButton1Click(Sender: TObject);

begin

Hide;

Form1.Show;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, sPageControl, StdCtrls, sEdit, sLabel, sButton,

sRadioButton, jpeg, ExtCtrls, Grids, OleCtrls, SHDocVw;

type

TForm5 = class(TForm)

sPageControl1: TsPageControl;

sTabSheet1: TsTabSheet;

sTabSheet2: TsTabSheet;

sTabSheet3: TsTabSheet;

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sLabel5: TsLabel;

sLabel6: TsLabel;

sLabel8: TsLabel;

sLabel9: TsLabel;

sLabel10: TsLabel;

sLabel11: TsLabel;

sLabel12: TsLabel;

sLabel13: TsLabel;

sLabel14: TsLabel;

sLabel15: TsLabel;

sLabel17: TsLabel;

sButton1: TsButton;

sRadioButton1: TsRadioButton;

sRadioButton2: TsRadioButton;

sRadioButton3: TsRadioButton;

sRadioButton4: TsRadioButton;

sButton2: TsButton;

sEdit1: TsEdit;

sEdit2: TsEdit;

sEdit3: TsEdit;

sEdit4: TsEdit;

sEdit5: TsEdit;

sEdit6: TsEdit;

sEdit7: TsEdit;

sEdit8: TsEdit;

sEdit9: TsEdit;

sEdit10: TsEdit;

sEdit11: TsEdit;

sEdit12: TsEdit;

sEdit13: TsEdit;

sEdit14: TsEdit;

sEdit15: TsEdit;

sEdit16: TsEdit;

sEdit17: TsEdit;

sEdit18: TsEdit;

sEdit19: TsEdit;

sEdit20: TsEdit;

sEdit21: TsEdit;

sEdit22: TsEdit;

sEdit23: TsEdit;

sEdit24: TsEdit;

sEdit25: TsEdit;

sEdit26: TsEdit;

sEdit27: TsEdit;

sButton3: TsButton;

sButton4: TsButton;

sRadioButton5: TsRadioButton;

sRadioButton6: TsRadioButton;

sButton5: TsButton;

sButton6: TsButton;

Image1: TImage;

sLabel28: TsLabel;

sLabel29: TsLabel;

sLabel30: TsLabel;

sLabel31: TsLabel;

sLabel7: TsLabel;

sLabel27: TsLabel;

sLabel32: TsLabel;

sLabel33: TsLabel;

sLabel34: TsLabel;

sLabel35: TsLabel;

sLabel36: TsLabel;

sLabel16: TsLabel;

sLabel18: TsLabel;

sLabel19: TsLabel;

sLabel20: TsLabel;

sLabel37: TsLabel;

sLabel21: TsLabel;

sLabel23: TsLabel;

sLabel22: TsLabel;

StringGrid1: TStringGrid;

WebBrowser1: TWebBrowser;

procedure sButton1Click(Sender: TObject);

procedure sRadioButton1Click(Sender: TObject);

procedure sRadioButton2Click(Sender: TObject);

procedure sButton2Click(Sender: TObject);

procedure sButton3Click(Sender: TObject);

procedure sButton4Click(Sender: TObject);

procedure sRadioButton5Click(Sender: TObject);

procedure sRadioButton3Click(Sender: TObject);

procedure sButton5Click(Sender: TObject);

procedure sRadioButton6Click(Sender: TObject);

procedure sButton6Click(Sender: TObject);

procedure sRadioButton4Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;p_dp, RH,y,h, y0,y0h, h1, F, NH0, y_cp, hf,

b, ZH_l, m, I, G, L_rus, Fh, F_rus, ch,

A, D, pH, S, H_e, a0, p_d, omega, torrent,torrent1,

b_y, K_p, ZH, TT, H_p, omega_p, P, k,

N_p_pg, n, F_p, n_c, N_p_0,aa, Pp, Fp,Rpd,df,He,ao,pd,N_n,l,R_n,h_f,by,N_n_o,N_n1:Extended;

implementation

uses Main;

{$R *.dfm}

procedure TForm5.sButton1Click(Sender: TObject);

var p_dp, RH,y,h, y0,y0h, h1, F, NH0, y_cp, hf,

b, ZH_l, m, I, G, L_rus, Fh, F_rus, ch,

A, D, pH, S, H_e, a0, p_d, omega, torrent,torrent1,

b_y, K_p, ZH, TT, H_p, omega_p, P, k,

N_p_pg, n, F_p, n_c, N_p_0, Pp, Fp,Rpd,df,He,ao,pd:Extended;

begin

sButton1.Visible:=False;

sButton2.Visible:=True;

sRadioButton2.Checked:=True;

RH:=StrToFloat(sEdit1.Text);

y:=StrToFloat(sEdit2.Text);

h:= StrToFloat(sEdit3.Text);

Rpd:=(RH-y)*h;

sedit4.text:=floattostr(Rpd);

sedit7.text:=FloatToStr(Rpd);

webbrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Teoria\37.mht');

end;

procedure TForm5.sRadioButton1Click(Sender: TObject);

begin

sButton1.Visible:=true;

sButton2.Visible:=False;

sButton3.Visible:=False;

sButton4.Visible:=False;

sButton5.Visible:=False;

sButton6.Visible:=False;

end;

procedure TForm5.sRadioButton2Click(Sender: TObject);

begin

sButton1.Visible:=False;

sButton2.Visible:=true;

sButton3.Visible:=False;

sButton4.Visible:=False;

sButton5.Visible:=False;

sButton6.Visible:=False;

end;

procedure TForm5.sButton2Click(Sender: TObject);

begin

sButton2.Visible:=false;

sButton3.Visible:=True;

sRadioButton3.Checked:=True;

H_e:=StrToFloat(sEdit5.text);

aa:=StrToFloat(sEdit6.text);

p_d:=StrToFloat(sEdit7.text);

S := H_e*(aa*p_d);

sEdit8.Text:=FloatToStr(S);

end;

procedure TForm5.sButton3Click(Sender: TObject);

begin

sButton3.Visible:=false;

sRadioButton4.Checked:=True;

A:=StrToFloat(sEdit9.text);

omega_p:=StrToFloat(sEdit10.text);

b_y:=StrToFloat(sEdit7.text);

H_p := 2*A*omega_p* b_y;

sEdit12.Text:=FloatToStr(H_p);

end;

procedure TForm5.sButton4Click(Sender: TObject);

begin

sButton4.Visible:=false;

sRadioButton5.Checked:=True;

torrent:=StrToFloat(sEdit13.text);

torrent1:=StrToFloat(sEdit14.text);

A := sqr(1 - torrent)/(1 - 2* torrent1);

sEdit15.Text:=FloatToStr(A) ;

end;

procedure TForm5.sRadioButton5Click(Sender: TObject);

begin

sButton1.Visible:=False;

sButton2.Visible:=False;

sButton3.Visible:=False;

sButton4.Visible:=False;

sButton5.Visible:=true;

sButton6.Visible:=False;

end;

procedure TForm5.sRadioButton3Click(Sender: TObject);

begin

sButton1.Visible:=False;

sButton2.Visible:=False;

sButton3.Visible:=true;

sButton4.Visible:=False;

sButton5.Visible:=False;

sButton6.Visible:=False;

end;

procedure TForm5.sButton5Click(Sender: TObject);

begin

sButton5.Visible:=false;

sRadioButton6.Checked:=True;

N_n:=StrToFloat(sEdit16.text);

l:=StrToFloat(sEdit17.text);

R_n:=StrToFloat(sEdit18.text);

Y_cp:=StrToFloat(sEdit19.text);

h_f:=StrToFloat(sEdit20.text);

by:= N_n/(l*(R_n - Y_cp)* h_f);

sEdit21.Text:=FloatToStr(by);

end;

procedure TForm5.sRadioButton6Click(Sender: TObject);

begin

sButton1.Visible:=False;

sButton2.Visible:=False;

sButton3.Visible:=False;

sButton4.Visible:=False;

sButton5.Visible:=False;

sButton6.Visible:=true;

end;

procedure TForm5.sButton6Click(Sender: TObject);

begin

sButton5.Visible:=false;

sRadioButton6.Checked:=True;

N_n1:=StrToFloat(sEdit22.text);

K_p:=StrToFloat(sEdit23.text);

R_n:=StrToFloat(sEdit24.text);

y_cp:=StrToFloat(sEdit25.text);

h_f:=StrToFloat(sEdit26.text);

by:=Sqrt(N_n1)/(K_p*(R_n - Y_cp*h_f));

sEdit27.Text:=FloatToStr(by);

end;

procedure TForm5.sRadioButton4Click(Sender: TObject);

begin

sButton1.Visible:= False;

sButton2.Visible:=False;

sButton3.Visible:=False;

sButton4.Visible:=true;

sButton5.Visible:=False;

sButton6.Visible:=False;

end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.show;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, sLabel, sEdit, sButton, ComCtrls, sPageControl, jpeg,

ExtCtrls;

type

TForm6 = class(TForm)

sPageControl1: TsPageControl;

sTabSheet1: TsTabSheet;

sButton1: TsButton;

sEdit1: TsEdit;

sEdit2: TsEdit;

sEdit3: TsEdit;

sEdit4: TsEdit;

sEdit5: TsEdit;

sEdit6: TsEdit;

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sLabel5: TsLabel;

sLabel6: TsLabel;

sTabSheet2: TsTabSheet;

sButton2: TsButton;

sEdit7: TsEdit;

sEdit8: TsEdit;

sEdit9: TsEdit;

sEdit10: TsEdit;

sEdit11: TsEdit;

sLabel7: TsLabel;

sLabel8: TsLabel;

sLabel9: TsLabel;

sLabel10: TsLabel;

sLabel11: TsLabel;

sTabSheet3: TsTabSheet;

sButton3: TsButton;

sEdit12: TsEdit;

sEdit13: TsEdit;

sEdit14: TsEdit;

sEdit15: TsEdit;

sEdit16: TsEdit;

sEdit17: TsEdit;

sEdit18: TsEdit;

sEdit19: TsEdit;

sLabel12: TsLabel;

sLabel13: TsLabel;

sLabel14: TsLabel;

sLabel15: TsLabel;

sLabel16: TsLabel;

sLabel17: TsLabel;

sLabel18: TsLabel;

sLabel19: TsLabel;

Image1: TImage;

sEdit20: TsEdit;

sLabel20: TsLabel;

sLabel21: TsLabel;

sLabel22: TsLabel;

sLabel23: TsLabel;

procedure sButton1Click(Sender: TObject);