作业帮完善程序(free pascal):单源点最短路径：给定带权有向图G=(v,e),源点v1在v中,求 v1到v中其余各结点的最短路径.数据结构说明：cost[I,j]:表示带权有向图的邻接矩阵 d[j]：表示从v1到vj的最短路径长
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/02 17:26:01
![完善程序(free pascal):单源点最短路径：给定带权有向图G=(v,e),源点v1在v中,求 v1到v中其余各结点的最短路径.数据结构说明：cost[I,j]:表示带权有向图的邻接矩阵 d[j]：表示从v1到vj的最短路径长](/uploads/image/z/3799942-70-2.jpg?t=%E5%AE%8C%E5%96%84%E7%A8%8B%E5%BA%8F%28free+pascal%29%3A%E5%8D%95%E6%BA%90%E7%82%B9%E6%9C%80%E7%9F%AD%E8%B7%AF%E5%BE%84%EF%BC%9A%E7%BB%99%E5%AE%9A%E5%B8%A6%E6%9D%83%E6%9C%89%E5%90%91%E5%9B%BEG%3D%28v%2Ce%29%2C%E6%BA%90%E7%82%B9v1%E5%9C%A8v%E4%B8%AD%2C%E6%B1%82%E3%80%80v1%E5%88%B0v%E4%B8%AD%E5%85%B6%E4%BD%99%E5%90%84%E7%BB%93%E7%82%B9%E7%9A%84%E6%9C%80%E7%9F%AD%E8%B7%AF%E5%BE%84.%E6%95%B0%E6%8D%AE%E7%BB%93%E6%9E%84%E8%AF%B4%E6%98%8E%EF%BC%9Acost%5BI%2Cj%5D%3A%E8%A1%A8%E7%A4%BA%E5%B8%A6%E6%9D%83%E6%9C%89%E5%90%91%E5%9B%BE%E7%9A%84%E9%82%BB%E6%8E%A5%E7%9F%A9%E9%98%B5+d%5Bj%5D%EF%BC%9A%E8%A1%A8%E7%A4%BA%E4%BB%8Ev1%E5%88%B0vj%E7%9A%84%E6%9C%80%E7%9F%AD%E8%B7%AF%E5%BE%84%E9%95%BF)
完善程序(free pascal):单源点最短路径：给定带权有向图G=(v,e),源点v1在v中,求 v1到v中其余各结点的最短路径.数据结构说明：cost[I,j]:表示带权有向图的邻接矩阵 d[j]：表示从v1到vj的最短路径长
完善程序(free pascal):
单源点最短路径：给定带权有向图G=(v,e),源点v1在v中,求 v1到v中其余各结点的最短路径.
数据结构说明：cost[I,j]:表示带权有向图的邻接矩阵 d[j]：表示从v1到vj的最短路径长度 path[j]：表示从v1到vj的最短路径
程序如下:
const n=5; maxnum=1e10;
type
gr=array[1..n,1..n] of real;
dt=array[1..n] of real;
jh=set of 1..n;
pt=array[1..n] of jh;
var
s:jh;
cost:gr;
d:dt;
path:pt;
i,j,k:integer;
mm:real;
begin
for i:=1 to n do
for j:=1 to n do read(cost[i,j]);
s:=[1];
for i:=2 to n do
begin
d[i]:=cost[1,i];
if d[i] < maxnum then path[i]:=[1]+[i]
else ___（1）___
end;
for i:=1 to n-1 do
begin
mm:=maxnum;
for j:=2 to n do
if ___（2）___ then
begin mm:=d[j];k:=j; end;
s:=s+[k];
for j:=2 to n do
if not(j in s) and (cost[k,j] < maxnum) then
if ___（3）___ then
begin
d[j]:=d[k]+cost[k,j];
path[j]:=___（4）___
end;
end;
writeln;
for i:=2 to n do
begin
writeln('v1->','v',i,':',d[i]);
write('v1');
for j:=2 to n do
if j in path[i] then write('->','v',j);
writeln;
end;
end.
因为没学,
完善程序(free pascal):单源点最短路径：给定带权有向图G=(v,e),源点v1在v中,求 v1到v中其余各结点的最短路径.数据结构说明：cost[I,j]:表示带权有向图的邻接矩阵 d[j]：表示从v1到vj的最短路径长
[]表示集合啊