Реферат: Нахождение опорного плана транспортной задачи

l1;

var

i,j,imin,jmin,cmin:integer;

set_i:set of 0..255;

set_j:set of 0..255;

begin

// создаем множество индексов

set_i:=[];

for i:=0 to m-1 do include(set_i,i);

set_j:=[];

for j:=0 to n-1 do include(set_j,j);

z:=0;

repeat

// поиск первоначального минимального ьэлемента в матрице тарифов

for i:= 0 to m-1 do

for j:= 0 to n-1 do

if (i in set_i) and (j in set_j) then

begin

cmin:=c[i,j];

goto l1

end;

l1:

// поиск минимального элемента в

// в матрице тарифов c

for i:= 0 to m-1 do

for j:= 0 to n-1 do

if (i in set_i) and (j in set_j) then

if c[i,j]<=cmin then

begin