查人人中国名人网江西游戏机生产厂家:这是什么?
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 17:28:28
50,10,m,45,m),
(m,0,15,m,10,m),
(20,m,0,15,m,m),
(m,20,m,0,35,m),
(m,m,m,30,0,m),
(m,m,m,3,m,0));
var
a : atype;
i,j : integer;
procedure floyed;
var i,j,k : integer; tf : boolean;
begin
a := cost;
repeat
tf := true;
for i := 1 to n do
for j := 1 to n do
for k := 1 to n do
if (a[i,k] > 0) and (a[k,j] > 0) and (a[i,j] > a[i,k]+a[k,j])
then begin
a[i,j] := a[i,k]+a[k,j];
tf := false;
end;
until tf;
end;
(m,0,15,m,10,m),
(20,m,0,15,m,m),
(m,20,m,0,35,m),
(m,m,m,30,0,m),
(m,m,m,3,m,0));
var
a : atype;
i,j : integer;
procedure floyed;
var i,j,k : integer; tf : boolean;
begin
a := cost;
repeat
tf := true;
for i := 1 to n do
for j := 1 to n do
for k := 1 to n do
if (a[i,k] > 0) and (a[k,j] > 0) and (a[i,j] > a[i,k]+a[k,j])
then begin
a[i,j] := a[i,k]+a[k,j];
tf := false;
end;
until tf;
end;