求NOIP1995提高组复赛解题报告

Question

如题

Answer 1

【参考程序1】
program a2_1(input,output);
var
a:array[1..30000] of integer;
w,n,i,j,s:integer;
procedure qsort(h,t:integer);
var
p,i,j:integer;
begin
i:=h;
j:=t;
p:=a[i];
repeat
while (a[j]>p) and (j>i) do j:=j-1;
if j>i then
begin
a[i]:=a[j];
i:=i+1;
while (a[i]<p) and (i<j) do i:=i+1;
if i<j then
begin
a[j]:=a[i];
j:=j-1;
end;
end;
until i=j;
a[i]:=p;
i:=i+1;
j:=j-1;
if i<t then qsort(i,t);
if j>h then qsort(h,j);
end;
begin
assign(input,'group.in');
assign(output,'group.out');
reset(input);
rewrite(output);
readln(w);
readln(n);
for i:=1 to n do readln(a[i]);
qsort(1,n); {快速排序}
i:=1;
j:=n;
s:=0;
while i<=j do {贪心法}
begin
if i=j then
begin
s:=s+1;
break;
end;
if a[i]+a[j]<=w then
begin
i:=i+1;
j:=j-1;
s:=s+1;
end;
if a[i]+a[j]>w then
begin
s:=s+1;
j:=j-1;
end;
end;
writeln(s);
close(input);
close(output);
end.

【深入思考】
快速排序的程序比较难编，是否能有一种比较好编得排序方法呢？答案是肯定的。设p数组的下标为5至200，每读入一个数字x，就将p[x]加1，这样数字全部读入后就是有序的了，效率甚至比快速排序还高。这样的话贪心部分也要有所改变。

【参考程序2】
program a2_2(input,output);
var
p:array[5..200] of integer;
x,i,w,n,j,s:integer;
begin
assign(input,'group.in');
assign(output,'group.out');
reset(input);
rewrite(output);
readln(w);
readln(n);
for i:=5 to 200 do p[i]:=0; {数组清0}
for i:=1 to n do {读入数据}
begin
readln(x);
p[x]:=p[x]+1;
end;
i:=5;
j:=200;
s:=0;
while i<=j do {贪心法}
begin
while p[i]=0 do i:=i+1; {找到不为空的数据}
while p[j]=0 do j:=j-1;
if i>j then break;
if i=j then {处理i=j的情况}
if i*2<=w then
begin
while p[i]>=2 do
begin
p[i]:=p[i]-2;
s:=s+1;
end;
s:=s+p[i];
end
else
s:=s+p[i];
if i+j<=w then {处理i+j<=w的情况}
if p[i]>p[j] then
begin
s:=s+p[j];
p[i]:=p[i]-p[j];
p[j]:=0;
end
else
begin
s:=s+p[i];
p[j]:=p[j]-p[i];
p[i]:=0;
end;
if i+j>w then {处理i+j>w的情况}
begin
s:=s+p[j];
p[j]:=0;
end;
end;
writeln(s);
close(input);
close(output);
end.

3、守望者的逃离
(escape.pas/c/cpp)
【问题描述】
恶魔猎手尤迪安野心勃勃，他背叛了暗夜精灵，率领深藏在海底的娜迦族企图叛变。守望者在与尤迪安的交锋中遭遇了围杀，被困在一个荒芜的大岛上。为了杀死守望者，尤迪安开始对这个荒岛施咒，这座岛很快就会沉下去。到那时，岛上的所有人都会遇难。守望者的跑步速度为17m/s，以这样的速度是无法逃离荒岛的。庆幸的是守望者拥有闪烁法术，可在1s内移动60m,不过每次使用闪烁法术都会消耗魔法值10点。守望者的魔法值恢复的速度为4点/s，只有处在原地休息状态时才能恢复。
现在已知守望者的魔法初值M，他所在的初始位置与岛的出口之间的距离S,岛沉没的时间T。你的任务写写一个程序帮助守望者计算如何在最短的时间内逃离荒岛，若不能逃出，则输出守望者在剩下的时间能走的最远距离。注意：守望者跑步、闪烁或休息活动均以秒(s)为单位，且每次活动的持续时间为整数秒。距离的单位为米(m)。

【输入】
在输入文件escape.in仅一行，包括空格隔开的三个非负整数M,S,T。

