城市问题

题目：

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

dij，统计m到各点距离

代码：

var a:array[0..101,0..101] of longint;
    n,m:longint;
procedure init;
var i,j:longint;
begin
  read(n,m);     inc(m);
  for i:=1 to n do  for j:=1 to n do
  begin
    read(a[i,j]);
    if a[i,j]=-1 then a[i,j]:=maxlongint;
  end;
end;
procedure dij;
var i,j,min,c:longint;
    b:array[0..101] of longint;
    f:array[0..101] of boolean;
begin
  for i:=1 to n do b[i]:=a[m,i];
  fillchar(f,sizeof(f),true);
  f[m]:=false;
  for i:=1 to n-1 do
  begin
    min:=maxlongint;
    for j:=1 to n do
      if f[j] and (b[j]<min) then
      begin
        min:=b[j]; c:=j;
      end;
    f[c]:=false;
    for j:=1 to n do
      if f[j] and (a[c,j]<>maxlongint)and(b[c]+a[c,j]<b[j])
      then b[j]:=b[c]+a[c,j];
  end;
  for i:=1 to n do write(b[i],' ');
end;
begin
  init;
  dij;
end.