Description
设有n个城市,依次编号为0,1,2,……,n-1(n<=100),另外有一个文件保存n个城市之间的距离(每座城市之间的距离都小于等于1000)。当两城市之间的距离等于-1时,表示这两个城市没有直接连接。求指定城市k到每一个城市i(0<=I,k<=n-1)的最短距离。
Input
第一行有两个整数n和k,中间用空格隔开;以下是一个NxN的矩阵,表示城市间的距离,数据间用空格隔开。
Output
输出指定城市k到各城市间的距离(从第0座城市开始,中间用空格分开)
Sample Input
3 1
0 3 1
3 0 2
1 2 0
Sample Output
3 0 2
分析
输入时,如果a[i,j]=-1 那么就a[i,j]=maxlongint
用dijkstra算法,算出每个点之间的最短距离
再一个循环输出
-
var n,i,m,s,t,j:longint; a:array[0..200,0..200]of longint; pre,d:array[0..200]of longint; mark:array[0..200]of boolean; procedure dij; var i,j,u,min:longint; begin for i:=0 to n-1 do d[i]:=a[s,i]; fillchar(mark,sizeof(mark),false); mark[s]:=true; for j:=0 to n-2 do begin min:=maxlongint; for i:=0 to n-1 do if (not mark[i])and(d[i]<min) then begin u:=i; min:=d[i]; end; mark[u]:=true; for i:=0 to n-1 do if (not mark[i])and(d[u]+a[u,i]<d[i])and(a[u,i]<>maxlongint) then begin d[i]:=d[u]+a[u,i]; pre[i]:=u; end; end; end; begin readln(n,s); for i:=0 to n-1 do for j:=0 to n-1 do begin read(a[i,j]); if a[i,j]=-1 then a[i,j]:=maxlongint; end; dij; for i:=0 to n-1 do write(d[i],' '); end.