错在哪

var i,j,k,n,a1,a2,a3,max:longint;

f:array[0..2000,0..2000]of longint;

a,b:array[0..2010]of longint;

function bj(x,y:longint):longint;

begin

if x>y then exit(y) else exit(x);

end;

begin

read(n);

repeat

read(a1,a2,a3);

f[a1,a2]:=a3;

until (a1=0)and(a2=0)and(a3=0);

for i:=2 to n do a[i]:=f[1,i];

for i:=2 to n do

begin

max:=0;

for j:=1 to n do if (a[j]>max)and(b[j]1) then begin max:=a[j];k:=j;end;

b[k]:=1;

for j:=1 to n do

begin

if (b[j]1)and(bj(a[j],f[k,j])>a[j]) then a[j]:=bj(a[j],f[k,j]);

end;

end;

for i:=2 to n do writeln(a[i]);

end.

0 条评论

目前还没有评论...

信息

ID
1391
难度
6
分类
图结构 | 最短路 点击显示
标签
(无)
递交数
2970
已通过
823
通过率
28%
被复制
8
上传者