瑞士轮 NOIP2011 试题要代码及思路!代码要Pascal 的

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/07 01:20:36
瑞士轮 NOIP2011 试题要代码及思路!代码要Pascal 的

瑞士轮 NOIP2011 试题要代码及思路!代码要Pascal 的
瑞士轮 NOIP2011 试题
要代码及思路!代码要Pascal 的

瑞士轮 NOIP2011 试题要代码及思路!代码要Pascal 的
解法:快排明显过不了,用着种XX排+快排
  var
  a,b,c:array[0..200000,1..3] of longint;
  i,n,r,q,j:longint;
  procedure kp(r,l:longint);
  var
  i,j,k1,k2:longint;
  begin
  i:=r;
  j:=l;
  k1:=a[(i+j) shr 1,1];
  k2:=a[(i+j) shr 1,3];
  while ik1) or (a[i,1]=k1) and (a[i,3]