图论 pascal.pptVIP

图论 样例： 输入： 6 10 1 2 10 1 5 19 1 6 21 2 3 5 2 4 6 2 6 11 3 4 6 4 5 18 4 6 14 5 6 33 输出:(优化前) 输出:(优化后) 1 2 10 50 2 3 5 2 4 6 2 6 11 4 5 18 参考程序（优化前）、、 var w:array[1..1000,1..1000] of integer; i,j,k,v,e:integer; procedure prim(v0:integer); {V0是开始结点} var flag:array[1..200] of boolean; min,prevk,nextk:integer; begin fillchar(flag,sizeof(flag),false); flag[v0]:=true; {先选出V0} for i:=1 to v-1 do {一共} begin min:=maxint; for k:=1 to