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

If (s[i,j]>0)and(t[i,j]>max2) then

max2:=t[i,j];

if max>max2 then

begin

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

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

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

end;

end;

procedure TForm4.Button1Click(Sender: TObject);

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

err:boolean;

begin

Opornplan(StringGrid1,x,z);

StringGrid1.RowCount:=Length(x[1]);

StringGrid1.ColCount:=Length(x);

StringGrid2.RowCount:=Length(x[1]);

StringGrid2.ColCount:=Length(x);

min:=z[0,0];

l:=0;

r:=0;

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

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

if z[i,j]<min then

begin

min:=z[i,j];

l:=i;

r:=j;

end;