Курсовая работа: Решение задач линейного программирования симплекс методом

m,n,y,i_basis,i0,j0,step,iter: integer;{m - элементов , n - ограничений}

pole: array [1..nn, 1..mm] of TEdit; {полядляввода}

podpis: array [0..nn, 0..mm] of TLabel; {подписиполей}

znak: array [1..nn] of TComboBox; {знакисравненияограничений}

matrix: array [1..nn, 1..mm] of double; {массивдлярассчетов}

all_basis: array [1..nn] of integer;{номерабазисныхпеременных}

f: text;{файловая переменная для отчета}

tochnost: double;

implementation

{$R *.dfm}

procedure Init;

{инициализация: ввод размеров системы}

Begin

form1.Button_Prev.Enabled:=false;

form1.Edit1.Enabled:=true;

form1.Edit2.Enabled:=true;

form1.Extrem.Enabled:=true;

form1.ScrollBox1.DestroyComponents;{расчищаемместоподтабличку}

table_changed:=true;

tochnost:=0.000000001;

assign(f, 'report.htm');

end;

procedure Step1;

{шаг первый: создание таблички и ввод значений}

var

i,j: integer;

nadpis: string;

begin

form1.Memo1.ReadOnly:=false;