Разработка программы 'Определение оптимального срока замены оборудования'

Разработка программы 'Определение оптимального срока замены оборудования'

Разработка программы «Определение оптимального срока замены оборудования»

Курсовой проект

По дисциплине: «Математические методы»

Содержание

Введение

. Постановка задачи

. Составление математической модели динамического программирования

3. Оптимизация

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

. Алгоритм решения задачи

. Порядок установки

Заключение

Приложение А, формы программы

Приложение В, листинг программы

Введение

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

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

Пусть рассматриваемая задача, распадающаяся на m шагов или этапов, например планирование деятельности предприятия на несколько лет, поэтапное планирование инвестиций, управление производственными мощностями в течение длительного срока. Показатель эффективности задачи в целом обозначим через W, а показатели эффективности на отдельных шагах - через φi, i=1,m. Если W обладает свойством аддитивности, т.е.

     m=∑ φi ,

    I=1

То можно найти оптимальное решение задачи методом динамического программирования.

Таким образом, динамическое программирование - это метод оптимизации многошаговых или многоэтапных процессов, критерий эффективности которых обладает свойством. В задачах динамического программирования критерий эффективности называется выигрышем. Данные процессы управляемые, и от правильного выбора управления зависит величина выигрыша.

Переменная хi, от которой зависят выигрыш на i-м шаге и, следовательно, выигрыш в целом, называется шаговым управлением, i=.

Управлением процесса в целом (х) называется последовательность шаговых управлений х=(х1, х2,…,хi,…,хm).

Оптимальное управление х* - это значение управления х, при котором значение W (х*) является максимальным (или минимальным, если требуется уменьшить проигрыш)

*=W (х*)=max{W (х)}, x€X,

где X - область допустимых управлений.

Оптимальное управление х* определяется последовательностью оптимальных шаговых управлений

х*=(х*1,х*2,…,х*i, ,х*m).

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

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

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

)        возможные исходы предыдущего шага

)        влияние управления на все оставшиеся до конца процесса шаги.

В задачах динамического программирования первый пункт учитывают, делая на каждом шаге условные предположения о возможных вариантах окончания предыдущего шага и проводя для каждого из вариантов условную оптимизацию. Выполнение второго пункта обеспечивается тем, что в задачах динамического программирования условная оптимизация проводится от конца процесса к началу. Сперва оптимизируется последний m-й шаг, на котором не надо учитывать возможные воздействия выбранного управления xm на все последующие шаги, так как эти шаги просто отсутствуют. Делая предположения об условиях окончания (m-1)-го шага, для каждого из них проводят условную оптимизацию m-го шага и определяют условное оптимальное управление xm. Аналогично поступают для (m-1)-го шага, делая предположения о исходах окончания (m-2)-го шага и определяя условное оптимальное управление на (m-1)-м шаге, приносящее оптимальный выигрыш на двух последних шагах - (m-1)-м и m-м. Так же действуют на всех остальных шагах до первого. На первом шаге, как правило, не надо делать условных предположений, так, как состояние системы перед первым шагом обычно известно.

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

2. Составление математической модели динамического программирования

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

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

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

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

.Определение множества шаговых управлений xi, i= и налагаемых на них ограничений, т.е. области допустимых управлений x.

.         Определение выигрыша

φi(s, xi),               (1.1)

который принесет на i-м шаге управление xi, если система перед этим находилась в состоянии s.

.Определение состояния s’, в которое переходит система из состояния s под влиянием управления xi,

s’=fi(s, xi),           (1.2)

где fi - функция перехода на i-м шаге из состояния s в состояние s’.

.         Составление уравнения, определяющего условный оптимальный выигрыш на последнем шаге, для составления s моделируемого процесса

Wm(S)=max{φm(s,xm)}. (1.3)€X

7.       Составление основного функционального управления динамического программирования, определяющего условный оптимальный выигрыш для данного состояния s с i-го шага и до конца процесса через уже известный условный оптимальный выигрыш с (i+1)-го шага и до конца:

Wi(S) = max{ φi(s,xi)+ Wi+1(fi(s,xi))}.      (1.4)€X

В это уравнение в уже известную функцию Wi+1(s), характеризующую условный оптимальный выигрыш с (i+1)-го шага до конца процесса, вместо состояния s подставлено новое состояние s’=fi (s,xi), в которое система переходит на i-м шаге под влиянием управления xi.

Заметим, что структура модели динамического программирования отличается от статической модели линейного программирования. Действительно, в моделях линейного программирования, управляющие переменные - это одновременно и переменные состояния моделируемого процесса, а в динамических моделях отдельно вводятся переменные управления xi, и переменные, характеризующие изменение состояния s под влиянием управления. Таким образом, структура динамических моделей более сложная, что естественно, так как в этих моделях дополнительно учитывается фактор времени.

Этапы решения задачи динамического программирования.

После того как выполнены пункты 1-7, и математическая модель составлена, приступают к ее расчету.

Основные этапы решения задачи динамического программирования:

.         Определение множества возможных состояний Sm для последнего шага.

.         Проведение условной оптимизации для каждого состояния s€ Sm на последнем m-м шаге по формуле (1.3) и определение условного оптимального управления x(s), s€ Sm

.         Определение множества возможных состояний Si для i-го шага, i=2,3…,m-1.

.         Проведение условной оптимизации i-го шага, i=2,3…,m-1 для каждого состояния s€ Sm по формуле (1.4) и определение условного оптимального управления xi (s), s€ Sm , i=2,3…,m-1.

.         Определение начального состояния системы s1, оптимального выигрыша W1(S1) и оптимального управления x1(S1) по формуле (1.4) при i=1. Это есть оптимальный выигрыш для всей задачи W* =W1(x1*).

.         Проведение безусловной оптимизации управления. Для проведения безусловной оптимизации необходимо найденное на первом шаге оптимальное управление x1*=x1(s1) подставить в формулу (1.2) и определить следующее состояние системы s1=f1(s1,x1). Для измененного состояния найти оптимальное управление x2*=x2(s2), подставить в формулу (1.2) и т.д. Для i-го состояния s1 найти si+1=fi+1(si,xi*) и x*i+1(si+1) и т.д.

. Оптимизация

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

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

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

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

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

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

При составлении модели ДП мы рассматриваем процесс замены как n-шаговый, разбив весь плановый период на n промежутков. Тка как в начале каждого из этих промежутков принимается решение либо о сохранении оборудования, либо о его замене, то управление на k-м шаге (k=1,…,n) содержит всего лишь две альтернативные переменные. Одна выражает условную прибыль (условные затраты) при управлении uc, другая тот же показатель при управлении uз. Условная оптимизация на каждом шаге состоит в вычислении двух величин и в выборе из них наибольшей (наименьшей).

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

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

оптимальный динамическое программирование стратегия

В общем виде проблема ставится следующим образом: определить оптимальную стратегию использования оборудования в период времени длительностью m лет, причем прибыль за каждые I лет, i= от использования оборудования возраста t лет должна быть максимальной.

Известны: r(t) - выручка от реализации продукции, произведенной за год на оборудовании возраста t лет, l(t) - годовые затраты, зависящие от возраста оборудования t, c(t) - остаточная стоимость оборудования возраста t лет, P - стоимость нового оборудования. Под возрастом оборудования понимается период эксплуатации оборудования после последней замены, выраженный в годах.

Для построения математической модели последовательно выполняются этапы, сформулированные ниже.

.         Определение числа шагов. Число шагов равно числу лет, в течение которых эксплуатируется оборудование.

.         Определение состояний системы. Состояние системы характеризуется возрастом оборудования t; t=.

.         Определение управлений. В начале i-го шага, i= может быть выбрано одно из двух управлений: заменять или не заменять оборудование. Каждому варианту управления приписывается число

Xi =

с - если оборудование не заменяется;з - если оборудование заменяется.

. Определение функции выигрыша на i-м шаге. Функция выигрыша на на i-м шаге - это прибыль от использования оборудования к концу на i-го года эксплуатации, t=, i=.

