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

begin

for j:=0 to Length(d)-1 do

if (z[i,j]=0)and(x[i,j]<>0)and(d[j]<>-1) then

d[j]:=5;

w[i]:=-1;

end;

For j:=0 to Length(d)-1 do

if d[j]>0 then

begin

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

if (z[i,j]=0)and(x[i,j]<>0)and(w[i]<>-1) then

w[i]:=5;

d[j]:=-1;

end;

end;

For i:=0 to length(d)-1 do

if d[i]=-1 then

for j:=0 to length(w)-1 do

z[j,i]:=z[j,i]+abs(min);

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

if w[i]=-1 then

for j:=0 to length(d)-1 do

z[i,j]:=z[i,j]-abs(min);

err:=true;

i:=0;j:=0;

Repeat

j:=0;

Repeat

if z[i,j]<0 then