NOIP2009普及组 分数线划定
来源:互联网 发布:线切割锥度怎么编程 编辑:程序博客网 时间:2024/04/30 22:05
题目描述
世博会志愿者的选拔工作正在 A 市如火如荼的进行。为了选拔最合适的人才,A 市对
所有报名的选手进行了笔试,笔试分数达到面试分数线的选手方可进入面试。面试分数线根
据计划录取人数的150%划定,即如果计划录取m名志愿者,则面试分数线为排名第m*150%
(向下取整)名的选手的分数,而最终进入面试的选手为笔试成绩不低于面试分数线的所有
选手。
现在就请你编写程序划定面试分数线,并输出所有进入面试的选手的报名号和笔试成
绩。
解析
先排序然后算出150%的计划录取人数可得出分数线,用while算上同分的人即可
代码
const
maxn=5005;
var
a,b:array[0..maxn] of longint;
n,m,ans,i:longint;
procedure qsort(l,r:longint);
var
i,j,k,k1:longint;
begin
if l>=r then exit;
i:=l;j:=r;
k:=b[(l+r) div 2];
k1:=a[(l+r) div 2];
repeat
while (b[i]>k) or ((b[i]=k) and (a[i]<k1)) do inc(i);
while (b[j]<k) or ((b[j]=k) and (a[j]>k1)) do dec(j);
if i<=j then
begin
a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
inc(i);dec(j);
end;
until i>j;
qsort(l,j);qsort(i,r);
end;
begin
readln(n,m);
for i:=1 to n do
readln(a[i],b[i]);
qsort(1,n);
ans:=trunc(m*1.5);
while (b[ans]=b[ans+1]) and (ans+1<=n) do inc(ans);
writeln(b[ans],' ',ans);
for i:=1 to ans do
writeln(a[i],' ',b[i]);
end.
- NOIP2009普及组 分数线划定
- noip2009 分数线划定 (模拟)
- NOIP 2009 普及组 复赛 score 分数线划定
- 普及练习场 排序 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- NOIP2009普及组-细胞分裂
- 高考录取分数线划定
- 高考录取分数线划定
- 高性能网站架构之缓存篇—Redis集群搭建
- 在VMware虚拟机中手动安装VMware Tools
- Error: Flash Download failed - "Cortex-M4"
- 树莓派操作目录以及常用命令整理——树莓派入手常见问题
- 洛谷 P1583 魔法照片
- NOIP2009普及组 分数线划定
- django 安装与使用
- 苹果电脑怎么查看本机IP与MAC地址
- inline-block在360浏览器中失效的解决方法
- 想成为IT职场高手,你还需要这五个软技能!
- tomcat配置web 主页
- Linux 查看网络带宽是千兆还是万兆
- 防止过拟合的方法
- Openwrt实现免密码ssh登录服务器,免密码拷贝文件