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

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-1<=TrackBar1.Position-1 then

StringGrid1.Cells[1,i+cnt]:=' '+floattostr(fsimp[k,3]);

if (j-1>TrackBar1.Position-1) and (j-1<=2*Form1.TrackBar1.Position-3-p) then

StringGrid1.Cells[2,i+cnt]:=' '+floattostr(fsimp[k,3]);

if (j-1>2*Form1.TrackBar1.Position-3-p) and (j-1<=3*Form1.TrackBar1.Position-4-p-q) then

StringGrid1.Cells[3,i+cnt]:=' '+floattostr(fsimp[k,3]);

end;