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

if maxel<mm then

begin

ncols:=mm-maxel;

inc:=1;

for i:=count to ncols+count-1 do

begin

newBase[i]:=maxel+inc;

inc:=inc+1;

NumOfNewVars:=NumOfNewVars+1;

end;

end;

//запись вектора содержащего базисные переменные

for i:=1 to nn do

full[i]:=Basis[i];

j:=1;

for i:=nn+1 to nn+mm do

begin

full[i]:=newBase[j];

j:=j+1;

end;

AddVars:=full;

end;

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

function ArtificialVars(Fkoef: TFirstKoef):Simplex; //реализацияметодаискусственныхпеременных

var

i,j,mm,nn,p,q:integer;

Basis : TE;

Simp: Simplex;

begin