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

end;

i:=0;

kon:=false;

Repeat

if q[i,0]>=0 then

begin

Cikle(q[i,0],q[i,1],s);

if s[l,r]=0 then

begin

kon:=true;

err:=false;

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

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

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

end

else

begin

q[i,0]:=-1;

q[i,1]:=-1;

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

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

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

end;

end;

inc(i);

Until (i>length(q)-1)or(kon=true);

Until (err=true)and(kon=false);

max2:=0;

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

К-во Просмотров: 614
Бесплатно скачать Курсовая работа: Транспортная задача по критериям стоимости и времени