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

else

begin

inc:=1;

NewTools[i]:=Tools[i+inc]

end;

p:=strtoint(Edit1.Text);

q:=strtoint(Edit3.Text);

cntx:=2;

for i:=1 to TrackBar1.Position-1 do

begin

Matr[i,1]:=newTools[i];

if i-1>=0 then

begin

Matr[i,cntx]:=1;

cntx:=cntx+1;

end;

end;

for i:=1 to TrackBar1.Position-1 do

begin

if i-p-1>0 then

begin

Matr[i,cntx]:=1;

cntx:=cntx+1;

end;

end;

for i:=1 to TrackBar1.Position-1 do

begin

if i-q-1>0 then

begin