求有向带权图的所有环

求有向图的所有环,此问题包括了求最大环或者最小环。
【输入】
 第一行两个数v,e，分别代表图的顶点数和边数，以下e行，每行为有连接的两个顶点和权。
【输出】
 顶点编号和环的长度以及包含该顶点的环的路径。
　

【输入样例】 huan.in 5 7 1 2 2 2 1 1 2 5 4 3 2 5 3 4 7 4 1 3 5 4 6 　 【输出样例】 huan.out 1 3 1->2 2 3 2->1 4 15 4->1->2->5 5 15 5->4->1->2

program huan;
const
  maxn=90;
var
  n,s,t,i,j:integer;
  dist:array[1..maxn,1..maxn] of real;
  prev:array[1..maxn,1..maxn] of 0..maxn;
procedure init;
  var
    m,i,u,v:integer;
  begin
    assign(input,'huan.in');
    reset(input);
    assign(output,'huan.out');
    rewrite(output);
    readln(n,m);
    fillchar(prev,sizeof(prev),0);
    for u:=1 to n do
      for v:=1 to n do
        dist[u,v]:=1e10;
     for i:=1 to m do
      begin
        readln(u,v,dist[u,v]);
        prev[u,v]:=u;
      end; 
  end;
procedure floyd;
 var
   i,j,k:integer;
 begin
   for k:=1 to n do
     for i:=1 to n do
       for j:=1 to n do
         if (dist[i,k]+dist[k,j]<dist[i,j])
             then  begin
               dist[i,j]:=dist[i,k]+dist[k,j];
               prev[i,j]:=prev[k,j];
              end;
  end;{floyd}
procedure print(i,j:integer);
  begin
   if i=j
     then write(i)
     else if prev[i,j]=0
            then write('No Circle!')
            else begin
                print(i,prev[i,j]);
                write('->',j);
                end;
  end;{print}
begin
  init;
  floyd;
  for i:=1 to n do
     begin
        if dist[i,i]<>1e10
          then
            begin
              write(i,' ');
              write(dist[i,i]:0:0,' ');
              print(i,prev[i,i]);
              writeln;
            end;
      end;
  close(input);
  close(output);
end.