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

kon:=true;

end;

i:=i+1;

until (kon=true)or(i>=length(m));

if min>0 then

begin

for i:=0 to length(m)-1 do

if m[i,0]=min then m[i,0]:=-2

else

if m[i,0]<>0 then

m[i,0]:=m[i,0]-min;

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

if n[i,0]=-2 then n[i,0]:=min

else n[i,0]:=n[i,0]+min;

end;

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

begin

x[m[i,1],m[i,2]]:=m[i,0];

x[n[i,1],n[i,2]]:=n[i,0];

end;

end;

Procedure Dooptimiz(var max2:integer; var x:Tmatr);

var i,j,k,l,r,max:integer;

kon,err:boolean;

q:TMatr;

s:Tmatr;

begin

kon:=true;

SetLength(s,Length(t),Length(t[1]));