图的宽搜习题解答.doc

图的宽搜习题解答 3、单词接龙：（dcjl.pas） 推荐程序：庄雨辰 var n,max,l,tot,i: longint; s:array[1..40] of string; a:array[1..40,1..40] of longint; c:array[1..40] of boolean; bac:char; longstr:string; procedure init; var i:longint; begin assign(input,dcjl.in); reset(input); readln(n); for i:=1 to n