分数线划定

分数线划定

 

题目描述

世博会志愿者的选拔工作正在 A 市如火如荼的进行。为了选拔最合适的人才，A 市对

所有报名的选手进行了笔试，笔试分数达到面试分数线的选手方可进入面试。面试分数线根

据计划录取人数的150%划定，即如果计划录取m名志愿者，则面试分数线为排名第m*150%

（向下取整）名的选手的分数，而最终进入面试的选手为笔试成绩不低于面试分数线的所有

选手。

现在就请你编写程序划定面试分数线，并输出所有进入面试的选手的报名号和笔试成

绩。

输入输出格式

输入格式：

第一行，两个整数 n，m（5 ≤ n ≤ 5000，3 ≤ m ≤ n），中间用一个空格隔开，其

中 n 表示报名参加笔试的选手总数，m 表示计划录取的志愿者人数。输入数据保证 m*150%

向下取整后小于等于 n。

第二行到第 n+1 行，每行包括两个整数，中间用一个空格隔开，分别是选手的报名号 k

（1000 ≤ k ≤ 9999）和该选手的笔试成绩 s（1 ≤ s ≤ 100）。数据保证选手的报名号各

不相同。

输出格式：

第一行，有两个整数，用一个空格隔开，第一个整数表示面试分数线；第二个整数为

进入面试的选手的实际人数。

从第二行开始，每行包含两个整数，中间用一个空格隔开，分别表示进入面试的选手

的报名号和笔试成绩，按照笔试成绩从高到低输出，如果成绩相同，则按报名号由小到大的

顺序输出。

输入输出样例

输入样例#1：

6 3 1000 90 3239 88 2390 95 7231 84 1005 95 1001 88

输出样例#1：

88 5 1005 95 2390 95 1000 90 1001 88 3239 88 

说明

【样例说明】

m*150% = 3*150% = 4.5，向下取整后为 4。保证 4 个人进入面试的分数线为 88，但因为 88

有重分，所以所有成绩大于等于 88 的选手都可以进入面试，故最终有 5 个人进入面试。

NOIP 2009 普及组 第二题

 

 

var
 i,j,k,l,n,m,p,o:longint;
 a,b:array[0..1000000,1..2]of longint;
 procedure dfs(l,r:longint);//快排
  var
   i,j,k,m:longint;
  begin
   if l>=r then exit;
   i:=l;j:=r;m:=a[l+random(r-l+1),2];
   repeat
    while (a[i,2]>m) do inc(i);
    while (a[j,2]<m) do dec(j);
    if i<=j then begin
                  k:=a[i,1];a[i,1]:=a[j,1];a[j,1]:=k;
                  k:=a[i,2];a[i,2]:=a[j,2];a[j,2]:=k;
                  inc(i);dec(j);
                 end;
   until i>j;
  dfs(l,j);
  dfs(i,r);
  end;

   procedure dfs1(l,r:longint);//快排2
  var
   i,j,k,m:longint;
  begin
   if l>=r then exit;
   i:=l;j:=r;m:=b[l+random(r-l+1),2];
   repeat
    while (b[i,2]>m) do inc(i);
    while (b[j,2]<m) do dec(j);
    if i<=j then begin
                  k:=b[i,1];b[i,1]:=b[j,1];b[j,1]:=k;
                  k:=b[i,2];b[i,2]:=b[j,2];b[j,2]:=k;
                  inc(i);dec(j);
                 end;
   until i>j;
  dfs1(l,j);
  dfs1(i,r);
 end;
begin
 read(m,n);
 for i:=1 to m do
  read(a[i,1],a[i,2]);
 dfs(1,m);
 n:=trunc(n*1.5);//划定
 k:=a[n,2];
 for i:=1 to m do
  if a[i,2]>=k then inc(l);
 writeln(k,' ',l);
 p:=1;
 for i:=1 to m do
  if a[i,2]>=k then begin b[p]:=a[i];inc(p);end;
  dfs1(1,p);
 for i:=1 to p-1 do
  for j:=i to p-1 do
  if b[i,2]=b[j,2] then if b[j,1]<b[i,1] then begin k:=b[i,1];b[i,1]:=b[j,1];b[j,1]:=k;
                                                    k:=b[i,2];b[i,2]:=b[j,2];b[j,2]:=k;
                                              end;
 for i:=1 to p-1 do
  writeln(b[i,1],' ',b[i,2]);
end.