φi (t)=

= uс - если оборудование в начале i-го года не заменяется;= uз - если оборудование заменяется.

Таким образом, если оборудование не продается, то прибыль от его использования - это разность между стоимостью произведенной продукции и эксплуатационными издержками. При замене оборудования прибыль составляет разность между остаточной стоимость оборудования и стоимостью нового оборудования, к которой прибавляе6тся разность между стоимостью продукции и эксплуатационными издержками для нового оборудования, возраст которого в начале i-го шага составляет 0 лет.

5. Определение функции изменения состояния

fi (t)=uс - если Xi=0= uз - если Xi=1

. Составление функционального уравнения для i=m.

Wm(t)= max €{0.1}

. Составление основного функционального уравнения

(t)= max €{0.1}

Где Wi(t) - прибыль от использования оборудования возраста t лет с i-го шага (с конца i-го года) до конца периода эксплуатации.+1(t+1) - прибыль от использования оборудования возраста t+1год с (i+1)-го шага до конца периода эксплуатации;

Таким образом, математическая модель задачи построена.

. Алгоритм решения задачи

Введём обозначения:возраст оборудования.(t) - производство продукции на оборудовании, возраст которого t лет.(t) - расходы на содержание оборудования.(t) - остаточная стоимость оборудования.

Р - стоимость нового оборудования(t)- прибыль от старого оборудования возраст которого t лет.последний год.

 на старом оборудовании (1)

Это функциональное уравнение

 (2)

 (3)

Форма входного документа

Данные могут быть занесены с помощью таблицы:

Таблица №1 . Данные входной информация.

Где,(t) - производство продукции на оборудовании, возраст которого t лет.(t) - расходы на содержание оборудования.

Р=40

=1,2,3,4.    

Форма выходного документа

На основании входной информации получим следующую таблицу:

Таблица №2

   (4)

  (5)=3. t=1,2.

 (6)

 (7)

найдём максимальную прибыль при замене оборудования через 2 года:

По формуле

Вывод: Максимальную прибыль в размере 215 единиц мы получим, если поменяем оборудование через 2 года на третий.

Описание программно-технических средств

Разработка программы производилась на языке программирования Borland7.0 при помощи операционной системы Microsoft Windows XP Professional

При разработке программы, использовались компоненты Delphi:Grid - для заполнения справочников и отображения результатов- для ввода значений- для создания кнопки- создание меток, для удобства использования- изображения- Меню программы- сохранить диалог- открыть диалог

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

Антивирусные программа (Dr.Web 4.44)

Программы архиваторы (WinRar v3.45).

утилиты Microsoft Office (Microsoft Word, Excel).

графические редакторы (PhotoShop v CS3)

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

Процессор:          Intel Pentium(R) 3.00 GHz

Оперативная память: 1Gb DDR2 PC 533

Видео карта:       NVIDIA Gee Force FX 6600 128Mb

Жесткий диск:     200 Gb

Монитор:   17" 1280x1025@75Hz

Отладочный пример

   (4)

  (5)=3. t=1,2.

 (6)

 (7)

найдём максимальную прибыль при замене оборудования через 2 года:

По формуле

Вывод: Максимальную прибыль в размере 215 единиц мы получим, если поменяем оборудование через 2 года на третий.

Описание программы

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

Для разработки программы «Решение задач о замене оборудования» был использован язык программирования Delphi 6. В настоящее время эта среда объектно-ориентированного программирования очень популярна, ее основой является язык Object Pascal. Она позволяет создавать приложения различной степени сложности - от простейших программ до профессиональных, предназначенных для работы с базами данных. Кроме того, помощь по программе оформлена в виде HTML-страниц с помощью программы Arachnophilia.

Вся работа с программой основана на работе с меню, с его описанием можно ознакомиться в пункте меню Помощь/Содержание/Работа с меню.

Данная программа создана при выполнении курсового проекта по предмету «Математические методы», на данную тему.

. Порядок установки

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

характеристики:

Процессор 300 MHz