【输出】
在输出文件escape.out包括两行：
第1行为字符串“Yes”或“No”（区分大小写），即守望者是否能逃离荒岛。
第2行包含一个整数。第一行为“Yes”（区分大小写）时表示守望者逃离荒岛的最短时间；第一行为“No”（区分大小写）时表示守望者能走的最远距离。

【输入输出样例1】
escape.in escape.out
39 200 4 No
197

【输入输出样例1】
escape.in escape.out
36 255 10 Yes
6

Answer 2

1．奖学金
(scholar.pas／c／cpp)
【问题描述】
某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩：语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学排在前面，这样，每个学生的排序是唯一确定的。
任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前5名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据(每行输出两个数：学号、总分)是：
7 279
5 279
这两行数据的含义是：总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是279(总分等于输入的语文、数学、英语三科成绩之和)，但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是：
5 279
7 279
则按输出错误处理，不能得分。

【输入】
输入文件scholar.in包含行n+1行：
第l行为一个正整数n，表示该校参加评选的学生人数。
第2到年n+l行，每行有3个用空格隔开的数字，每个数字都在0到100之间。第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为1～n(恰好是输入数据的行号减1)。
所给的数据都是正确的，不必检验。

【输出】
输出文件scholar.out共有5行，每行是两个用空格隔开的正整数，依次表示前5名学生的学号和总分。

【输入输出样例l】
scholar.in scholar.out
6
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98 6 265
4 264
3 258
2 244
1 237

【输入输出样例2】
scholar.in scholar.out
8
80 89 89
88 98 78
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98 8 265
2 264
6 264
1 258
5 258

【限制】
50％的数据满足：各学生的总成绩各不相同
100％的数据满足：6<=n<=300

【试题分析】
简单的排序。因为n<=300，所以选择排序不会超时。
存储方面只需存储三个数：学好、语文成绩和总分。

【参考程序】
program a1(input,output);
var
n,x,y,z,i,j:integer;
a:array[1..300,1..3] of integer;
procedure swap(var a,b:integer); {交换过程}
var
s:integer;
begin
s:=a;
a:=b;
b:=s;
end;
begin
assign(input,'scholar.in');
assign(output,'scholar.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
readln(x,y,z);
a[i,1]:=i;
a[i,2]:=x;
a[i,3]:=x+y+z;
end;
for i:=1 to n-1 do {选择排序}
for j:=i+1 to n do
if (a[i,3]<a[j,3]) or ((a[i,3]=a[j,3]) and (a[i,2]<a[j,2])) or ((a[i,1]>a[j,1]) and (a[i,3]=a[j,3]) and (a[i,2]=a[j,2])) then
begin
swap(a[i,1],a[j,1]);
swap(a[i,2],a[j,2]);
swap(a[i,3],a[j,3]);
end;
for i:=1 to 5 do
writeln(a[i,1],' ',a[i,3]);
close(input); {文件不要忘记关闭}
close(output);
end.

2．纪念品分组
(group.pas／c／cpp)
【题目描述】
元旦快到了，校学生会让乐乐负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得的纪念品价值相对均衡，他要把购来的纪念品根据价格进行分组，但每组最多只能包括两件纪念品，并且每组纪念品的价格之和不能超过一个给定的整数。为了保证在尽量短的时间内发完所有纪念品，乐乐希望分组的数目最少。
你的任务是写一个程序，找出所有分组方案中分组数最少的一种，输出最少的分组数目。

【输入】
输入文件group.in包含n+2行：
第1行包括一个整数w，为每组纪念品价格之和的上限。
第2行为一个整数n，表示购来的纪念品的总件数。
第3～n+2行每行包含一个正整数pi(5<=pi<=w)，表示所对应纪念品的价格。

【输出】
输出文件group.out仅一行，包含一个整数，即最少的分组数目。

【输入输出样例】
group.in group.out
100
9
90
20
20
30
50
60
70
80
90 6

【限制】
50％的数据满足：l<=n<=15
100％的数据满足：1<=n<=30000，80<=w<=200

【试题分析】
贪心法，先排序，然后按以下贪心策略：
设s为所需的组数。i,j为两个指针，开始时指向头和尾。
1． 如果a[i]+a[j]<=w，s=:s+1，i:=i+1，j:=j-1。
2． 如果a[i]+a[j]>w，s:=s+1，j:=j-1。
因为n<=300000,所以用选择排序可能会超时，最好用快速排序。