| | | | 背景 Background | | | 湖南师大附中成为百年名校之后,每年要接待大批的游客前来参观。学校认为大力发展旅游业,可以带来一笔可观的收入。 | | | |
| | | | 描述 Description | | | 学校里面有N个景点。两个景点之间可能直接有道路相连,用Dist[I,J]表示它的长度;否则它们之间没有直接的道路相连。这里所说的道路是没有规定方向的,也就是说,如果从I到J有直接的道路,那么从J到I也有,并且长度与之相等。学校规定:每个游客的旅游线路只能是一个回路(好霸道的规定)。也就是说,游客可以任取一个景点出发,依次经过若干个景点,最终回到起点。一天,Xiaomengxian决定到湖南师大附中旅游。由于他实在已经很累了,于是他决定尽量少走一些路。于是他想请你——一个优秀的程序员——帮他求出最优的路线。怎么样,不是很难吧?(摘自《郁闷的出纳员》) | | | |
| | | | 输入格式 Input Format | | | 输入中有多组数据。请用SeekEof判断是否到达文件结束。 对于每组数据: 第一行有两个正整数N,M,分别表示学校的景点个数和有多少对景点之间直接有边相连。(N<=100,M<=10000) 以下M行,每行三个正整数,分别表示一条道路的两端的编号,以及这条道路的长度。 | | | |
| | | | 输出格式 Output Format | | | 对于每组数据,输出一行: 如果该回路存在,则输出一个正整数,表示该回路的总长度;否则输出“No solution.”(不要输出引号) | | | |
| | | | 样例输入 Sample Input [复制数据] | | | 5 7 1 4 1 1 3 300 3 1 10 1 2 16 2 3 100 2 5 15 5 3 20 4 3 1 2 10 1 3 20 1 4 30 | | | |
| | | | 样例输出 Sample Output [复制数据] | | | 61 No solution. | | | |
| | | | 时间限制 Time Limitation | | | 各个测试点1s | |
====================================
注意如何迭代
for k:=1 to n do
begin
for i:=1 to k-1 do
for j:=i+1 to k-1 do
if f[i,j]+dist[i,k]+dist[k,j]<ans then ans:=f[i,j]+dist[i,k]+dist[k,j];
for i:=1 to n do
for j:=1 to n do
if f[i,j]<f[i,k]+f[k,j] then
f[i,j]:=f[i,k]+f[k,j];
end;
============================
var
n,m:longint;
map,f:array[1..100,1..100]of longint;
dist:array[1..100,1..100]of longint;
ans:longint;
procedure init;
begin
assign(input,'ty1433.in');
assign(output,'ty1433.out');
reset(input); rewrite(output);
end;
procedure terminate;
begin
close(input); close(output);
halt;
end;
procedure main;
var
i,j,k:longint;
x,y,z:longint;
begin
while not eof do
begin
readln(n,m);
//fillchar(map,sizeof(map),$7);
for i:=1 to n do
for j:=1 to n do
begin
map[i,j]:=100000000;
f[i,j]:=100000000;
end;
for i:=1 to m do
begin
readln(x,y,z);
if z<map[x,y] then
begin
map[x,y]:=z;
map[y,x]:=z;
f[x,y]:=z;
f[y,x]:=z;
end;
end;
ans:=100000000;
for i:=1 to n do map[i,i]:=0;
for k:=1 to n do
begin
for i:=1 to k-1 do
for j:=i+1 to k-1 do
if f[i,j]+map[j,k]+map[k,i]<ans then
ans:=map[i,k]+map[k,j]+f[i,j];
for i:=1 to n do
for j:=1 to n do
if (i<>j)and (i<>k) and (j<>k) then
if f[i,k]+f[k,j]<f[i,j] then
f[i,j]:=f[i,k]+f[k,j];
end;
if ans=100000000 then writeln('No solution.')
else writeln(ans);
end;
end;
begin
init;
main;
terminate;
end.