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
Matr[i,cntx]:=1;
cntx:=cntx+1;
end;
end;
cntx:=TrackBar1.Position+1;
for i:=TrackBar1.Position to 2*(TrackBar1.Position-1) do
begin
Matr[i,1]:=newTools[i-(TrackBar1.Position-1)];
if TrackBar1.Position-2-p >= i-(TrackBar1.Position-1) then
begin
Matr[i,cntx]:=1;
cntx:=cntx+1;
end;
end;
for i:=TrackBar1.Position to 2*(TrackBar1.Position-1) do
if TrackBar1.Position-2-q >= i-(TrackBar1.Position-1) then
begin
Matr[i,cntx]:=1;
cntx:=cntx+1;
end;
for i:=TrackBar1.Position to 2*(TrackBar1.Position-1) do
begin
Matr[i,cntx]:=1;
if i>TrackBar1.Position then
Matr[i,cntx-1]:=-1;
cntx:=cntx+1;
end;
Simp:=ArtificialVars(Matr);
fSimp:=SimplexTables(simp);
if fsimp[1,1]-1 then
begin
for i:=1 to StringGrid1.RowCount do
for j:=1 to StringGrid1.ColCount do
begin
StringGrid1.Cells[j,i]:='';
StringGrid1.Cells[0,i]:='День '+floattostr(i);
StringGrid2.Cells[j,i]:='';
StringGrid2.Cells[0,i]:='День '+floattostr(i);
end;
for j:=1 to 3 do
begin
StringGrid1.Cells[j,holiday]:=' Выходной';
StringGrid2.Cells[j,holiday]:=' Выходной';
end;
cnt:=0;
For i:=1 to TrackBar1.Position-1 do
for j:=2 to 4*Form1.TrackBar1.Position-6-p-q do
if (matr[i,j]=1) then
for k:=2 to 2*TrackBar1.Position-1 do
if (fsimp[k,2]=j-1) then
begin
if i=holiday then
cnt:=1;
if j-1TrackBar1.Position-1) and (j-12*Form1.TrackBar1.Position-3-p) and (j-1=holiday) and (i-p-1=holiday) and (i-q-1
Похожие работы
Интересная статья: Быстрое написание курсовой работы