[2013.10.18]P2.传作业 (pass.pas/c/cpp)

http://dyssldezx.openjudge.cn/fornoip2013/10005/

描述

王双宝同学一日上学迟到，此时已经开始上早自习了，所以他只好请同学帮忙把作业传到组长那里。由于刚开学不久，王双宝同学还没来得及认识所有同学，所以传作业时只好找熟悉的同学。

已知王双宝与组长之间有N个他熟悉的同学，并且知道这些同学相互之间间隔的距离。因为每两个同学间传作业都需要下位，所以现在请你帮忙设计一种传作业的方案，使所有同学下位走动的总距离最小。

输入第1行，为一个正整数N(N<=98)，表示王双宝与组长之间的他所熟悉的同学人数。

接下来N+2行，每行有N+2个正整数(Integer,0~32767)，其中第I行的第J个数代表第I个同学与第J个同学之间的距离（第1个为王双宝本人，第2到第N+1个依次为王双宝熟悉的同学，第N+2个是组长）。输出输出一行，为一个正整数L，代表最短的总移动距离。样例输入

3
0 3 4 5 1
3 0 6 7 8
4 6 0 7 6
5 7 7 0 4
1 8 6 4 0

样例输出

1



这明摆着是到Floyd水题、、、

Function Min(a,b:longint):longint; Begin if a<B Then Exit(a) Else Exit(b); End;
Var
  i,j,k,n:longint;
  f:Array[0..101,0..101] of longint;
Begin
  Fillchar(f,Sizeof(f),0);
  Read(n);
  For i:=1 to n+2 do
    For j:=1 to n+2 do
      Read(f[i,j]);
  For i:=1 to n+2 do f[i,i]:=Maxlongint Shr 2;
  For k:=1 to n+2 do
    For i:=1 to n+2 do
      For j:=1 to n+2 do
         f[i,j]:=Min(f[i,j],f[i,k]+f[k,j]);
  Writeln(f[1,n+2]);
End.

轻松秒过

10005: [2013.10.18]P2.传作业 (pass.pas/c/cpp)最近的提交

提交人	班级	结果	分数	内存	时间	代码长度	语言	提交时间
Catch-22	2011级9班	Accepted	100	4kB	0ms	434 B	Pascal	4天前