Построение оптимальной последовательности операций в коммерческой деятельности (стр. 5 из 6)

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

Целью данной разработки является оптимизации задачи сетевого моделирования.

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

Для нормального функционирования данного программного продукта нужен компьютер следующей конфигурации:

− центральный процессор управления (1,4ГГц);

− оперативная память (128 Мб);

− материнская плата;

− жёсткий диск (10Гб);

− монитор (15 дюймовый);

− клавиатура (стандартная 102);

− мышь (можно шариковую);

− видеокарта (можно интегрированную);

− устройства считывания носителей;

− ОС Windows 2000/XP.

Разработка программы должна вестись на языке программирования BorlandDelphiv 7.0.

Данная программа должна работать в ОС Windows.

Испытания и тестирование программы должны проводиться в процессе создания программы самими разработчиками:

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

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

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

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

Блок-схема алгоритма разработана в соответствии с ГОСТ 19.701-90 и находится в приложении А.

Заключение

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

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

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

Для автоматизации процесса решения задачи курсового проекта не было разработано приложение«Optimum» с помощью среды программирования BorlandDelphi 7.

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

Библиографический список

1. Акулич, И. Л. Математическое программирование в примерах и задачах: Учеб. пособие / И. Л. Акулич. – СПб.: Лань, 2009.

2. Замков, О. О. Математические методы в экономике: Учеб. пособие для вузов / О. О. Замков, А. В. Толстопятенко, Ю. Н Черемных. – М.: Дело и Сервис, 2004.

3. Интрилигатор, М. Н. Математические методы оптимизации и экономическая теория: Учеб. пособие для вузов / М. Н. Интрилигатор. – М.: Айрис-Пресс, 2002.

4. Минюк, С. А. Дифференциальные уравнения и экономические модели: Учеб. пособие для вузов / С. А. Минюк, Н. С. Берёзкина. – Минск: Вышэйшая школа, 2007.

5. Михеев, Р. Н. VBA и программирование в MS Office для пользователей / Р. Н. Михеев. – СПб.: БХВ-Петербург, 2006.

6. Пелих, А. С. Экономико-математические методы и модели в управлении производством: Учеб. пособие для вузов / А. С. Пелих, Л. Л. Терехов, Л. А. Терехова. – Ростов-на-Дону: Феникс, 2005.

7. Фомин, Г. П. Математические методы и модели в коммерческой деятельности: Учеб. пособие для вузов / Г. П. Фомин. – М.: Инфра-М, 2009.

Приложение А Блок-схема алгоритма

Приложение Б Листинг расчета в VBA

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Private Sub CommandButton2_Click()

i1 = 1

l1 = 9

Do

If (i1 <> 13) And (l1 <> 1) Then

If (Cells(l1 - 2, i1) <= Cells(l1, i1 + 2)) And (Cells(l1 - 1, i1).Font.Italic = True) Then

Cells(l1 - 2, i1).Interior.Color = 150

l1 = l1 - 2

i1 = i1

ElseIf (Cells(l1 - 2, i1) >= Cells(l1, i1 + 2)) And (Cells(l1, i1 + 1).Font.Italic = True) Then

Cells(l1, i1 + 2).Interior.Color = 150

l1 = l1

i1 = i1 + 2

ElseIf Cells(l1, i1 + 1).Font.Italic = True Then

Cells(l1, i1 + 2).Interior.Color = 150

l1 = l1

i1 = i1 + 2

ElseIf Cells(l1 - 1, i1).Font.Italic = True Then

Cells(l1 - 2, i1).Interior.Color = 150

l1 = l1 - 2

i1 = i1

End If

ElseIf (i1 = 13) And (l1 <> 1) Then

Cells(l1 - 2, i1).Interior.Color = 150

l1 = l1 - 2

i1 = i1

ElseIf (i1 <> 13) And (l1 = 1) Then

Cells(l1, i1 + 2).Interior.Color = 150

l1 = l1

i1 = i1 + 2

ElseIf (i1 = 13) And (l1 = 1) Then

Cells(l1, i1).Interior.Color = 150

Exit Do

End If

Loop While (Cells(1, 13).Interior.Color <> 150)

End Sub

Function vvod()

Worksheets("Лист1").Range("B1") = TextBox1.Text

Worksheets("Лист1").Range("D1") = TextBox2.Text

Worksheets("Лист1").Range("F1") = TextBox3.Text

Worksheets("Лист1").Range("H1") = TextBox4.Text

Worksheets("Лист1").Range("J1") = TextBox5.Text

Worksheets("Лист1").Range("L1") = TextBox6.Text

Worksheets("Лист1").Range("A2") = TextBox7.Text

Worksheets("Лист1").Range("C2") = TextBox8.Text

Worksheets("Лист1").Range("E2") = TextBox9.Text

Worksheets("Лист1").Range("G2") = TextBox10.Text

Worksheets("Лист1").Range("I2") = TextBox11.Text

Worksheets("Лист1").Range("K2") = TextBox12.Text

Worksheets("Лист1").Range("M2") = TextBox13.Text

Worksheets("Лист1").Range("B3") = TextBox14.Text

Worksheets("Лист1").Range("D3") = TextBox15.Text

Worksheets("Лист1").Range("F3") = TextBox16.Text

Worksheets("Лист1").Range("H3") = TextBox17.Text

Worksheets("Лист1").Range("J3") = TextBox18.Text

Worksheets("Лист1").Range("L3") = TextBox19.Text

