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
floyed:
const
maxn=1000;
var
a:array[0..maxn,0..maxn] of longint;
n,i,j,k,m:longint;
begin
readln(n,m);
inc(m);
for i:=1 to n do
begin
for j:=1 to n do
begin
read(a[i,j]);
if a[i,j]=-1 then a[i,j]:=maxlongint;
end;
readln;
end;
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if (i<>j) and (j<>k) and (i<>k) then
if (a[i,k]+a[k,j]<a[i,j]) then
if (a[i,k]<>maxlongint) and (a[k,j]<>maxlongint) then
a[i,j]:=a[i,k]+a[k,j];
for i:=1 to n-1 do
write(a[m,i],' ');
write(a[m,n]);
end.
城市问题-SSL 1761
最新推荐文章于 2021-04-19 18:31:41 发布