題目內容
n交換機數量有限，不能全部配備，只能給部分重要城市配置。於是規定：如果某個城市由於交換機損壞，不僅本城市通訊中斷，還造成其它城市通訊中斷，則配備備
用交換機。請你根據城市線路情況，計算需配備備用交換機的城市個數，及需配備備用交換機城市的編號。
分析分析可得，如果某個城市由於交換機損壞，不僅本城市通訊中斷，還造成其它城市通訊中斷，那這個城市一定是無向圖割點。所以就是求所有的斷點。
求斷點：
**
const
maxe=50000;
maxv=1000;
type
rec=record
x,y,w,next:longint;
flag:boolean;
end;
var n,m:longint;
a:array[1..maxe] of rec;
ls:array[1..maxv] of longint;
ans:array[1..maxe] of longint;
low,dfn:array[1..maxv] of longint;
tot,num,ans1:longint;
i,j,k:longint;
root:longint;
procedure dfs(r:longint);
var i,j,k:longint;
begin
tot:=tot+1;
low[r]:=tot;
dfn[r]:=tot;
i:=ls[r];
while i<>0 do
with a[i] do
begin
if not flag
then begin
flag:=true;
a[w].flag:=true;
if dfn[y]=0
then
begin
if r=root
then num:=num+1;
dfs(y);
if low[r]>low[y]
then low[r]:=low[y];
if low[y]>=dfn[r]
then ans[r]:=1;
endelse
if low[r]>dfn[y]
then low[r]:=dfn[y];
end;
i:=next;
end;
end;
procedure add(x,y:longint);
begin
m:=m+1;
a[m].x:=x;
a[m].y:=y;
a[m].w:=m+1;
a[m].next:=ls[x];
ls[x]:=m;
m:=m+1;
a[m].x:=y;
a[m].y:=x;
a[m].w:=m-1;
a[m].next:=ls[y];
ls[y]:=m;
end;
begin
assign(input,'gd.in');
assign(output,'gd.out');
reset(input);
rewrite(output);
readln(n);
m:=0; num:=0;
while not eof do
begin
readln(j,k);
add(j,k);
end;
root:=1;
dfs(1);
if num>=2
then
ans[root]:=1
else
ans[root]:=0;
ans1:=0;
for i:=1 to n do
if ans[i]=1 then ans1:=ans1+1;
writeln(ans1);
for i:=1 to n do
if ans[i]=1
then writeln(i);
close(input);
close(output);
end.
備用交換機
題目描述 某個城市如果其交換機損壞，不僅本城市通訊會中斷，還會造成其它城市通訊中斷，則需要配備備用交換機。現詢問需要配備備用交換機的城市的總數，以及需要配備備用交換機的城市的編號。輸入描述 第一行輸入乙個整數n，表示共有n個城市 2 n 100 接下來若干行，每行輸入兩個數a b是城市編號，表示城市...
COGS 8 備用交換機
問題描述 輸入格式 輸入檔案有若干行 第一行，乙個整數n，表示共有n個城市 2 n 100 下面有若干行,每行2個數a b，a b是城市編號，表示a與b之間有直接通訊線路。輸出格式 輸出檔案有若干行 第一行，1個整數m，表示需m個備用交換機，下面有m行，每行有乙個整數，表示需配備交換機的城市編號，輸...
交換機交換機
交換機。常常聽人說交換機 路由器。什麼是交換機？為什麼叫交換機？交換什麼？交換機是不是就是路由器？這二者有什麼區別？這是我的疑問。沒辦法，基礎沒打好。一 什麼是交換機 交換機是這麼一種裝置 將網路分成若干小段，以解決網路擁堵，降低出錯，提高傳輸效率。為什麼分成若干小段可以提高傳輸效率呢？這涉及到網路...