1.7.Опис програми

procedure TForm2.btn1Click(Sender: TObject) – при натисненні кнопки «Почати роботу» відкривається форма «Математична модель задачі».

procedure TForm3.btn3Click(Sender: TObject) – при натисненні кнопки «у1=» зчитується текст із файлу у1.txt у lbl2. Даний текст представляє собою коефіцієнти першої цільої функції задачі.

procedure TForm3.btn4Click(Sender: TObject) – при натисненні кнопки «у2=» зчитується текст із файлу у2.txt у lbl3. Даний текст представляє собою коефіцієнти другої цільої функції задачі.

procedure TForm3.btn5Click(Sender: TObject) – при натисненні кнопки «у3=» зчитується текст із файлу у3.txt у lbl4. Даний текст представляє собою коефіцієнти третьої цільої функції задачі.

procedure TForm3.btn10Click(Sender: TObject) – при натисненні кнопки «Обмеження» зчитується текст із файлу х1234.txt у mmo1. Даний текст представляє собою обмеження на змінні задачі у загальному вигляді.

procedure TForm3.btn1Click(Sender: TObject) – при натисненні кнопки «Наступний крок» відкривається форма «Зведення задачі».

procedure zvedennia_zadachi – дана процедура зводить задачу багатокритеріальної оптимізації до однокритеріальної за допомогою методу лінійної згортки. Вагові коефіцієнти згорти задаються на формі, а програма зчитує дані, записані у edt1, edt2, edt3. Коефіцієнти змінних задачі зчитуються із файлу у.txt.

procedure TForm4.btn1Click(Sender: TObject) – при натисненні кнопки «Звести задачу» на формі з’явиться однокритеріальна задача, що була отримана в результаті обчислень.

procedure TForm4.btn2Click(Sender: TObject) – при натисненні кнопки «Наступний крок» відкривається форма «Однокритеріальна оптимізація».

function f(x1,x2,x3,x4:real):real – обчислює значення функції. Змінні є початковим значення. Повертає функція вихідне значення заданої функції.

function df_dx1(x1,x2,x3,x4:real):real – обчислює значення частинної похідної по . Змінніє початковим значення. Повертає функція вихідне значення заданої функції.

function df_dx2(x1,x2,x3,x4:real):real – обчислює значення частинної похідної по . Змінніє початковим значення. Повертає функція вихідне значення заданої функції.

function df_dx3(x1,x2,x3,x4:real):real – обчислює значення частинної похідної по . Змінніє початковим значення. Повертає функція вихідне значення заданої функції.

Function df_dx4(x1,x2,x3,x4:real):real – обчислює значення частинної похідної по . Змінніє початковим значення. Повертає функція вихідне значення заданої функції.

procedure metod_gradienta – дана процедура знаходить оптимальні значення змінних градієнтним методом із дробленням кроку.

procedure TForm1.Button1Click(Sender: TObject) – при натисненні кнопки «Обчислити» відбувається відображення оптимальних змінних у відповідних полях на формі. Обмеження на змінні задачі зчитуються із файлу х.txt.

procedure TForm1.btn2Click(Sender: TObject) – при натисненні кнопки «Записати у файл» відбувається запис змінних у файл result.txt.

procedure TForm1.btn3Click(Sender: TObject) – при натисненні кнопки «Друк результату» відкривається файл із результатами для перегляду, а потім з’являється вікно для збереження і друку даного файлу.

procedure TForm1.btn1Click(Sender: TObject) – при натисненні кнопки «Вихід» відбувається закриття всіх форм програми.