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

for j:=1 to StringGrid1.ColCount do

begin

if (StringGrid1.Cells[2,i]<>'') and (i<>holiday) then

if (i>=holiday) and (i-p-1<=holiday) then

StringGrid2.Cells[2,i-p-2]:=StringGrid1.Cells[2,i]

else

StringGrid2.Cells[2,i-p-1]:=StringGrid1.Cells[2,i];

if (StringGrid1.Cells[3,i]<>'') and (i<>holiday) then

if (i>=holiday) and (i-q-1<=holiday) then

StringGrid2.Cells[3,i-q-2]:=StringGrid1.Cells[3,i]

else

StringGrid2.Cells[3,i-q-1]:=StringGrid1.Cells[3,i];

end;

sklad:=0;

for i:=1 to StringGrid2.RowCount-1 do

begin

if (StringGrid2.Cells[2,i]<>'') and (i<>holiday) then

StringGrid2.Cells[1,i]:=' '+floattostr(tools[i]

strtofloat(StringGrid2.Cells[2,i]));

if (StringGrid2.Cells[3,i]<>'') and (i<>holiday) then

StringGrid2.Cells[1,i]:=' '+floattostr(tools[i]- strtofloat(StringGrid2.Cells[3,i]));

if (StringGrid2.Cells[3,i]<>'') and (i<>holiday) and (StringGrid2.Cells[2,i]<>'') then

StringGrid2.Cells[1,i]:=' '+floattostr(tools[i]-strtofloat(StringGrid2.Cells[3,i])-strtofloat(StringGrid2.Cells[2,i]));

if (i<>holiday) and (StringGrid2.Cells[3,i]='') and (StringGrid2.Cells[2,i]='') then

StringGrid2.Cells[1,i]:=' '+floattostr(tools[i]);

if (i<>holiday) then

sklad:=sklad+strtofloat(StringGrid2.Cells[1,i]);

end;

for i:=1 to StringGrid1.RowCount do