[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水题、、、

 1 Function Min(a,b:longint):longint; Begin if a<B Then Exit(a) Else Exit(b); End;
 2 Var
 3   i,j,k,n:longint;
 4   f:Array[0..101,0..101] of longint;
 5 Begin
 6   Fillchar(f,Sizeof(f),0);
 7   Read(n);
 8   For i:=1 to n+2 do
 9     For j:=1 to n+2 do
10       Read(f[i,j]);
11   For i:=1 to n+2 do f[i,i]:=Maxlongint Shr 2;
12   For k:=1 to n+2 do
13     For i:=1 to n+2 do
14       For j:=1 to n+2 do
15          f[i,j]:=Min(f[i,j],f[i,k]+f[k,j]);
16   Writeln(f[1,n+2]);
17 End.

轻松秒过

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

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

转载于:https://www.cnblogs.com/Catch-22/p/3386806.html