第一题——电梯里的爱情
题目描述
细心的同事发现,小x最近喜欢乘电梯上上下下,究其原因,也许只有小x自己知道:在电梯里经常可以遇到他心中的女神。
电梯其实是个很暧昧的地方,只有在电梯里,小x才有勇气如此近距离接近女神。可是,他们的谈话也仅仅限于今天天气不错啊,或是你吃了吗之类的。往往在对方微笑点头后就再次陷入难堪的沉默之中。
于是,小x便在陪伴女神的同时,也关注着电梯中显示的楼层数字,并且他注意到电梯每向上运行一层需要6秒钟,向下运行一层需要4秒钟,每开门一次需要5秒(如果有人到达才开门),并且每下一个人需要加1秒。
特别指出,电梯最开始在0层,并且最后必须再回到0层才算一趟任务结束。假设在开始的时候已知电梯内的每个人要去的楼层,你能计算出完成本趟任务需要的总时间吗?
输入
输入第一行为一个正整数 C,表示有 C 组测试数据。
接下来 C 行,每行包含一组数据,每组数据首先是一个正整数 N,表示本次乘坐电梯的人数,然后是 N 个正整数 Ai,分别表示大家要去的楼层。
输出
请计算并输出完成一趟任务需要的时间,每组数据输出占一行。
样例输入
2
4 2 4 3 2
3 10 10 10
样例输出
59
108
数据范围限制
其中,C<=100,N<=15,Ai<=100。
将去每层的人统计出来,然后将去到每层和下人的时间统计出来。最后注意将电梯降到0楼。
代码如下:
var n,i,max,j,l,m,x:longint;
a:array[0..100]of longint;
begin
assign(input,'service.in');
assign(output,'service.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
max:=0;
fillchar(a,sizeof(a),#0);
read(m);
for j:=1 to m do begin read(x); inc(a[x]); end;
readln;
l:=0;
for j:=1 to 100 do
if a[j]<>0 then begin max:=max+6*(j-l)+5+a[j]; l:=j; end;
max:=max+4*l;
writeln(max);
end;
close(input);
close(output);
end.
第二题——最佳裁判
题目描述
过去的2012年对小x来说是很悲催的一年,失恋了12 次,每次都要郁闷1个月。好在小x是个体育迷,在最痛苦的时候,他常常用观看各种体育节目来麻醉自己,比如伦敦奥运会期间,小x就常常在周末邀上一群单身同事聚在自己的蜗居,一边畅饮啤酒,一边吹牛。
小x最喜欢看的是跳水,主要原因也是因为这个项目有中国人参加,而且中国队员获胜的几率很大,一般不会再给自己添堵,不然何谈看体育疗情伤呢。跳水项目的一个重要环节就是裁判打分,小x他们有时候会觉得某个裁判不公平,是不是有意在压中国队员的分数。于是每当一个队员跳水完毕,他们几个也像电视上的裁判那样给队员打分,并且规定,谁的分数和最终得分最接近谁就是他们当中的最佳裁判,现场奖励啤酒一杯!
其中,最终得分是这样计算的:N 个人打分,去掉一个最高分,去掉一个最低分,然后剩余分数相加,再除以 N-2 即为最终得分。凭借“看体育疗情伤”而练就的专业体育知识,小x几乎每局必胜,这一夜,小x注定要烂醉如泥了......
输入
输入包含多组测试数据。
每组测试数据首先是一个整数 N,表示裁判的人数,然后接着是 N 个实数,表示 N 个裁判的打分 Pi。
N 为 0 时表示结束输入。
输出
请计算并输出最佳裁判的编号,每组数据输出占一行。若有多人并列最佳裁判,只要求输出编号最小的那个。
特别说明:裁判编号按照打分的顺序从 1 开始,依次类推,最后一人编号为 N。
样例输入
5 8.3 9.2 8.7 8.9 9.0
0
样例输出
4
数据范围限制
其中,5 <= N <= 20,0 <= Pi <= 10。
我们先求出将每一个裁判的打分*10(为了避免精度问题)。然后求出最终分数,找出与最终分数相差最小的裁判打分。
代码如下:
var n,i,l:longint;
nmax,min,max:real;
a:array[1..20]of real;
begin
assign(input,'judgers.in');
assign(output,'judgers.out');
reset(input);
rewrite(output);
repeat
read(n);
fillchar(a,sizeof(a),#0);
if n=0 then break;
max:=0;
nmax:=0;
min:=maxlongint;
for i:=1 to n do
begin
read(a[i]);
a[i]:=a[i]*10;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
nmax:=a[i]+nmax;
end;
readln;
l:=0;
nmax:=(nmax-max-min)/(n-2);
min:=maxlongint;
for i:=1 to n do
if abs(nmax-a[i])<min then
begin
min:=abs(nmax-a[i]);
l:=i;
end;
writeln(l);
until n=0;
close(input);
close(output);
end.
第三题——临时工计划
题目描述
俗话说一分钱难倒英雄汉,高中几年下来,小x已经深深明白了这个道理,因此,新年开始存储一年的个人资金已经成了习惯,不过自从大学之后他不好意思再向大人要压岁钱了,只能把唯一的希望放到自己身上。可是由于时间段的特殊性和自己能力的因素,只能找到些零零碎碎的工作,小x想知道怎么安排自己的假期才能获得最多的工资。
已知小x一共有 m 天的假期,每天的编号从 1 到 m,一共有 n 份可以做的工作,每份工作都知道起始时间 s,终止时间 e 和对应的工资 c,每份工作的起始和终止时间以天为单位(即天数编号),每份工作必须从起始时间做到终止时间才能得到总工资 c,且不能存在时间重叠的工作。比如,第 1 天起始第 2 天结束的工作不能和第 2 天起始,第 4 天结束的工作一起被选定,因为第 2 天小x只能在一个地方工作。
现在,小x想知道怎么安排才能在假期的 m 天内获得最大的工资数(第 m+1 天小x必须返回学校,m 天以后起始或终止的工作是不能完成的)。
输入
第一行是 2 个正整数:假期时间 m 和可做的工作数 n;接下来 n 行分别有 3 个正整数,描述对应的 n 个工作的起始时间 s,终止时间 e,总工资 c。
输出
输出小x可获得的最高工资数。
样例输入
10 5
1 5 100
3 10 10
5 10 100
1 4 2
6 12 266
样例输出
102
数据范围限制
其中,1<=T<=1000,9< m<=100,0< n<=1000,s<=100, e<=100, s<=e,c<=10000。
此题有两种方法,一种是暴搜,一种是dp
①将开始时间排序,然后。。。果断码一个dfs,只有选和不选两种情况,选要判断完成的时间是否小于小X要上学的时间。
②dp,听说有人用dp做对了。dp动态转换方程为if i>=e[j] then f[i]:=max(f[i],f[b[j]-1]+s[j])。
①代码如下:
var i,n,k,max:longint;
s,e,c:array[0..1000]of longint;
procedure qsort(l,r:longint);
var i,j,mid,m:longint;
begin
if l>r then exit;
i:=l; j:=r; mid:=s[(l+r) div 2]; m:=e[(l+r) div 2];
repeat
while (s[i]<mid)or(s[i]=mid)and(e[i]<m) do inc(i);
while (s[j]>mid)or(s[j]=mid)and(e[j]>m) do dec(j);
if i<=j then
begin
s[0]:=s[i]; s[i]:=s[j]; s[j]:=s[0];
e[0]:=e[i]; e[i]:=e[j]; e[j]:=e[0];
c[0]:=c[i]; c[i]:=c[j]; c[j]:=c[0];
inc(i);
dec(j);
end;
until i>j;
qsort(l,j);
qsort(i,r);
end;
procedure dfs(l,ans,m:longint);
begin
if ans>max then max:=ans;
if m>n then exit;
if l>k then exit;
dfs(l+1,ans,m);
if (m<=s[l])and(n>=e[l]) then dfs(l+1,ans+c[l],e[l]+1);
end;
begin
assign(input,'partime.in');
assign(output,'partime.out');
reset(input);
rewrite(output);
readln(n,k);
for i:=1 to k dO readln(s[i],e[i],c[i]);
qsort(1,k);
dfs(1,0,1);
write(max);
close(input);
close(output);
end.
②代码如下:
uses math;
var
i,j,n,m:longint;
b,e,s:array[1..1000] of longint;
f:array[0..100] of longint;
begin
assign(input,'partime.in');reset(input);
assign(output,'partime.out');rewrite(output);
read(m,n);
for i:=1 to n do
read(b[i],e[i],s[i]);
for i:=1 to m do
begin
f[i]:=f[i-1];
for j:=1 to n do
begin
if i>=e[j] then f[i]:=max(f[i],f[b[j]-1]+s[j]);
end;
end;
write(f[m]);
close(input);
close(output);
end.
第四题——捉迷藏
题目描述
小x的妈妈生了三个孩子,老大叫大明, 老二叫二明, 老三…, 老三自然就叫小x了。
一天,小x的妈妈带兄弟三人去公园玩耍,公园里面树木很多,有很多地方可以藏身, 于是他们决定玩捉迷藏。经过几轮的猜拳后,第一轮是小x来找其他两个人。现在小x想知道,在规定时间内,自己是否可以找到所有的人,现在他想请你来帮忙计算一下。
为了简单起见,把公园看成是n行m列的矩阵,其中‘S’表示小x,’D’表示大明,‘E’表示二明,‘X’表示障碍物,‘.’表示通路。这里,我们把发现定义为,可以直接看到对方,也就是说两个人在同一行或者同一列,并且中间没有障碍物或者没有其他人就可以看到对方。并且假 设,大明,二明藏好以后就不会再改变位置,小x每个单位时间可以从当前的位置走到相邻的四个位置之一,并且不会走出公园。
输入
测试数据第一行是一个正整数T,表示有T组测试数据。
每一组测试数据首先是三个正整数n,m,t,分别表示行数、列数和规定的时间,接下来n行,每行m个上述的字符,并且保证有且只有一个‘S’,一个‘E’,一个‘D’。
输出
每组先输出一行Case c:(c表示当前的组数,从1开始计数);
接下来一行,如果小明可以在规定时间内找到所有的人,则输出最少需要的时间,否则输出-1。
样例输入
3
5 6 3
XXD…
….E.
….X.
….S.
……
5 6 3
XDX…
….E.
……
….S.
……
5 6 8
XXDX..
.XEX..
……
….S.
……
样例输出
Case 1:
-1
Case 2:
3
Case 3:
-1
数据范围限制
其中,T < 200,3 <= n, m <= 100,0 <= t <= 100。
这题先将可以看到大哥和二哥的位置全部标记起来(注意隔人或有障碍物看不到)。然后用bfs枚举每一个位置,如果时间不超过t,而且大哥和二哥都看到了,就输出。
代码如下:
const dx:array[1..4,1..2]of longint=((1,0),(-1,0),(0,1),(0,-1));
var t,i,j,l,n,m,time,k,q1,q2,q3,x,y,x1,x2,y1,y2:longint;
p:boolean;
c,f:array[1..100,1..100,0..2]of boolean;
a:array[0..101,0..101]of char;
state:array[1..10000,1..3]of longint;
begin
assign(input,'seek.in');
assign(output,'seek.out');
reset(input);
rewrite(output);
readln(t);
for l:=1 to t do
begin
readln(n,m,k);
fillchar(c,sizeof(c),false);
fillchar(f,sizeof(f),false);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i,j]);
if a[i,j]='E' then
begin
x1:=i;
y1:=j;
end;
if a[i,j]='D' then
begin
x2:=i;
y2:=j;
end;
if a[i,j]='S' then
begin
q1:=1;
q2:=1;
state[1,1]:=i;
state[1,2]:=j;
state[1,3]:=0;
a[i,j]:='.';
end;
end;
readln;
end;
writeln('Case ',l,':');
for i:=1 to 2 do
begin
x:=x1-1;
y:=y1;
while a[x,y]='.' do
begin
f[x,y,i]:=true;
dec(x);
end;
x:=x1+1;
y:=y1;
while a[x,y]='.' do
begin
f[x,y,i]:=true;
inc(x);
end;
x:=x1;
y:=y1-1;
while a[x,y]='.' do
begin
f[x,y,i]:=true;
dec(y);
end;
x:=x1;
y:=y1+1;
while a[x,y]='.' do
begin
f[x,y,i]:=true;
inc(y);
end;
x1:=x2;
y1:=y2;
end;
for i:=1 to 2 do
if f[state[1,1],state[1,2],i]=true then inc(state[1,3],i);
if state[1,3]=3 then
begin
writeln(0);
continue;
end;
p:=false;
time:=0;
c[state[1,1],state[1,2],state[1,3]]:=true;
while (q1<=q2)and(time<k) do
begin
inc(time);
q3:=q2+1;
for i:=q1 to q2 do
begin
for j:=1 to 4 do
begin
x:=dx[j,1]+state[i,1];
y:=dx[j,2]+state[i,2];
if (x>0)and(y>0)and(x<=n)and(y<=m)and(a[x,y]='.') then
begin
x2:=state[i,3];
if (f[x,y,1]=true)and(1<>x2) then x2:=x2+1;
if (f[x,y,2]=true)and(x2<2) then x2:=x2+2;
if x2=3 then
begin
p:=true;
break;
end;
if c[x,y,x2]=false then
begin
inc(q2);
state[q2,1]:=x;
state[q2,2]:=y;
state[q2,3]:=x2;
c[x,y,x2]:=true;
end;
end;
end;
if p=true then break;
end;
if p=true then break;
q1:=q3;
end;
if p then writeln(time) else writeln(-1);
end;
close(input);
close(output);
end.