2014noip复赛模拟练习5(答案)

1、小白的名次题目描述兔子小白是位数学爱好者，有一次它参加了兔界里的数学比赛，成绩公布后，小白很想知道自己的成绩到底排第几，现在请你帮它编一个程序，要求输入一个成绩，就能知道相应的名次。注意：同分的按相同名次算，且只算一次。输入输入共三行。第一行：一个整数n（nmax then max:=x; ax:=1; end; read(y); i:=max; while (aiy) and (iy) do begin dec(i); if ai=1 then inc(s); end; writeln(s+1);end.小s同学出去旅游啦，小s同学住的宾馆每天早上都会提供丰盛的自助早餐，小s同学最爱吃的就是

2、现烤的切片面包。但是呢，宾馆的烤面包机很差，虽然说每次最多可以同时烤k块面包，但是只能烤好这些面包的一个面。小s要想吃上好吃的面包，就需要把面包的两面都烤好。小s同学一共想吃n块烤面包，但是小s每天都有好多景点需要游览，她不能在早餐上耽误很长时间，因此，小s同学希望你能告诉她最少需要使用几次烤面包机就可以烤好n块面包。输入输入数据仅有一行包含两个用空格隔开的正整数n和k(n, k =10)，n表示小s同学一共要烤n块面包，k表示宾馆的烤面包机一次最多可以同时烤好k块面包的一个面。输出仅有一行包含一个整数，表示小s同学至少要用多少次烤面包机。样例输入3 2样例输出3提示样例解释假设面包的两面分别

3、标记为A和B，小s同学第一次烤1号和2号面包的A面，第2次烤3号面包的A面和1号面包的B面，第3次烤2号和3号面包的B面，这是使用烤面包机次数最少的方案。数据范围10%的数据满足k=150%的数据满足k=4100%的数据满足n=10, k=10var n,k:integer;begin read(n,k); if nk的情况下总可以把面包分均匀，最后只剩下=k个一面的面包没拷世博会志愿者的选拔工作正在 A 市如火如荼的进行。为了选拔最合适的人才，A 市对所有报名的选手进行了笔试，笔试分数达到面试分数线的选手方可进入面试。面试分数线根据计划录取人数的150%划定，即如果计划录取m名志愿者，则面试

4、分数线为排名第m*150%（向下取整）名的选手的分数，而最终进入面试的选手为笔试成绩不低于面试分数线的所有选手。现在就请你编写程序划定面试分数线，并输出所有进入面试的选手的报名号和笔试成绩。【输入】输入文件名为 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）。数据保证选手的报名号各不相同。【输

5、出】输出文件 score.out。第一行，有两个整数，用一个空格隔开，第一个整数表示面试分数线；第二个整数为进入面试的选手的实际人数。从第二行开始，每行包含两个整数，中间用一个空格隔开，分别表示进入面试的选手的报名号和笔试成绩，按照笔试成绩从高到低输出，如果成绩相同，则按报名号由小到大的顺序输出。【输入输出样例】score.in score.out6 3 88 51000 90 1005 953239 88 2390 952390 95 1000 907231 84 1001 881005 95 3239 881001 88 【样例说明】m*150% = 3*150% = 4.5，向下取整后为

6、4。保证4 个人进入面试的分数线为88，但因为88有重分，所以所有成绩大于等于88 的选手都可以进入面试，故最终有5 个人进入面试。【分析】本题是一道典型的排序题。我们可以先将选手按成绩与序号进行多关键字排序（成绩优先）在将他们顺序输出前m*150%个，输出的时候注意一下重分的处理，因为有些选手成绩可能为0。先将由于数据量太小选排都可以在考场上拿高分。var a:array1.100,1000.9999 of longint; b:array1.100 of longint; i,j,k,l,m,n,x,y,max:longint;begin assign(input,score.in);re

