题目描述 Description
问题描述:
有n颗形状和大小都一致的珍珠,它们的重量都不相同。n为整数,所有的珍珠从1到n编号。你的任务是发现哪颗珍珠的重量刚好处于正中间,即在所有珍珠的重量中,该珍珠的重量列(n+1)/2位。下面给出将一对珍珠进行比较的方法:
给你一架天平用来比较珍珠的重量,我们可以比出两个珍珠哪个更重一些,在作出一系列的比较后,我们将某些肯定不具备中间重量的珍珠拿走。
例如,下列给出对5颗珍珠进行四次比较的情况:
1:珍珠2比珍珠1重
2:珍珠4比珍珠3重
3: 珍珠5比珍珠1重
4: 珍珠4比珍珠2重
根据以上结果,虽然我们不能精确的找出哪个珍珠具有中间变量,但我们可以肯定珍珠1和珍珠4不可能是中间重量,因为珍珠2,4,5都比1重,而珍珠1,2,3比珍珠4轻,所以我们可以移走这两颗珍珠。
写一个程序统计出共有多少颗珍珠肯定不会是中间变量。
输入:
第一行两个整数n和m,其中1<=n<=99,且n为奇数,M表示对珍珠进行的比较次数,接下来的M行每行两个用空格隔开的整数x和y,表示珍珠x比珍珠y重。
输出:
一个整数表示不可能是中间重量的珍珠的总数。
样例输入 Sample Input
5 4
2 1
4 3
5 1
4 2
样例输出 Sample Output
2
说明:1和4不可能是中间重量的珍珠
文件输入输出设置
各个测试点时间限制1s
100%的数据n<=99
代码:
var
n,m,i,x,y,j,k,s,t:longint;p:array[1..100,1..100] of longint;
begin
readln(n,m);
for i:=1 to m do
begin
readln(x,y);
p[x,y]:=1;
end;
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if (p[k,j]=1)and(p[i,k]=1) then p[i,j]:=1;
s:=0;
for i:=1 to n do
begin
t:=0;
for j:=1 to n do t:=t+p[i,j];
if t>=(n+1) div 2 then inc(s);
t:=0;
for j:=1 to n do t:=t+p[j,i];
if t>=(n+1) div 2 then inc(s);
end;
writeln(s);
end.
此题为弗洛伊德练习题,思路非常简单。
我们用p[i,j]=1表示i比j重(反之0表示轻),那么我们可以推出i比k中,k比j重,那么i就比j重,找到这个简单的规律,我们就可以用弗洛伊德表示出所以f[i,j]之间的关系。
然后我们只需判断每一个珍珠a,是否f[a,1],f[a,2],f[a,3]......f[a,n]中等于1的个数(即比它重的)大于(n+1) div 2(一半),则inc(ans);
如果不是,那么就判断下比他轻的个数f[1,a],f[2,a],f[3,a]......f[n,a]大于(n+1) div 2 那么inc(ans) 就可以了!
最后输出ans即是结果。