摘要: var b,f:array[0..100000] of longint; s,t,i,j,n,m,x,y:longint; l,h:array[0..1000]of longint; a:array[0..1000,0..1000]of longint; procedure bfs; var i,head,tail,x,y:longint; begin fillchar(b,... 阅读全文
posted @ 2015-02-24 10:19 rpSebastian 阅读(169) 评论(0) 推荐(0) 编辑