【floyed求最小环】观光旅游

 

观光旅游

背景 Background     　　湖南师大附中成为百年名校之后，每年要接待大批的游客前来参观。学校认为大力发展旅游业，可以带来一笔可观的收入。               描述 Description     　　学校里面有Ｎ个景点。两个景点之间可能直接有道路相连，用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.