Оперативная память     16 Mb

Объем свободного места на жестком диске       3 Mb

Разрешение экрана не менее 800x600

Операционная система Windows

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

Установка программы

Для начала процесса установки требуется распаковать архив с программой . Для запуска с компакт диска требуется:

Вставить компакт диск в привод CD-ROM;

Открыть для просмотра содержимое компакт диска;

Распаковать архив в свою папку и запустить Project.exe после этого можно начать работу с программой.

В корневом каталоге программы содержатся следующие файлы и подкаталоги:.exe - Файл программы;

Программное меню

.Новый

.Открыть

.Сохранить

.Закрыть

.Выход

•Операции

.Оптимизация

.Расчет

•Визуализация

.Сетка

•Отчёт

1.Сохранить

2.Редактор

•Помощь

.Справка 2.Содержание

.О программе...

Заключение

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

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

Список используемой литературы

1.      Калихман И.Л., Войтенко М.А. Динамическое программирование в примерах и задачах: Учеб. пособие. - М.:Высш.шк., 2009-125с.,ил.

.         Хазанова Л.Э. Математическое моделирование в экономике:

Учебное пособие.- М.:Издательство БЕК,2008-141с.

. Экономико-математические методы и модели: учебное пособие Н. И. Холод, А. В. Кузнецов, Я.Н. Жихар и другие; Под общей редакцией А. В. Кузнецова. 2-е издание - Мн.: БГЭУ, 2010.-412с.

. «Компьютер для менеджера» Вершинин О. Е. учебное пособие для экон. спец. вузов. -М.:высш. Шк., 1990.- 240 с.:ил. Изд «Москва» 1990 год.

Приложение А

Формы программы

Приложение В

 Листинг программы.

Код первой формы

unit Unit1;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, StdCtrls, ExtCtrls, Menus, ComCtrls, ToolWin, ImgList, jpeg;= class(TForm): TStringGrid;: TStringGrid;: TStringGrid;: TStringGrid;: TStringGrid;: TLabel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TSaveDialog;: TOpenDialog;: TGroupBox;: TLabel;: TLabel;: TEdit;: TEdit;: TImageList;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TStringGrid;: TStringGrid;FormCreate(Sender: TObject);N14Click(Sender: TObject);N12Click(Sender: TObject);N17Click(Sender: TObject);N13Click(Sender: TObject);N5Click(Sender: TObject);N16Click(Sender: TObject);N22Click(Sender: TObject);N10Click(Sender: TObject);N11Click(Sender: TObject);N4Click(Sender: TObject);N9Click(Sender: TObject);Edit1KeyPress(Sender: TObject; var Key: Char);Edit2KeyPress(Sender: TObject; var Key: Char);Edit1Exit(Sender: TObject);Edit2Exit(Sender: TObject);StringGrid3KeyPress(Sender: TObject; var Key: Char);N26Click(Sender: TObject);N25Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;:Boolean;Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.DFM}TForm1.FormCreate(Sender: TObject);.Options:=StringGrid3.Options;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;;TForm1.N14Click(Sender: TObject);MessageDlg('Закончить работу с программой?',mtConfirmation,[mbYes,mbNo],0)=mrYes then(0);;TForm1.N12Click(Sender: TObject);:=True;.Options:=StringGrid7.Options;.Options:=StringGrid7.Options;.Options:=StringGrid7.Options;.Options:=StringGrid7.Options;.Options:=StringGrid7.Options;.Color:=clmenu;.Color:=clmenu;.Color:=clmenu;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.SetFocus;.Enabled:=False;;TForm1.N17Click(Sender: TObject);,er,x,i,j,n,y,y1,y2,m,z,P,o,w,zero,q:integer;:=false;:=StrToInt(Edit1.Text);:=StrToInt(Edit2.Text);:=0;.RowCount:=3;.RowCount:=2;.Hide;.Hide;i:=0 to n doj:=0 to n do:=StrToInt(StringGrid3.Cells[j,0])-StrToInt(StringGrid3.Cells[j,1]);.Cells[j,2]:=IntToStr(x);.Height:=((n+1)*25)+i;.Cells[0,4]:='f'+IntToStr(n)+'(t)';.Height:=3*25;.Cells[0,i]:='f'+IntToStr((n-1)-i)+'(t)';.Colcount:=2;.Width:=2*41;.Rowcount:=n-1;.Height:=(n*25)+i;.Colcount:=n+1;.Width:=((n+1)*41)+i;.Rowcount:=n;.Height:=(n*25)+i;.Cells[j,0]:=StringGrid3.Cells[j,2];:=StrToInt(StringGrid3.Cells[0,2])-P;.Cells[0,0]:=IntToStr(o);.Cells[n,0]:='';;