7、set(input); assign(output,score.out);rewrite(output); readln(n,m); fillchar(a,sizeof(a),0); for i:=1 to n do begin readln(x,y); inc(ay,x); inc(by); end; m:=trunc(m*1.5); max:=0;k:=0; for i:=100 downto 1 do if max=bi then break; if ai,j=1 then begin writeln(j, ,i); inc(x); end; end; end; close(input)

8、;close(output);end.有形如：ax3+bx2+cx+d=0这样的一个一元三次方程。给出该方程中各项的系数(a，b，c，d均为实数)，并约定该方程存在三个不同实根(根的范围在-100至100之间)，且根与根之差的绝对值=1。要求由小到大依次在同一行输出这三个实根(根与根之间留有空格)，并精确到小数点后4位。 【分析】如果根与根之差的绝对值=1，则把-100到100划分成每对连续整数为上下界的区间，这个区间中不可能存在两个值，所以以此为上下界枚举每一个区间，然后采用二分法逐渐缩小根的范围，从而得到根的某精度的数值，连续找到3个数就可以了。Program fangchen;Var a

9、,b,c,d:real; i,k:integer; ans:array1.3of real;function f(x:real):real; begin exit(x*x*x*a+x*x*b+x*c+d);end;Procedure find(l,r:double); Var mid:double; Begin if (r-l=0)or(k=0) then begin inc(k); ansk:=l; end; exit; end; mid:=(l+r)/2; if (a*l*l*l+b*l*l+c*l+d)*(a*mid*mid*mid+b*mid*mid+c*mid+d)=0 then f

10、ind(l,mid) else find(mid,r); End;Beginreadln(a,b,c,d);k:=0;for i:=-100 to 99 do if (f(i)*f(i+1)=0)and(k3)then find(i,i+1);for i:=1 to k do write(ansi:0:2, );End.种树源程序名 trees.?（pas, c, cpp）可执行文件名 trees.exe输入文件名 trees.in输出文件名 trees.out【问题描述】 一条街的一边有几座房子。因为环保原因居民想要在路边种些树。路边的地区被分割成块，并被编号成1.N。每个部分为一个单位尺寸

11、大小并最多可种一棵树。每个居民想在门前种些树并指定了三个号码B，E，T。这三个数表示该居民想在B和E之间最少种T棵树。当然，BE，居民必须记住在指定区不能种多于区域地块数的树，所以TE-B+l。居民们想种树的各自区域可以交叉。你的任务是求出能满足所有要求的最少的树的数量。写一个程序完成以下工作：* 从trees.in读入数据* 计算最少要种树的数量和位置* 把结果写到trees.out【输入】第一行包含数据N，区域的个数(0N30000)；第二行包含H，房子的数目(0H5000)；下面的H行描述居民们的需要：B E T，0aj.e then begin tmp:=ai;ai:=aj;aj:=t

12、mp;end;fillchar(tree,sizeof(tree),false);for i:=1 to h do begin k:=0;for j:=ai.b to ai.e doif treej then inc(k);原先这个区间有多少棵树 if kai.t then 不够则从右开始多种 for j:=ai.e downto ai.e-ai.t+k+1 do treej:=true; end;min:=0; for i:=1 to n doif treei then inc(min); writeln(min); 计算并输出最少种树数，此答案唯一for i:=1 to n doif treei then write(i, ); 输出方案，本题存在明显的一题多解，方案可不唯一End.n总公司拥有高效生产设备M台，准备分给下属的N个公司。各分公司若获得这些设备，可以为国家提供一定的盈利。问：如何分配这M台设备才能使国家得到的盈利最大？求出最大盈利值。其中M=15，Nai,s then s:=j; inc(max,ai,s); end;writeln(max);End.n在一个n*m的棋盘内，一些格子里有垃圾要拾捡。现在有一个能捡垃圾的机器人从左上格子里出发，每次只能向右或者向下走。每次他到达一个点，就会自动把这个点内的垃圾拾掉。问：最多能拾多少垃圾。在最多的情况下，有多少种方案