摘要： 1 var i,j,n,s,t,p,min:longint; 2 a:array[1..1000,1..1000]of longint; 3 d:array[1..1000]of longint; 4 v:array[1..1000]of boolean; 5 6 7 8 procedure dijkstra(s:longint); 9 begin10 fillchar(d,sizeof(d),$7f);11 fillchar(v,sizeof(v),false);12 d[s]:=0;13 for j:=2 t... 阅读全文