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

j:=j+1;

until (err=False)or(j=Length(z[1]));

i:=i+1;

until (err=false)or(i=Length(z));

end;

procedure Cikle (l,r:integer ; var x:Tmatr);

var i,j,k,min:integer;

s,q,m,n:Tmatr;

kon:boolean;

begin

//Добавляем на соответствующее место фиктивную перевозку

x[l,r]:=-2;

Setlength(s,Length(x),Length(x[1]));

For i:=0 to Length(x)-1 do

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

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

//ищем цикл в матрице

Repeat

kon:=true;

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

begin

k:=0;

For j:=0 to length(s[1])-1 do

if s[i,j]<>0 then

k:=k+1;

if k=1 then

begin

for j:=0 to length(s[1])-1 do

s[i,j]:=0;