Worksheets("Лист1").Range("A4") = TextBox21.Text

Worksheets("Лист1").Range("C4") = TextBox22.Text

Worksheets("Лист1").Range("E4") = TextBox23.Text

Worksheets("Лист1").Range("G4") = TextBox24.Text

Worksheets("Лист1").Range("I4") = TextBox25.Text

Worksheets("Лист1").Range("K4") = TextBox26.Text

Worksheets("Лист1").Range("M4") = TextBox20.Text

Worksheets("Лист1").Range("B5") = TextBox28.Text

Worksheets("Лист1").Range("D5") = TextBox29.Text

Worksheets("Лист1").Range("F5") = TextBox30.Text

Worksheets("Лист1").Range("H5") = TextBox31.Text

Worksheets("Лист1").Range("J5") = TextBox32.Text

Worksheets("Лист1").Range("L5") = TextBox27.Text

Worksheets("Лист1").Range("A6") = TextBox34.Text

Worksheets("Лист1").Range("C6") = TextBox35.Text

Worksheets("Лист1").Range("E6") = TextBox36.Text

Worksheets("Лист1").Range("G6") = TextBox37.Text

Worksheets("Лист1").Range("I6") = TextBox38.Text

Worksheets("Лист1").Range("K6") = TextBox39.Text

Worksheets("Лист1").Range("M6") = TextBox33.Text

Worksheets("Лист1").Range("B7") = TextBox41.Text

Worksheets("Лист1").Range("D7") = TextBox42.Text

Worksheets("Лист1").Range("F7") = TextBox43.Text

Worksheets("Лист1").Range("H7") = TextBox44.Text

Worksheets("Лист1").Range("J7") = TextBox45.Text

Worksheets("Лист1").Range("L7") = TextBox40.Text

Worksheets("Лист1").Range("A8") = TextBox47.Text

Worksheets("Лист1").Range("C8") = TextBox48.Text

Worksheets("Лист1").Range("E8") = TextBox49.Text

Worksheets("Лист1").Range("G8") = TextBox50.Text

Worksheets("Лист1").Range("I8") = TextBox51.Text

Worksheets("Лист1").Range("K8") = TextBox52.Text

Worksheets("Лист1").Range("M8") = TextBox46.Text

Worksheets("Лист1").Range("B9") = TextBox54.Text

Worksheets("Лист1").Range("D9") = TextBox55.Text

Worksheets("Лист1").Range("F9") = TextBox56.Text

Worksheets("Лист1").Range("H9") = TextBox57.Text

Worksheets("Лист1").Range("J9") = TextBox58.Text

Worksheets("Лист1").Range("L9") = TextBox53.Text

Worksheets("Лист1").Range("m1") = "0"

Range("a9").Interior.Color = 150

Range("k1") = Range("m1") + Range("l1")

Range("i1") = Range("k1") + Range("j1")

Range("g1") = Range("i1") + Range("h1")

Range("e1") = Range("g1") + Range("f1")

Range("c1") = Range("e1") + Range("d1")

Range("a1") = Range("c1") + Range("b1")

Range("m3") = Range("m1") + Range("m2")

Range("m5") = Range("m3") + Range("m4")

Range("m7") = Range("m5") + Range("m6")

Range("m9") = Range("m7") + Range("m8")

If (Range("K1") + Range("K2")) <= (Range("M3") + Range("L3")) Then

Range("K3") = Range("K1") + Range("K2")

Range("k2").Font.Italic = True

Else: Range("K3") = Range("M3") + Range("L3")

Range("l3").Font.Italic = True

End If

If (Range("I1") + Range("I2")) <= (Range("K3") + Range("J3")) Then

Range("I3") = Range("I1") + Range("I2")

Range("i2").Font.Italic = True

Else: Range("I3") = Range("K3") + Range("j3")

Range("j3").Font.Italic = True

End If

If (Range("g1") + Range("g2")) <= (Range("i3") + Range("h3")) Then

Range("g3") = Range("g1") + Range("g2")

Range("g2").Font.Italic = True

Else: Range("g3") = Range("i3") + Range("h3")

Range("h3").Font.Italic = True

End If

If (Range("e1") + Range("e2")) <= (Range("g3") + Range("f3")) Then

Range("e3") = Range("e1") + Range("e2")

Range("e2").Font.Italic = True

Else: Range("e3") = Range("g3") + Range("f3")

Range("f3").Font.Italic = True

End If

If (Range("c1") + Range("c2")) <= (Range("e3") + Range("d3")) Then

Range("c3") = Range("c1") + Range("c2")

Range("c2").Font.Italic = True

Else: Range("c3") = Range("e3") + Range("d3")

Range("d3").Font.Italic = True

End If

If (Range("a1") + Range("a2")) <= (Range("c3") + Range("b3")) Then

Range("a3") = Range("a1") + Range("a2")

Range("a2").Font.Italic = True

Else: Range("a3") = Range("c3") + Range("b3")

Range("b3").Font.Italic = True

End If

If (Range("K3") + Range("K4")) <= (Range("M5") + Range("L5")) Then

Range("K5") = Range("K3") + Range("K4")

Range("k4").Font.Italic = True

Else: Range("K5") = Range("M5") + Range("L5")

Range("l5").Font.Italic = True

End If

If (Range("i3") + Range("i4")) <= (Range("k5") + Range("j5")) Then

Range("i5") = Range("i3") + Range("i4")