图的应用——珍珠

题目描述 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即是结果。