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

begin

p:=strtoint(Form1.Edit1.Text);

q:=strtoint(Form1.Edit3.Text);

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

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

a:= strtoint(Form1.Edit5.Text);

b:= strtoint(Form1.Edit2.Text);

c:= strtoint(Form1.Edit4.Text);

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

TarFunc[i]:=a;

for i:=Form1.TrackBar1.Position to 2*Form1.TrackBar1.Position-3-p do

TarFunc[i]:=b;

for i:=2*Form1.TrackBar1.Position-2-p to 3*Form1.TrackBar1.Position-5-p-q do

TarFunc[i]:=c;

for i:=3*Form1.TrackBar1.Position-4-p-q to 4*Form1.TrackBar1.Position-6-p-q do

TarFunc[i]:=0;

for i:=4*Form1.TrackBar1.Position-5-p-q to 4*Form1.TrackBar1.Position-6-p-q+ NumOfNewVars do

TarFunc[i]:=1000;

basecount:=0;

for i:=1 to mm+2 do

begin

for j:=1 to nn+NumOfNewVars+3 do

begin

if j>3 then

FS[1,j]:=Tarfunc[j-3];

if i>1 then

for k:=1 to m+n do

if fullBasis[k]=basecount then

begin