背景 Background
太原成成中学第3次模拟赛 第4题
描述 Description
Mrs.Chen是一个很认真很称职的语文老师 ......
所以,当她看到学生作文里的人物关系描述得非常的麻烦的时候,她非常生气,于是宣布:凡是作文里有冗余关系的,一率罚抄出师表10次...同学们非常的恐惧,于是,每当他们写出一篇作文,都要拿来你这个语文兼OI天才这里,问你有没有冗余的关系 ...... 时间一久,你也烦了,于是就想写个程序来代劳 ...
现在这里有一篇作文,有n句描述人物关系的句子,描述了n个人的关系
每条句子的定义是这样的
X Y
它的意思是:X认识Y Y也认识X
现在要你求出文中冗余关系的数目.
注意: 假如A认识B,B认识C,则A也认识C
冗余关系的定义是指 : 即使没有这条关系,原图的所有关系照样成立.
输入格式 Input Format
第一行,两个整数,表示句子数量(n),表示人数(m)。
接下来n行,每行两个数,意义在描述里已经说了.
输出格式 Output Format
一个整数,表示冗余关系的数目.
样例输入 Sample Input
3 3
1 2
1 3
2 3
样例输出 Sample Output
1
附我的题解:
program p1017;
var v1,i,v2,t,n,m:longint;
a:array[1..100]of longint;
procedure init;
var i,j:longint;
begin
readln(n,m);
for i:=1 to m do
a[i]:=i;
end;
function getfather(v:longint):longint;
begin
if a[v]=v then getfather:=v
else
begin
a[v]:=getfather(a[v]);
getfather:=a[v];
end;
end;
procedure pan(v1,v2:longint);
var i,j:longint;
begin
i:=getfather(v1);
j:=getfather(v2);
if i=j then t:=t+1
else
begin
a[i]:=j;
end;
end;
begin
assign(output,'output.out');
assign(input,'input.in');
reset(Input);
rewrite(output);
init;
for i:=1 to n do
begin
read(v1,v2);
pan(v1,v2);
end;
writeln(t);
close(input);
close(output);
end.