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

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

mm:=2*(Form1.TrackBar1.Position-1);

maxdelt:=fullSimp[mm+2,4];

for j:=5 to nn+3+Numofnewvars do

if fullSimp[mm+2,j]>maxdelt then

begin

maxdelt:=fullSimp[mm+2,j];

napravCol:=j;

end;

if maxdelt>0 then

SelectCol:=napravCol

else

SelectCol:=-1;

end;

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

function SelectRow(fullSimp: FullSimplex; Col: integer):integer;

var

i,mm,napravRow:integer;

minel,tmp:real;

begin

mm:=2*(Form1.TrackBar1.Position-1);

tmp:=1000;

for i:=2 to mm+1 do

if fullSimp[i,Col]>0 then

begin

minel:=tmp;

tmp:=fullSimp[i,3]/fullSimp[i,Col];

if tmp<minel then

begin