noip-pascal图论.docVIP

1.输入一张无向图，指出该图中哪些结点对之间有路。【输入】??? n(顶点数，1≤n≤20)??? e(边数，1≤e≤210)??? 以下e行，每行为有边连接的一对顶点【输出】??? k行，每行两个数，为存在通路的顶点对序号i,j(ij)　 651 51 62 34 65 6　 1 41 51 62 34 54 65 6 ? program bibao_example;const? maxv=20;var? link,longlink:array[1..maxv,1..maxv] of boolean;? v,e,k,i,j:integer;procedure init;? begin?????? fillchar(longlink,sizeof(longlink),0);??? fillchar(link,sizeof(link),0);??? readln(v);??? readln(e);??? for k:=1 to e do???? begin????? readln(i,j);????? link[i,j]:=true;????? {因为没有权，所以有布尔型表示连通关系，能提高运算速度}????? link[j,i]:=true;???? end;? end;{init}procedur