[1025]Noip 2009 Problem 2

描述 Description 世博会志愿者的选拔工作正在 A 市如火如荼的进行。为了选拔最合适的人才，A 市对 所有报名的选手进行了笔试，笔试分数达到面试分数线的选手方可进入面试。面试分数线根 据计划录取人数的150%划定，即如果计划录取m名志愿者，则面试分数线为排名第m*150% （向下取整）名的选手的分数，而最终进入面试的选手为笔试成绩不低于面试分数线的所有 选手。 现在就请你编写程序划定面试分数线，并输出所有进入面试的选手的报名号和笔试成 绩。

输入格式 InputFormat 输入文件名为 score.in。 第一行，两个整数n，m（5 ≤ n ≤ 5000，3 ≤ m ≤ n），中间用一个空格隔开，其 中n 表示报名参加笔试的选手总数，m 表示计划录取的志愿者人数。输入数据保证m*150% 向下取整后小于等于n。 第二行到第 n+1 行，每行包括两个整数，中间用一个空格隔开，分别是选手的报名号k （1000 ≤ k ≤ 9999）和该选手的笔试成绩s（1 ≤ s ≤ 100）。数据保证选手的报名号各 不相同。

输出格式 OutputFormat 输出文件 score.out。 第一行，有两个整数，用一个空格隔开，第一个整数表示面试分数线；第二个整数为 进入面试的选手的实际人数。 从第二行开始，每行包含两个整数，中间用一个空格隔开，分别表示进入面试的选手 的报名号和笔试成绩，按照笔试成绩从高到低输出，如果成绩相同，则按报名号由小到大的 顺序输出。

样例输入 SampleInput [复制数据] 6 3 1000 90 3239 88 2390 95 7231 84 1005 95 1001 88

样例输出 SampleOutput [复制数据] 88 5 1005 95 2390 95 1000 90 1001 88 3239 88

时间限制 TimeLimitation 各个测试点1s

来源 Source NOIP2009普及组 第二题

 算法：简单排序

 1 //Noip 2009 Problem 2 score
 2 //Oier:Shylocks
 3 type n=record
 4     k,s:integer;
 5     end;
 6 var a:array[1..5000]of n;
 7     nn,m,i,score:integer;
 8 Procedure swap(var a,b:integer);
 9 var temp:longint;
10 begin
11   temp:=a;
12   a:=b;
13   b:=temp;
14 end;
15 Procedure qsort(l,r:longint);
16 var i,j,mid,mid2:integer;
17 begin
18   i:=l;
19   j:=r;
20   mid:=a[(i+j) div 2].s;
21   mid2:=a[(i+j) div 2].k;
22   repeat
23     while(a[i].s<mid)or (a[i].s=mid)and(a[i].k>mid2)do inc(I);
24     while(a[j].s>mid)or (a[j].s=mid)and(a[j].k<mid2)do dec(j);
25     if i<=j then
26     begin
27       swap(a[i].s,a[j].s);
28       swap(a[i].k,a[j].k);
29       inc(i);dec(j);
30     end;
31   until i>j;
32   if i<r then qsort(i,r);
33   if l<j then qsort(l,j);
34 end;
35 begin
36   readln(nn,m);
37   score:=trunc(m*1.5);
38   //writeln(score);
39   for i:=1 to nn do readln(a[i].k,a[i].s);
40   qsort(1,nn);
41   while(a[nn-score+1].s=a[nn-score].s)do inc(score);
42   writeln(a[nn-score+1].s,' ',score);
43   for i:=nn downto nn-score+1 do writeln(a[i].k,' ',a[i].s);
44 end.

转载于:https://www.cnblogs.com/shy-/archive/2012/10/25/2739965.html