Для досягнення поставленої мети потрібно було реалізувати алгоритми Гомори на мові програмування Object Pascal. При використанні середовища розробки Borland Delphi 7. p align="justify"> Підсумком написання даної курсової роботи є комп'ютерна реалізація рішення завдань цілочисельного програмування симплексним методом, з наступним накладенням на нього методу Гоморі.
Розроблена програма дозволить спростити вирішення подібних завдань непосвяченими в усі тонкощі користувачам, а також послужить прикладом для цікавляться економіко-математичними методами людей.
Перевірка якості розроблюваного продукту була проведена за допомогою "збірника задач з вищої математики для економістів" під редакцією проф. В.І. Єрмакова, звідки були взяті десять завдань і відповіді до них. Вирішивши ці завдання за допомогою продукту, що розробляється, було отримано 8 збігів, таким чином, коофіцент якості склав .
У ході курсового проекту були виконані всі поставлені завдання і була досягнута основна мета.
Список літератури
1.Алгорітм Гомори// Вікіпедія. [Електронний ресурс]. URL: # "justify"> Додаток
Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComCtrls, Grids, Spin, ExtCtrls, jpeg, XPMan; = class (TForm): TStringGrid;: TSpinEdit ;: TLabel;: TStringGrid;: TSpinEdit;: TLabel;: TButton;: TStringGrid;: TButton;: TRadioGroup;: TLabel;: TButton;: TSpinEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TGroupBox;: TLabel;: TLabel; _str: TStringGrid;: TButton;: TXPManifest;: TLabel; SpinEdit1Change (Sender: TObject); SpinEdit2Change (Sender: TObject); FormCreate (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject); ChelevayaKeyPress (Sender: TObject; var Key: Char); Button4Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;, j, str_um, stolb_um, minmax_zn: Integer; _za: real; Math;
{$ R *. dfm}
procedure TForm1.SpinEdit1Change (Sender: TObject); REshenie doi: = 0 to colcount-1 doj: = 0 to rowcount-1 do [i, j]: =''; StringGrid1 doi: = 0 to colcount-1 doj: = 1 to rowcount-1 do [i, j]: =''; Chelevaya doi: = 0 to colcount-1 doj: = 1 to rowcount-1 do [i, j]: = ' ';. Cells [0,1]: =' Ci ';. Cells [1,1]: =' ГЃГЇ Г‡ГГ ГЄ ГЃГЇ