Question

帮忙用PASCAL编程打一下代码（跪求！！）

当大家在考场中接受考验（折磨？）的时候，小呆正在悠闲（欠扁）地玩一个叫“最初梦想”的游戏。游戏描述的是一个叫pass的有志少年在不同的时空穿越对抗传说中的大魔王chinesesonic的故事。小呆发现这个游戏的故事流程设计得很复杂，它有着很多的分支剧情，但不同的分支剧情是可以同时进行的，因此游戏可以由剧情和剧情的结束点组成，某些剧情必须要在一些特定的剧情结束后才能继续发展。为了体验游戏的完整性，小呆决定要看到所有的分支剧情——完成所有的任务。但这样做会不会耽误小呆宝贵的睡觉时间呢？所以就请你来解决这个问题了。小呆会给你一个剧情流程和完成条件的列表，其中第一行有一个数n（0<n<100），表示总共有n个剧情结束点，第二行一个数m(0<m<=120)，表示由m个不同的剧情，下面的m行中每行有三个数i(0<i<=100),j(0<j<=100),k(0<k<=1000)，表示从剧情结束点i必须完成一个耗费时间为k的剧情才能到达剧情结束点j。注意，这m行中出现的1不是剧情结束点而是游戏的开始，而n+1表示游戏结束。你要告诉小呆完成整个游戏至少需要多少时间以及要经过的所有可能的剧情结束点（按升序输出）。样例如下：
4
5
1 2 2
2 3 2
3 5 3
1 4 3
4 5 3
7
1 2 3 5

Answer 1

floyd一下+记录路径即可
程序百科上有：
program floyd;
var
st,en,f:integer;
k,n,i,j,x:integer;
a:array[1..10,1..10] of integer;
path:array[1..10,1..10] of integer;
begin
readln(n);
for i:=1 to n do

begin
for j:=1 to n do
begin
read(k);
if k<>0 then
a[i,j]:=k
else
a[i,j]:=maxint;
path[i,j]:=j;
end;
readln;
end;
for x:=1 to n do
for i:=1 to n do
for j:=1 to n do
if a[i,j]>a[i,x]+a[x,j] then
begin
a[i,j]:=a[i,x]+a[x,j];
path[i,j]:=path[i,x];
end;
readln(st,en);
writeln(a[st,en]);
f:=st;
while f<> en do
begin
write(f);
write('-->');
f:=path[f,en];
end;
writeln(en);
end.
自己改一下即可ac

追问

能不能改一下，好像有点大，TLE了

追答

program floyd;
var
st,en,f:longint;
k,n,i,j,x,m,y,z:longint;
a:array[1..100,1..100] of integer;
path:array[1..100,1..100] of integer;
begin
readln(n);
readln(m);
for i:=1 to m do
begin
read(x,y,z);
a[x,y]:=z;
if eni then
for j:=1 to n do
if (xj)and(ij)and(a[i,x]0)and(a[x,j]0) then
if (a[i,j]>a[i,x]+a[x,j])or(a[i,j]=0) then
begin
a[i,j]:=a[i,x]+a[x,j];
path[i,j]:=path[i,x];
end;
st:=1;
writeln(a[st,en]);
f:=st;
while f en do
begin
write(f);
write(' ');
f:=path[f,en];
end;
writeln(en);
end.

追问

NA!10个ＴＬＥ！！再改一下，求你了！！

追答

为什么答案是
7
1 2 3 5
而不是
6
1 4 5
program floyd;
var
st,en,f:longint;
k,n,i,j,x,m,y,z:longint;
a:array[1..110,1..110] of integer;
path:array[1..110,1..110] of integer;
begin
readln(n);
inc(n);
readln(m);
for i:=1 to m do
begin
read(x,y,z);
a[x,y]:=z;
end;
for i:=1 to n do
for j:=1 to n do path[i,j]:=j;
for x:=1 to n do
for i:=1 to n do
if xi then
for j:=1 to n do
if (xj)and(ij)and(a[i,x]0)and(a[x,j]0) then
if (a[i,j]>a[i,x]+a[x,j])or(a[i,j]=0) then
begin
a[i,j]:=a[i,x]+a[x,j];
path[i,j]:=path[i,x];
end;
st:=1;en:=n;
writeln(a[st,en]);
f:=st;
while f en do
begin
write(f);
write(' ');
f:=path[f,en];
end;
writeln(en);
end.

追问

这次全WA，怎么回事？要不发我邮箱jiangyue980101@126.COM吧，感谢！