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

for i:=0 to Length(t)-1 do

For j:=0 to Length(t[1])-1 do

s[i,j]:=x[i,j];

Repeat

err:=true;

max:=0;k:=0;

SetLength(q,0,0);

for i:=0 to Length(t)-1 do

For j:=0 to Length(t[1])-1 do

If (s[i,j]>0)and(t[i,j]>max) then

begin

max:=t[i,j];

l:=i;

r:=j;

end;

for i:=0 to Length(t)-1 do

For j:=0 to Length(t[1])-1 do

If (z[i,j]=0)and(s[i,j]=0) then

begin

SetLength(q,k+1,2);

q[k,0]:=i;

q[k,1]:=j;

inc(k);

end;

for i:=0 to Length(q)-1 do

If t[q[i,0],q[i,1]]<max then

else

begin

q[i,0]:=-1;