谁的算法比较好，帮帮忙！

Question

排出的效果是这样的唐人街 清晰码头 葬龟崖 水域战场
唐人街 清晰码头 葬龟崖 死林 黑龙会分部 五色堂地牢
唐人街 清晰码头 葬龟崖 死林 黑龙会分部 飘雪峰 怪山洞 灵蛇神洞/////////////////////////////////////////////////////////////////////////////////////
type
   TMapInXY=record          
      OldName:string;
      NewName:string;
   end;var g_MapInXY:array [0..61] of TMapInXY;  /////////////////////////////////////////////////////
g_MapInXY[0].OldName :='唐人街';
g_MapInXY[0].NewName :='清晰码头';g_MapInXY[1].OldName :='清晰码头';
g_MapInXY[1].NewName :='唐人街';g_MapInXY[2].OldName :='清晰码头';
g_MapInXY[2].NewName :='葬龟崖';g_MapInXY[3].OldName :='葬龟崖';
g_MapInXY[3].NewName :='清晰码头';g_MapInXY[4].OldName :='葬龟崖';
g_MapInXY[4].NewName :='水域战场';g_MapInXY[5].OldName :='水域战场';
g_MapInXY[5].NewName :='葬龟崖';g_MapInXY[6].OldName :='葬龟崖';
g_MapInXY[6].NewName :='死林';g_MapInXY[7].OldName :='死林';
g_MapInXY[7].NewName :='葬龟崖';g_MapInXY[8].OldName :='死林';
g_MapInXY[8].NewName :='黑龙会分部';g_MapInXY[9].OldName :='黑龙会分部';
g_MapInXY[9].NewName :='死林';g_MapInXY[10].OldName :='黑龙会分部';
g_MapInXY[10].NewName :='龟岛矿场';g_MapInXY[11].OldName :='龟岛矿场';
g_MapInXY[11].NewName :='黑龙会分部';g_MapInXY[12].OldName :='龟岛矿场';
g_MapInXY[12].NewName :='石牢禁地';g_MapInXY[13].OldName :='石牢禁地';
g_MapInXY[13].NewName :='龟岛矿场';g_MapInXY[14].OldName :='龟岛矿场';
g_MapInXY[14].NewName :='葬龟崖';g_MapInXY[15].OldName :='葬龟崖';
g_MapInXY[15].NewName :='龟岛矿场';g_MapInXY[16].OldName :='龟岛矿场';
g_MapInXY[16].NewName :='龟岛';g_MapInXY[17].OldName :='龟岛';
g_MapInXY[17].NewName :='龟岛矿场';g_MapInXY[18].OldName :='龟岛';
g_MapInXY[18].NewName :='唐人街';g_MapInXY[19].OldName :='唐人街';
g_MapInXY[19].NewName :='龟岛';g_MapInXY[20].OldName :='黑龙会分部';
g_MapInXY[20].NewName :='死林';g_MapInXY[21].OldName :='死林';
g_MapInXY[21].NewName :='黑龙会分部';g_MapInXY[22].OldName :='黑龙会分部';
g_MapInXY[22].NewName :='飘雪峰';g_MapInXY[23].OldName :='飘雪峰';
g_MapInXY[23].NewName :='黑龙会分部';g_MapInXY[24].OldName :='黑龙会分部';
g_MapInXY[24].NewName :='五色堂地牢';g_MapInXY[25].OldName :='五色堂地牢';
g_MapInXY[25].NewName :='黑龙会分部';g_MapInXY[26].OldName :='黑龙会分部';
g_MapInXY[26].NewName :='怪山洞';g_MapInXY[27].OldName :='怪山洞';
g_MapInXY[27].NewName :='黑龙会分部';g_MapInXY[28].OldName :='怪山洞';
g_MapInXY[28].NewName :='飘雪峰';g_MapInXY[29].OldName :='飘雪峰';
g_MapInXY[29].NewName :='怪山洞';g_MapInXY[30].OldName :='怪山洞';
g_MapInXY[30].NewName :='灵蛇神洞';g_MapInXY[31].OldName :='灵蛇神洞';
g_MapInXY[31].NewName :='怪山洞';g_MapInXY[32].OldName :='怪山洞';
g_MapInXY[32].NewName :='长白山';g_MapInXY[33].OldName :='长白山';
g_MapInXY[33].NewName :='怪山洞';g_MapInXY[34].OldName :='洞月潭';
g_MapInXY[34].NewName :='怪山洞';g_MapInXY[35].OldName :='怪山洞';
g_MapInXY[35].NewName :='洞月潭';g_MapInXY[36].OldName :='长白山';
g_MapInXY[36].NewName :='洞月潭';g_MapInXY[37].OldName :='洞月潭';
g_MapInXY[37].NewName :='长白山';g_MapInXY[38].OldName :='洞月潭';
g_MapInXY[38].NewName :='鬼爪林禁地';g_MapInXY[39].OldName :='鬼爪林禁地';
g_MapInXY[39].NewName :='洞月潭';g_MapInXY[40].OldName :='长白山';
g_MapInXY[40].NewName :='九幽山';g_MapInXY[41].OldName :='九幽山';
g_MapInXY[41].NewName :='长白山';g_MapInXY[42].OldName :='长白山';
g_MapInXY[42].NewName :='绝顶峰';g_MapInXY[43].OldName :='绝顶峰';
g_MapInXY[43].NewName :='长白山';g_MapInXY[44].OldName :='长白山';
g_MapInXY[44].NewName :='港督';g_MapInXY[45].OldName :='港督';
g_MapInXY[45].NewName :='长白山';g_MapInXY[46].OldName :='九幽山';
g_MapInXY[46].NewName :='鬼石山';g_MapInXY[47].OldName :='鬼石山';
g_MapInXY[47].NewName :='九幽山';g_MapInXY[48].OldName :='九幽山';
g_MapInXY[48].NewName :='刚牛谷';g_MapInXY[49].OldName :='刚牛谷';
g_MapInXY[49].NewName :='九幽山';g_MapInXY[50].OldName :='刚牛谷';
g_MapInXY[50].NewName :='鹰王洞';g_MapInXY[51].OldName :='鹰王洞';
g_MapInXY[51].NewName :='刚牛谷';g_MapInXY[52].OldName :='刚牛谷';
g_MapInXY[52].NewName :='黑龙岛';g_MapInXY[53].OldName :='黑龙岛';
g_MapInXY[53].NewName :='刚牛谷';g_MapInXY[54].OldName :='黑龙岛';
g_MapInXY[54].NewName :='两极龙泉岩';g_MapInXY[55].OldName :='两极龙泉岩';
g_MapInXY[55].NewName :='黑龙岛';g_MapInXY[56].OldName :='黑龙岛';
g_MapInXY[56].NewName :='自由岛';g_MapInXY[57].OldName :='自由岛';
g_MapInXY[57].NewName :='黑龙岛';g_MapInXY[58].OldName :='自由岛';
g_MapInXY[58].NewName :='地域坟场';g_MapInXY[59].OldName :='地域坟场';
g_MapInXY[59].NewName :='自由岛';g_MapInXY[60].OldName :='自由岛';
g_MapInXY[60].NewName :='残宗总坛';g_MapInXY[61].OldName :='残宗总坛';
g_MapInXY[61].NewName :='自由岛';

Answer 1

做过类似的东西,但数据存储方法和楼主不一样.因为一个地点可能对应多个.有些地点是双向,还有些是单向.大概思路是,设置一个权值,从开始的地方A为0,搜索所有能去的地方(B或M),每到一个地方,权值增加(B或M权值为1),从B或M搜索他们能到的地方(D,N等),这时搜索到的地点,权值为再+1,就是2.一直这样,如果有重复搜索的地方,要比较权值,也可能需要重新搜索部分数据.这样直到搜索完所有的可能,从目标Z开始,按反向就能找到A了.路径就出来了.
不会表达写得太乱,希望对你有一点帮助.

Answer 2

如果W权为18,他通向Z.这样Z权为19.搜索中又碰到Q也通向z,Q权值为12，这时要改Z权为13，并记录下来是Q通向Z的，这样好从Z反到Q，Q反向查到通向他的地方，一直到A.