1 //蒟蒻的代码真的又臭又长。
 2 const maxp=10000;
 3 var
 4   t,n,maxx,i,j,ans1,ans2,minn,maxn,cost,k,p:longint;
 5   a,b:array[1..maxp,0..maxp]of longint;
 6   d,l,num,sum:array[1..maxp]of longint;
 7   v:array[1..maxp]of boolean;
 8   dist:array[1..maxp] of longint;
 9   f:array[1..maxp,1..maxp]of boolean;
10   head,tail:longint;
11 function max(a,b:longint):longint; //最大值
12 begin
13   if a>b then exit(a)
14   else exit(b);
15 end;
16 function min(a,b:longint):longint;//最小值
17 begin
18   if a<b then exit(a)
19   else exit(b);
20 end;
21 procedure init; //读入
22   var
23     i,j,x,y,z:longint;
24   begin
25    readln(n);
26   while not eoln do begin//因为是读入若干行所以用eof或eoln，但eof要转文件到记事本才可以看到结果，用eoln便于调试
27     readln(x,y,z);
28       inc(l[x]); inc(l[y]);//l数组记录结点是否出现及序号，其实好像没必要
29       if x>maxx then maxx:=x;
30       if y>maxx then maxx:=y;//找最大值便于枚举
31     inc(b[x,0]); b[x,b[x,0]]:=y; a[x,y]:=z;
32     inc(b[y,0]); b[y,b[y,0]]:=x; a[y,x]:=z;
33   end;
34 end;
35 procedure spfa(s:longint);//spfa大法好
36 var
37   i,j,now,sum:longint;
38 begin
39   fillchar(d,sizeof(d),0);
40   fillchar(v,sizeof(v),false);
41   for j:=1 to n do
42     dist[j]:=maxlongint;
43     dist[s]:=0; v[s]:=true; d[1]:=s;
44     head:=1; tail:=1;
45     while head<=tail do begin
46       now:=d[head];
47       for i:=1 to b[now,0] do
48         if (dist[b[now,i]]>dist[now]+a[now,b[now,i]]) then begin
49           dist[b[now,i]]:=dist[now]+a[now,b[now,i]];
50           if not v[b[now,i]] then begin
51             inc(tail);
52             d[tail]:=b[now,i];
53             v[b[now,i]]:=true;
54           end;
55         end;
56         v[now]:=false;
57         inc(head);
58       end;
59   end;
60 begin
61   fillchar(f,sizeof(f),true);//初始化
62   init;
63   for i:=1 to maxx do
64     if l[i]>0 then begin
65        inc(t);
66        num[t]:=i;
67     end;//把所有结点序号搞到num数组里面，比较方便
68     minn:=maxlongint;//找最小值记得初始化
69     //for i:=1 to n do
70       //write(num[i], ‘ ‘);
71   for i:=1 to n do
72     for j:=1 to n do
73       if num[i]<>num[j] then begin  //两个结点不能相同
74         spfa(num[i]); //以第一个结点开始求它到每个结点的距离
75         for k:=1 to n do
76           sum[k]:=dist[k];//把第一个结点的距离记录到sum数组，因为下      面一个spfa会更新dist数组
77           spfa(num[j]);//以第二个结点开始求它到每个结点的距离
78         maxn:=-maxlongint;//初始化啦
79         for k:=1 to n do
80           if (num[k]<>num[i])and(num[k]<>num[j]) then//出发结点与目标结点不能是同一个点   maxn:=max(maxn,min(sum[num[k]],dist[num[k]]));//找距离最远的点
81             if maxn<minn then begin
82               minn:=maxn;
83               ans1:=num[i]; ans2:=num[j];
84             end;//维护最小值，更新答案。
85           end;
86       write(ans1,‘ ‘,ans2);//输出答案
87 end.

 1 var
 2   n,x,y,z,i,j,k,maxn,minn,ans1,ans2:longint;
 3   cost:array[1..10001,1..10001]of longint;//cost数组记录最短路
 4 function max(a,b:longint):longint;//最大值
 5 begin
 6   if a>b then exit(a)
 7   else exit(b);
 8 end;
 9 function min(a,b:longint):longint;//最小值
10 begin
11   if a<b then exit(a)
12   else exit(b);
13 end;
14 begin
15   readln(n);
16   for i:=1 to n do
17     for j:=1 to n do
18       cost[i,j]:=23333333;//初始化因为maxlongint会炸，于是搞一个灰常大的数。。
19   while not eoln do begin
20     readln(x,y,z);
21     cost[x,y]:=z;
22     cost[y,x]:=z;//无向图要建反向边。
23   end;
24   for k:=1 to n do begin //Floyd咯。
25     for i:=1 to n do
26       if i<>k then
27       for j:=1 to n do
28         if (i<>j)and(j<>k) then begin
29           if cost[i,j]>cost[i,k]+cost[j,k] then cost[i,j]:=cost[i,k]+cost[j,k];
30   end;
31 end;
32       minn:=maxlongint;
33   for i:=1 to n do
34     for j:=1 to n do
35       if i<>j then begin //枚举两个结点且不为同一个结点
36         maxn:=-maxlongint;
37         for k:=1 to n do
38           if (i<>k)and(j<>k) then maxn:=max(maxn,min(cost[i,k],cost[j,k]));//结点不重复找距离最远的结点
39           if maxn<minn then begin
40             minn:=maxn;
41             ans1:=i; ans2:=j;
42           end;//维护最小值，更新答案。
43         end;
44     write(ans1,‘ ‘,ans2);//输出答案。
45 end.