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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/29 16:12:17
瑞士轮 NOIP2011 试题要代码及思路!代码要Pascal 的
x){>qū_]`d`hbԗfXd w=kbzE(X|VMR>n3D_`gCXzIf=';zjy>e ϗFDe!74QYb/Q'I'*(2@Ot cr3JtddYa,(ONM)-JU.(ɁѴL,lCl#l%E[!gY l5243 u cQQ32sR2 543؂y)q~qAb(JvR

瑞士轮 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]