Курсовая работа: Задача составления оптимального графика ремонта инструмента

type

TFirstKoef=array[1..m,1..n] of real; //начальная матрица коэфицентов

Simplex=array[1..m,1..n+m] of real; //новая матрица коэфицентов с искусственными переменными

FullSimplex=array[1..m+2,1..n+m+2] of real;

TE=array[1..n] of integer; //начальный неполный базис

TAddBas=array[1..m] of integer; //искусственные переменные вводимые для получения базиса

TFullBas=array[1..m+n] of integer; // полныйбазис

TTarFunc=array[1..60] of integer; // Целеваяфункция

var

Form1: TForm1;

Fkoef: TFirstKoef;

NumOfNewVars: integer;

fullBasis: TFullBas;

EngFull: FullSimplex;

F: File of Trec;

TarFunc: TTarFunc;

{------------------------------------------------------------------}

function Sort(E: TE): TE; //сортировка массива типа ТЕ

var

i,k,tmp,nn,p,q:integer;

begin

p:=strtoint(Form1.Edit1.Text);

q:=strtoint(Form1.Edit3.Text);

nn:=2*(Form1.TrackBar1.Position-1)+(Form1.TrackBar1.Position-2-p)+(Form1.TrackBar1.Position-2-q);

for k:=nn downto 2 do

for i:=1 to k-1 do

if E[i]>E[i+1] then

begin

tmp:=E[i];