求最小环(floyd，dijkstra)

给出一个无向图，求图中的最小环。

利用floyd f[k,i,j]的性质来求。

program tt;
const max=1000000;
var n,m,i,j,k,x,y,z,ans:longint;
    f,g:array[1..100,1..100]of longint;
function min(a,b:longint):longint;
begin
 if az then 
	  begin 
	   f[x,y]:=z;
       f[y,x]:=z;
	   g[x,y]:=z;
	   g[y,x]:=z;
	  end;
	end;
   ans:=max;
   for k:=1 to n do
    begin
	 for i:=1 to k-1 do
	  for j:=i+1 to k-1 do//无向图，一半
	   if (g[i,k]

Dijkstra: