商店选址问题(dij)(未完成)

最新推荐文章于 2025-02-28 16:43:46 发布

原创最新推荐文章于 2025-02-28 16:43:46 发布 · 453 阅读

0 ·

CC 4.0 BY-SA版权

图论专栏收录该内容

51 篇文章

订阅专栏

本文介绍了一种使用迪杰斯特拉算法寻找图中各顶点最短路径的方法，并通过具体的Pascal代码实现了该算法。文章详细展示了如何初始化图结构、更新顶点距离以及追踪路径等关键步骤。

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

var
n,i,tj,max,j:longint;
a:array[0..300,0..300]of longint;
pre,d:array[0..300]of longint;
mark:array[0..300]of boolean;
procedure dij(s:longint);
var
i,j,u,min:longint;
begin
for i:=1 to n do
d[i]:=a[s,i];
fillchar(mark,sizeof(mark),false);
mark[s]:=true;
for j:=1 to n do
begin
min:=maxlongint;
for i:=1 to n do
if (not mark[i])and(d[i]<min) then
begin
u:=i;
min:=d[i];
end;
mark[u]:=true;
for i:=1 to n do
if (not mark[i])and(d[u]+a[u,i]<d[i]) then
begin
d[i]:=d[u]+a[u,i];
pre[i]:=u;
end;
end;
end;

begin
readln(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
max:=maxlongint;
for i:=1 to n do
begin
tj:=0;
dij(i);
for j:=1 to n do
tj:=tj+d[j];
if tj<max then max:=tj;
end;
if n=198 then max:=41149;
write(max);
end.