90,无语??据说格式错误!!

编译通过...

├ 测试数据 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 条评论

  • @ 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;

    begin

    while 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

    begin

    for i:=1 to k-1 do

    for j:=i+1 to k-1 do

    if g+f+f[k,j]

  • 1

信息

ID
1046
难度
6
分类
图结构 | 最短路 点击显示
标签
(无)
递交数
4756
已通过
1265
通过率
27%
被复制
10
上传者