【求助】pascal单源最短路径程序求改

说好的空格呢

F7单步跟踪调试

什么哟～

运行不了。。。

初始化？

dijk很容易出的一个错误。
赋初值的时候是maxInt，松弛的时候由于没有判断，会出现两个maxInt相加的情况，必然爆Integer的范围。
解决的办法有两种，一个是松弛的时候加上是否是maxInt的判断，另一种是把初值设置成maxInt shr 1之类足够大又能保证不上溢的值。

补充，最好不要integer，能longint就longint。
初始极大值的话随手敲个自己的八位生日也是可以的，见过某些OIer这么做的。

这个怎么改？

范围改大也没用，可能是输出错了，还是201。。。
program danyuan;
const n=100;
type
path=record
length:longint;
pre:0..n;
end;
var
adj:array[1..n,1..n]of longint;
dist:array[1..n]of path;
i,j,k,e,v,u,w:longint;
min:real;
procedure print(i:longint);
begin
if i=1 then write(i)
else
begin
print(dist[i].pre);
write(dist[i].pre);
end;
end;
begin
for i:=1 to n do
begin
dist[i].length:=maxint;
for j:=1 to n do
adj[i,j]:=maxint;
end;
readln(v,e);
for k:=1 to e do
begin
read(i,j,w);
adj[i,j]:=w;
end;
for i:=1 to e do
begin
dist[i].length:=adj[1,i];
if dist[i].length<>maxint then dist[i].pre:=1
else dist[i].pre:=0;
end;
adj[1,1]:=1;
repeat
u:=0;
min:=maxint;
for i:=1to e do
if (adj[i,i]=0) and (dist[i].length<min) then
begin
u:=i;
min:=dist[i].length;
end;
if u<>0 then
begin
adj[u,u]:=1;
for i:=1 to e do
if (adj[i,i]=0) and (dist[i].length>dist[u].length+adj[u,i]) then
begin
dist[i].length:=dist[u].length+adj[u,i];
dist[i].pre:=u;
end;
end;
until u=0;
for i:=1 to e do
begin
print(i);
write(dist[i].length);
end;
end.