// Основные расчетыj:=0 to n-2 doStrToInt(StringGrid5.Cells[j+1,0])<StrToInt(StringGrid5.Cells[0,0]) then.Cells[j+1,0]:=StringGrid5.Cells[0,0];:=StrToInt(StringGrid5.Cells[1,0])+StrToInt(StringGrid5.Cells[0,0]);.Cells[0,1]:=IntToStr(q);:=StrToInt(StringGrid5.Cells[j+1,0])+StrToInt(StringGrid3.Cells[j,2]);.Cells[j,1]:=IntToStr(y);y<StrToInt(StringGrid5.Cells[0,1]) then.Cells[j,1]:=StringGrid5.Cells[0,1];;

// Далееi:=2 to n-2 doj:=0 to (n-1)-i do:=StrToInt(StringGrid5.Cells[1,i-1])+StrToInt(StringGrid5.Cells[0,0]);.Cells[0,i]:=IntToStr(w);:=StrToInt(StringGrid5.Cells[j+1,i-1])+StrToInt(StringGrid3.Cells[j,2]);.Cells[j,i]:=IntToStr(y1);y1<StrToInt(StringGrid5.Cells[0,i]) then.Cells[j,i]:=StringGrid5.Cells[0,i];;:=StrToInt(StringGrid5.Cells[1,n-2])+StrToInt(StringGrid5.Cells[0,0]);.Cells[0,n-1]:=IntToStr(y2);

// Подсчет количества летi:=n-2 downto 1 do

Begin:=StrToInt(StringGrid5.Cells[0,i-1]);:=StrToInt(StringGrid5.Cells[0,i]);er<>StrToInt(StringGrid5.Cells[n-i,i-1]) thenz<>StrToInt(StringGrid5.Cells[n-1-i,i]) then m:=m+1;;;

// Error:=StrToInt(StringGrid5.Cells[0,0]);zero<0 then('Неверно введены параметры. Повторите ввод.',mtError,[MbOk],0);

For i:=0 to n doj:=0 to n do.Cells[j,i]:='';.Cells[j,i]:='';;.RowCount:=2;.Checked:=False;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Text:='';.Text:='';.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Caption:='';.SetFocus;.Caption:='';.Font.Color:=clTeal;.Font.Size:=14;Stringgrid5.Cells[0,n-2]=StringGrid5.Cells[1,n-2] then d:=m+1

else d:=m+2;.Caption:='Чтобы получить максимальную прибыль, оборудование нужно сменить через '+IntToStr(d)+' года (год/лет).';

