城市问题（dijkstar）

最新推荐文章于 2025-01-20 11:14:40 发布

SSL_zeng_yu

最新推荐文章于 2025-01-20 11:14:40 发布

阅读量358

点赞数

CC 4.0 BY-SA版权

分类专栏： pascal 图论

本文链接：https://blog.youkuaiyun.com/SSL_zeng_yu/article/details/69661183

pascal 图论专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一种解决城市间最短路径问题的算法实现，通过输入城市数量及城市间的距离，利用特定算法计算出指定城市到其它各城市的最短距离。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

城市问题

Time Limit:10000MS Memory Limit:65536K Total Submit:255 Accepted:95 Case Time Limit:1000MS

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

Sample Output

3 0 2

Source

elba

var
  i,j,k,n,m:longint;
  a:array[1..101,1..101]of longint;
  x,y:array[1..101]of longint;
begin
  readln(n,m);
  for i:=0 to n-1 do
    for j:=0 to  n-1 do
        read(a[i,j]);
  for k:=0 to n-1 do
    for i:=0 to n-1 do
      for j:=0 to n-1 do
        begin
          if (a[k,i]+a[k,j]<a[i,j]) and (a[k,i]<>-1) and (a[k,j]<>-1) then 
          begin
            a[i,j]:=a[k,i]+a[k,j];
          end
        end;
  for i:=0 to n-1 do
  write(a[n,i],' ')

end.

var

i,j,k,n,m,x,y,min,s,t:longint;
a:array[-10..101,-10..101]of longint;
b,c:array[-10..101]of longint;

begin
readln(n,m);
for i:=0 to n-1 do
for j:=0 to n-1 do
begin
read(a[i,j]);
end;
for i:=0 to n-1 do
c[i]:=a[m,i];
for i:=0 to n-2 do
begin
min:=maxlongint;
k:=0;
for j:=0 to n-1 do
begin
if (a[k,i]<>-1) and (c[j]<min) then
begin
min:=c[j];
k:=j;
end;
end;
if k=0 then break;
for j:=0 to n-1 do
begin
if c[k]+a[k,j]<c[j] then
begin
c[j]:=a[i,k]+c[k];
end;
end;
end;
for i:=0 to n-1 do
begin
write(c[i],' ');
end;
end.