题目：有n个城市（n<=10)之间的道路图，请编一程序，找出所有从1到n城市的所有不同城市路线，打印出路线及长度。
给定过程：Procedure dfn(k,dep:integer);
Var i:integer;
Begin
for i:=1 to n do
if city[k,i]>0 and (not (I in flag)) then
begin
way[deep]:=I;flag:=flag+[i];
if i=10 then print(dep)
else dfn(I,dep+1);
flag:=flag-[i];
end;
End;
输入：
城市数
a b c
a1 b1 c1
.............
a：城a
b：城b
c:城a-c路程
需要完整程序！！！
！！！！！！！！！
样例输入：
9
1 6 27677
1 7 1645
1 9 13514
2 3 2602
2 8 13558
3 7 21307
3 8 8383
3 9 32194
4 1 32728
4 3 26955
4 8 24206
4 9 12924
5 1 7184
5 3 21149
5 6 15875
5 7 18328
5 8 29808
6 1 7354
6 4 16345
6 8 27577
6 9 23751
7 1 16186
7 2 10267
7 3 14383
7 5 13924
7 6 17869
7 8 10978
7 9 13095
8 2 22443
8 3 8407
8 4 26725
8 6 24738
8 7 22873
9 1 13168
9 5 30528
9 8 30421
样例输出：1:1 6 4 3 7 9 105379
2:1 6 4 3 8 7 9 115328
3:1 6 4 3 9 103171
4:1 6 4 8 2 3 7 9 127675
5:1 6 4 8 2 3 9 125467
6:1 6 4 8 3 7 9 111037
7:1 6 4 8 3 9 108829
8:1 6 4 8 7 2 3 9 136164
9:1 6 4 8 7 3 9 137678
10:1 6 4 8 7 5 3 9 158368
11:1 6 4 8 7 9 104196
12:1 6 4 9 56946
13:1 6 8 2 3 7 9 114701
14:1 6 8 2 3 9 112493
15:1 6 8 3 7 9 98063
16:1 6 8 3 9 95855
17:1 6 8 4 3 7 9 143336
18:1 6 8 4 3 9 141128
19:1 6 8 4 9 94903
20:1 6 8 7 2 3 9 123190
21:1 6 8 7 3 9 124704
22:1 6 8 7 5 3 9 145394
23:1 6 8 7 9 91222
24:1 6 9 51428
25:1 7 2 3 8 4 9 62546
26:1 7 2 3 8 6 4 9 76904
27:1 7 2 3 8 6 9 71386
28:1 7 2 3 9 46708
29:1 7 2 8 3 9 66071
30:1 7 2 8 4 3 9 111344
31:1 7 2 8 4 9 65119
32:1 7 2 8 6 4 3 9 125702
33:1 7 2 8 6 4 9 79477
34:1 7 2 8 6 9 73959
35:1 7 3 8 4 9 64060
36:1 7 3 8 6 4 9 78418
37:1 7 3 8 6 9 72900
38:1 7 3 9 48222
39:1 7 5 3 8 4 9 84750
40:1 7 5 3 8 6 4 9 99108
41:1 7 5 3 8 6 9 93590
42:1 7 5 3 9 68912
43:1 7 5 6 4 3 9 106938
44:1 7 5 6 4 8 2 3 9 129234
45:1 7 5 6 4 8 3 9 112596
46:1 7 5 6 4 9 60713
47:1 7 5 6 8 2 3 9 116260
48:1 7 5 6 8 3 9 99622
49:1 7 5 6 8 4 3 9 144895
50:1 7 5 6 8 4 9 98670
51:1 7 5 6 9 55195
52:1 7 5 8 2 3 9 102616
53:1 7 5 8 3 9 85978
54:1 7 5 8 4 3 9 131251
55:1 7 5 8 4 9 85026
56:1 7 5 8 6 4 3 9 145609
57:1 7 5 8 6 4 9 99384
58:1 7 5 8 6 9 93866
59:1 7 6 4 3 9 95008
60:1 7 6 4 8 2 3 9 117304
61:1 7 6 4 8 3 9 100666
62:1 7 6 4 9 48783
63:1 7 6 8 2 3 9 104330
64:1 7 6 8 3 9 87692
65:1 7 6 8 4 3 9 132965
66:1 7 6 8 4 9 86740
67:1 7 6 9 43265
68:1 7 8 2 3 9 69862
69:1 7 8 3 9 53224
70:1 7 8 4 3 9 98497
71:1 7 8 4 9 52272
72:1 7 8 6 4 3 9 112855
73:1 7 8 6 4 9 66630
74:1 7 8 6 9 61112
75:1 7 9 14740
76:1 9 13514

直接调用这个过程就可以了

var flag:array[1..10] of boolean;
city:array[1..10,1..10] of longint;
way:array[0..10] of longint;
n,a,b,c,tot:longint;
procedure print(m:longint);
var i:longint;
ans:int64;
begin
write(tot,':',way[0],' ');
ans:=0;
for i:=1 to m do begin
write(way[i],' ');
inc(ans,city[way[i-1],way[i]]);
end;
writeln(ans);
end;
procedure dfn(k,dep:longint);
var i:longint;
begin
if k=n then begin
inc(tot);
print(dep-1);
exit;
end;
for i:=1 to n do if (city[k,i]>0)and(flag[i]=false) then begin
way[dep]:=i;
flag[i]:=true;
dfn(i,dep+1);
flag[i]:=false;
end;
end;
begin
readln(n);
way[0]:=1;
while not(eof(input)) do begin
readln(a,b,c);
city[a,b]:=c;
end;
flag[1]:=true;
dfn(1,1);
end.
不过好像输入文件过长，要用文件输入才能正常运行

非常感谢！你说说我怎么感谢你把