N16.Enabled:=False;.Enabled:=False;.Enabled:=True;.Enabled:=True;.Options:=StringGrid6.Options;.Options:=StringGrid6.Options;.Options:=StringGrid6.Options;.Options:=StringGrid6.Options;.Options:=StringGrid6.Options;.Color:=clActiveBorder;.Color:=clActiveBorder;.Color:=clActiveBorder;n<=3 then.Enabled:=False;MessageDlg('Показать расчеты ?'+#10#13, MtConfirmation, [mbYes, mbNo],0)=mrYes then.Enabled:=true;.RowCount:=5;.RowCount:=3;.Show;.Show;.Enabled:=true;;;;;TForm1.N13Click(Sender: TObject);:System.Text;,j:integer;.Filter:='Файлы задачи о замене оборудования (*.zzo)|*.zzo';SaveDialog1.Execute then Begin(f, SaveDialog1.FileName);(F);i:=0 to 1 doj:=0 to StringGrid3.ColCount+1 do(f, StringGrid3.Cells[j,i]);;(f);;;TForm1.N5Click(Sender: TObject);,j,n:integer;:System.Text;VIC;:=StrToInt(Edit1.Text);MessageDlg('Сохранить файл ?'+#10#13, MtConfirmation, [mbYes, mbNo],0)=mrYes then.Filter:='Файлы задачи о замене оборудования (*.zzo)|*.zzo';SaveDialog1.Execute then(f, SaveDialog1.FileName);(F);i:=0 to 1 doj:=0 to StringGrid3.ColCount+1 do(f, StringGrid3.Cells[j,i]);;(f);;:For i:=0 to n doj:=0 to n do.Cells[j,i]:='';.Cells[j,i]:='';;.RowCount:=2;.Checked:=False;.Enabled:=False;.Caption:='';.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Height:=0;.Width:=0;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Text:='';.Text:='';.Enabled:=False;.Enabled:=False;.Enabled:=True;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;VIC;;TForm1.N16Click(Sender: TObject);,j,n:integer;:=StrToInt(Edit1.Text);.Cells[0,0]:='Годы';.Cells[0,1]:='R(t)';.Cells[0,2]:='L(t)';.Cells[0,3]:='R-L';i:=0 to n doj:=0 to n do.ColCount:=n+1;.Width:=((n+1)*48)+i;.RowCount:=3;.Height:=27*3;.ColCount:=n+1;.Width:=((n+1)*48)+i;.Cells[j,0]:=IntToStr(j);;.Height:=2*27;.ColCount:=2;.Width:=2*48;.RowCount:=3;.Height:=3*27;.Enabled:=True;.SetFocus;.Enabled:=True;.Enabled:=True;.Caption:='';;TForm1.N22Click(Sender: TObject);N22.Checked then.Checked:=false;.RowCount:=3;.RowCount:=2;.Hide;.Hide;.Checked:=true;.RowCount:=5;.RowCount:=3;.Show;.Show;;;TForm1.N10Click(Sender: TObject);.Show;;TForm1.N11Click(Sender: TObject);.ShowModal;;TForm1.N4Click(Sender: TObject);:Textfile;,j:integer;:string;.Filter:='Файлы задачи о замене оборудования *.zzo';OpenDialog1.Execute then(f,OpenDialog1.FileName);(f);Not Eof(f) doi:=0 to StringGrid3.RowCount+1 doj:=0 to StringGrid3.ColCount+1 do(f,t);.Cells[j,i]:=t;;;(f);;;TForm1.N9Click(Sender: TObject);.Show;;TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);(Key<'0') or(Key>'9') then Key:=#0;;TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);(Key<'0') or(Key>'9') then Key:=#0;.Enabled:=True;.Font.Color:=clBlue;

Label2.Font.Size:=12;.Caption:='Для продолжения нажмите клавишу F8, либо воспользуйтесь пунктом меню ОПЕРАЦИИ\ОПТИМИЗАЦИЯ.';;TForm1.Edit1Exit(Sender: TObject);Edit1.Text='' then

Begin('Должно быть введено какое-либо значение!',mtError,[mbOK],0);

Edit1.SetFocus;;;TForm1.Edit2Exit(Sender: TObject);Edit2.Text='' then

Begin('Должно быть введено какое-либо значение!',mtError,[mbOK],0);

Edit2.SetFocus;;;TForm1.StringGrid3KeyPress(Sender: TObject; var Key: Char);:Integer;(Key<'0') or(Key>'9') then Key:=#0;:=StrToInt(Edit1.Text);(StringGrid3.Cells[n,1]<>'')and(keyo) then.Font.Color:=clBlue;.Font.Size:=12;.Caption:='Чтобы увидеть результат нажмите кнопку F9, либо выберите пункт меню ОПЕРАЦИИ\РАСЧЕТ.';;;TForm1.N26Click(Sender: TObject);.Show;;TForm1.N25Click(Sender: TObject);:System.Text;,j:integer;:string;.Filter:='Файлы отчета (*.zoo)|*.zoo';SaveDialog1.Execute then Begin(f, SaveDialog1.FileName);

Rewrite(F);:=InputBox ('Работа с отчетом','Введите заголовок отчета:','');

Writeln(f,g);(f);(f,Label1.Caption);(f,Edit1.Text);(f,Label3.Caption);(f,Edit2.Text);i:=0 to 1 do(f);j:=0 to StringGrid5.ColCount+1 do(f, StringGrid3.Cells[j,i],' ');;;(f);i:=0 to StringGrid5.RowCount+1 do(f);j:=0 to StringGrid5.ColCount+1 do(f, StringGrid5.Cells[j,i],' ');;;(f);(f,Label2.Caption);(f);;;.

Код второй формыUnit2;

interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, jpeg, ExtCtrls;= class(TForm): TImage;: TTimer;Timer1Timer(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm2;Unit1, Unit5;

{$R *.DFM}TForm2.Timer1Timer(Sender: TObject);.Show;

// Form5.Show;.Hide;.Enabled:=False;;.

Код третьей формыUnit3;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, SHDocVw, ExtCtrls;= class(TForm): TWebBrowser;: TPanel;FormCreate(Sender: TObject);FormKeyDown(Sender: TObject; var Key: Word;: TShiftState);Panel1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm3;

{$R *.DFM}TForm3.FormCreate(Sender: TObject);.Navigate(ExtractFilePath(Application.EXEName) + 'Help\Index.htm');;TForm3.FormKeyDown(Sender: TObject; var Key: Word;: TShiftState);key = VK_Escape then Form3.Hide;;TForm3.Panel1Click(Sender: TObject);.Hide;;.

Код четвертой формыUnit4;

interfaceWindows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,, ExtCtrls;= class(TForm): TPanel;: TLabel;: TButton;: TLabel;: TLabel;

{ Private declarations }

{ Public declarations };: TAboutBox;

{$R *.DFM}.

Код пятой формыUnit5;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, SHDocVw, StdCtrls, Buttons;= class(TForm): TWebBrowser;: TBitBtn;FormCreate(Sender: TObject);FormKeyDown(Sender: TObject; var Key: Word;: TShiftState);BitBtn1Click(Sender: TObject);

{ Private declarations }

{$R *.DFM}TForm5.FormCreate(Sender: TObject);.Navigate(ExtractFilePath(Application.EXEName) + 'Help\Tip.htm');;TForm5.FormKeyDown(Sender: TObject; var Key: Word;: TShiftState);key = VK_Escape then Form5.Hide;;TForm5.BitBtn1Click(Sender: TObject);;;.

Код шестой формыUnit6;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Buttons, Printers;= class(TForm): TOpenDialog;: TBitBtn;: TBitBtn;: TBitBtn;: TPrintDialog;: TMemo;BitBtn1Click(Sender: TObject);BitBtn3Click(Sender: TObject);FormShow(Sender: TObject);BitBtn2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm6;

{$R *.DFM}TForm6.BitBtn1Click(Sender: TObject);:Textfile;:string;.Lines.Clear;.Filter:='Файлы отчета (*.zoo)|*.zoo';OpenDialog1.Execute then(f,OpenDialog1.FileName);(f);Not Eof(f) do(f,t);.Lines.Add(t);;(f);;;TForm6.BitBtn3Click(Sender: TObject);;;TForm6.FormShow(Sender: TObject);.Lines.Clear;;TForm6.BitBtn2Click(Sender: TObject);,x,y:longint;PrintDialog1.Execute then.Canvas.Font:=Memo1.Font;.BeginDoc;:=0;:=0;i:=0 to Memo1.Lines.Count-1 do.Canvas.TextOut(x,y,Memo1.Lines[i]);:=y+Printer.Canvas.TextExtent(Memo1.Lines[i]).cy;;.EndDoc;;  end; end.