> В результаті даної роботи були досягнуті поставлені цілі і завдання, а саме:
- вивчений теоретичний матеріал вирішення завдання лінійного програмування симплексним методом для знаходження оптимального плану;
- розроблено алгоритм вирішення даної задачі про сумішах для знаходження максимального прибутку або мінімальних витрат підприємства;
- автоматизований процес вирішення поставленого завдання симплексним методом на знаходження максимального прибутку підприємства;
- розроблена програма для вирішення поставленого завдання симплексним методом для знаходження максимального прибутку і мінімальних витрат підприємства;
Розроблений програмний продукт не може використовуватися в реальній сфері економічної оптимізації, а також його не можуть застосовувати, як студенти вивчають дисципліну Математичні методи , так і викладачі викладають її. Студентам програмний продукт не допоможе вирішити складні завдання, провести самоконтроль або розібратися у вирішенні задач такого типу завдяки тому, що в процесі роботи програми користувачеві виводиться процес знаходження оптимального плану розподілу інвестицій між підприємствами. Викладачам ж він не допоможе полегшити процес перевірки рішень подібних завдань у студентів.
11. Вихідний код
Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, StdCtrls, Buttons, ComCtrls, Menus; = class (TForm): TGroupBox;: TEdit;: TEdit; : TBitBtn;: TBitBtn;: TLabel;: TLabel;: TStringGrid;: TLabel;: TGroupBox;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TGroupBox;: TBitBtn;: TBitBtn;: TBitBtn;: TEdit;: TLabel ;: TEdit;: TLabel;: TStringGrid;: TLabel;: TLabel;: TGroupBox;: TStringGrid;: TLabel;: TGroupBox;: TStringGrid;: TBitBtn;: TBitBtn;: TGroupBox;: TMemo;: TRichEdit;: TButton;: TButton;: TButton;: TRadioButton;: TRadioButton; BitBtn6Click (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: Char); BitBtn1Click (Sender: TObject); StringGrid1Click (Sender: TObject); BitBtn7Click (Sender: TObject) ; FormCreate (Sender: TObject); BitBtn2Click (Sender: TObject); Edit2KeyPress (Sender: TObject; var Key: Char); BitBtn4Click (Sender: TObject); BitBtn5Click (Sender: TObject); Edit3KeyPress (Sender: TObject; var Key: Char); Edit4KeyPress (Sender: TObject; var Key: Char); BitBtn3Click (Sender: TObject); BitBtn9Click (Sender: TObject); BitBtn8Click (Sender: TObject); StringGrid2Click (Sender: TObject); StringGrid3KeyPress (Sender: TObject; var Key: Char); BitBtn11Click (Sender: TObject); BitBtn10Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject);
{...
