Курсовая работа: Транспортная задача по критериям стоимости и времени

q[k,2]:=j;

k:=k+1;

end;

//Разделяем на четные и нечетные

Setlength(n,Round(k/2),3);

Setlength(m,Round(k/2),3);

n[0,0]:=q[0,0];

n[0,1]:=q[0,1];

n[0,2]:=q[0,2];

q[0,0]:=0;

For j:=0 to length(n)-1 do

begin

i:=0;

kon:=false;

repeat

if i<=Length(q)-1 then

begin

If (q[i,0]<>0)and(q[i,1]=n[j,1]) then

begin

m[j,0]:=q[i,0];

m[j,1]:=q[i,1];

m[j,2]:=q[i,2];

q[i,0]:=0;

kon:=true;

end;

i:=i+1;

end

else kon:=true;

until kon=true;