编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案错误...程序输出比正确答案短
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：90 有效耗时：0ms
var
dis,g:array[1..100,1..100]of longint;
answer,n,m,x,y,z,i,j,k:longint;
begin
while not eof do
begin
read(n,m);
for i:=1 to n do
for j:=1 to n do
begin
g:=maxlongint;
dis:=maxlongint;
end;
for i:=1 to m do
begin
readln(x,y,z);
if g[x,y]>z
then
begin
g[x,y]:=z;
g[y,x]:=z;
dis[x,y]:=z;
dis[y,x]:=Z;
end;
end;
answer:=maxlongint;
for k:=1 to n do
begin
for i:=1 to k-1 do
for j:=i+1 to k-1 do
if (gmaxlongint)and(g[k,j]maxlongint)and(dismaxlongint)
then
if answer>g+g[k,j]+dis
then answer:=g+g[k,j]+dis;
for i:=1 to n do
for j:=1 to n do
if (dismaxlongint)and(dis[k,j]maxlongint)
then if dis+dis[k,j]
3 条评论
-
唐宇奕 LV 7 @ 2013-05-07 22:30:38
能解释一下吗？没学好。。。
-
@ 2009-05-08 14:54:44
第二个数据
'No solution'中有句号'No solution.'
-
@ 2009-04-13 15:24:06
我的程序也是这样的提示，第二个数据提示“程序输出比标准答案长”，请通过的朋友帮忙解释
program pp;
var
f,g:array[1..100,1..100] of real;
i,j,k,l,n,m:longint;
min:real;
beginwhile not eof do
begin
min:=1e99;
readln(n,m);
for i:=1 to n do
for j:=1 to n do f:=1e99;for i:=1 to m do
begin
readln(j,k,l);
f[j,k]:=l;
f[k,j]:=l;
end;
g:=f;
for k:=1 to n do
beginfor i:=1 to k-1 do
for j:=i+1 to k-1 do
if g+f+f[k,j]
- 1
信息
- ID
- 1046
- 难度
- 6
- 分类
- 图结构 | 最短路 点击显示
- 标签
- (无)
- 递交数
- 4760
- 已通过
- 1269
- 通过率
- 27%
- 被复制
- 12
- 上传者
-
xiaomengxian
