1.机器翻译
(translate.pas/c/cpp)
【问题描述】
小晨的电脑上安装了一个机器翻译软件,他经常用这个软件来翻译英语文章。
这个翻译软件的原理很简单,它只是从头到尾,依次将每个英文单词用对应的中文含义来替换。对于每个英文单词,软件会先在内存中查找这个单词的中文含义,如果内存中有,软件就会用它进行翻译;如果内存中没有,软件就会在外存中的词典内查找,查出单词的中文含义然后翻译,并将这
假设内存中有 M 个单元,每单元能存放一个单词和译义。每当软件将一个新单词存入内存前,如果当前内存中已存入的单词数不超过 M-1,软件会将新单词存入一个未使用的内存单元;若内存中已存入 M 个单词,软件会清空最早进入内存的那个单词,腾出单元来,存放新单词。
假设一篇英语文章的长度为 N个单词。给定这篇待译文章,翻译软件需要去外存查找多少次词典?假设在翻译开始前,内存中没有任何单词。
【输入】
输入文件名为 translate.in,输入文件共 2 行。每行中两个数之间用一个空格隔开。
第一行为两个正整数 M和 N,代表内存容量和文章的长度。
第二行为 N 个非负整数,按照文章的顺序,每个数(大小不超过 1000)代表一个英文单词。文章中两个单词是同一个单词,当且仅当它们对应的非负整数相同。
输出文件 translate.out 共1行,包含一个整数,为软件需要查词典的次数。
【输入输出样例 1】
| |
| |
整个查字典过程如下:每行表示一个单词的翻译,冒号前为本次翻译后的内存状况:
空:内存初始状态为空。
1. 1:查找单词1 并调入内存。
2. 1 2:查找单词 2 并调入内存。
3. 1 2:在内存中找到单词 1。
4.
5.
6.
7.
共计查了 5次词典。
【输入输出样例 2】
| |
| |
【数据范围】
对于 10%的数据有 M=1,N≤5。
对于 100%的数据有 0
代码
var m,n,i,j,k,p,ans,x:longint;
a:array[1..100000] of longint;
begin
assign(input,'translate.in');
reset(input);
assign(output,'translate.out');
rewrite(output);
readln( m , n );
p:=0;
ans:=0;
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
read(x);
k:=0;
for j:=1 to p do
if a[j] = x then
begin
k:=j;
break;
end;
if k = 0 then
begin
inc( p );
if p>m then
begin
for j:=2 to m do a[j-1]:=a[j];
p:=m;
end;
a[p]:=x;
inc( ans );
end;
end;
writeln( ans );
close(input);
close(output);
end.
2.乌龟棋
(tortoise.pas/c/cpp)
【问题描述】
的起点,第 N格是终点,游戏要求玩家控制一个乌龟棋子从起点出发走到终点。
乌龟棋中 M 张爬行卡片,分成 4 种不同的类型(M 张卡片中不一定包含所有 4 种类型的卡片,见样例),每种类型的卡片上分别标有 1、2、3、4 四个数字之一,表示使用这种卡片后,乌龟棋子将向前爬行相应的格子数。游戏中,玩家每次需要从所有的爬行卡片中选择一张之前没有使用过的爬行卡片,控制乌龟棋子前进相应的格子数,每张卡片只能使用一次。游戏中,乌龟棋子自动获得起点格子的分数,并且在后续的爬行中每到达一个格子,就得到格子相应的分数。玩家最终游戏得分就是乌龟棋子从起点到终点过程中到过的所有格子的分数总和。
很明显,用不同的爬行卡片使用顺序会使得最终游戏的得分不同,小明想要找到一种卡片使用顺序使得最终游戏得分最多。
现在,告诉你棋盘上每个格子的分数和所有的爬行卡片,你能告诉小明,他最多能得到多少分吗?
【输入】
输入文件名 tortoise.in。输入文件的每行中两个数之间用一个空格隔开。
第 1 行2 个正整数 N和 M,分别表示棋盘格子数和爬行卡片数。
第 2 行 N个非负整数,a1, a2,
第 3 行M 个整数,b1,b2, ……, bM,表示 M 张爬行卡片上的数字。
【输出】
输出文件名 tortoise.out。
输出只有 1行,1 个整数,表示小明最多能得到的分数。
【输入输出样例 1】
| |
| |
【输入输出样例 1 说明】
小明使用爬行卡片顺序为 1,1,3,1,2,得到的分数为 6+10+14+8+18+17=73。注意,
由于起点是 1,所以自动获得第 1 格的分数 6。
【输入输出样例 2】
| |
| |
代码
program tortoise; var f:array[-1..40,-1..40,-1..40,-1..40]of longint; a:array[1..400]of longint; b:array[1..4]of longint; n,m,i,j,k,l,o,p:longint;
function max(a,b:longint):longint; begin if(a>b)then exit(a) else exit(b); end; begin assign(input,'tortoise.in'); reset(input); assign(output,'tortoise.out'); rewrite(output); readln(n,m); for i:=1 to n do read(a[i]); for i:=1 to m do begin read(j); inc(b[j]); end; for i:=0 to b[1] do for j:=0 to b[2] do for k:=0 to b[3] do for l:=0 to b[4] do begin f[i,j,k,l]:=max(f[i-1,j,k,l],f[i,j-1,k,l]); f[i,j,k,l]:=max(f[i,j,k,l],f[i,j,k-1,l]); f[i,j,k,l]:=max(f[i,j,k,l],f[i,j,k,l-1]); f[i,j,k,l]:=a[i+j*2+k*3+l*4+1]+f[i,j,k,l]; end; writeln(f[b[1],b[2],b[3],b[4]]); close(input); close(output); end. 【问题描述】
【数据范围】
代码: type bian=record x,y,d:longint; end; //============================================================================== var f:Array[0..20000] of longint; h:array[0..20000] of longint; map:array[0..100000] of bian; n,m:longint; //============================================================================== procedure qsort(l,r:longint); var i,j,mid:longint; t:bian; begin i:=l; j:=r; mid:=map[(l+r) div 2].d; repeat while map[i].d>mid do inc(i); while map[j].d<mid do dec(j); if i<=j then begin t:=map[i]; map[i]:=map[j]; map[j]:=t; inc(i); dec(j); end; until i>j; if i<r then qsort(i,r); if l<j then qsort(l,j); end; //============================================================================== procedure init; var i:longint; begin readln(n,m); fillchar(h,sizeof(h),0); for i:=1 to m do readln(map[i].x,map[i].y,map[i].d); for i:=1 to n do f[i]:=i; qsort(1,m); // for i:=1 to m do // writeln(map[i].d); end; //============================================================================== function get(t:longint):longint; begin if f[t]=t then exit(t); f[t]:=get(f[t]); exit(f[t]); end; //============================================================================== procedure union(t1,t2:longint); var xx,yy:longint; begin xx:=get(t1); yy:=get(t2); if xx<>yy then f[xx]:=yy; end; //============================================================================== procedure main; var tx,ty,i,j:longint; begin for i:=1 to m do begin tx:=get(map[i].x); ty:=get(map[i].y);
if tx=ty then{如果同为一个监狱(并查集)} begin writeln(map[i].d); close(input); close(output); halt; end;
if (h[map[i].x]=0) and (h[map[i].y]=0) then{如果都没有敌人就互为敌人} begin h[map[i].x]:=map[i].y; h[map[i].y]:=map[i].x; continue; end;
if h[map[i].x]=0 then{如果x没敌人,就把y当x的敌人} begin h[map[i].x]:=map[i].y; end;
if h[map[i].y]=0 then{如果y没敌人,就把x当y的敌人} begin h[map[i].y]:=map[i].x; end; union(h[map[i].x],map[i].y);{合并两个并查集} union(h[map[i].y],map[i].x); end; writeln(0); end; //============================================================================== begin assign(input,'prison.in'); reset(input); assign(output,'prison.out'); rewrite(output); init; main; close(input); close(output); end.
【样例 2 说明】 代码 |
const h:array[1..4,1..2] of longint=((1,0),(-1,0),(0,-1),(0,1));
var
col,a:array[0..501,0..501] of longint;
f:array[0..500] of longint;
c:array[0..500,1..2] of longint;
d:array[0..500000] of record x,y:longint;end;
n,m,i,j,color:longint;
function min(a,b:longint):longint; begin if a<b then exit(a) else exit(b); end;
procedure Judge;
var i,j:longint;
procedure bfs(x,y:integer);
var i,t,f:longint;
begin
t:=1;f:=1;d[t].x:=x;d[t].y:=y;col[x,y]:=color;
repeat
for i:=1 to 4 do
if col[d[f].x+h[i,1],d[f].y+h[i,2]]=0 then
if a[d[f].x+h[i,1],d[f].y+h[i,2]]<a[d[f].x,d[f].y] then
begin
inc(t);
d[t].x:=d[f].x+h[i,1]; d[t].y:=d[f].y+h[i,2];
col[d[t].x,d[t].y]:=color;
end;
inc(f);
until f>t;
end;
begin
for i:=0 to n+1 do begin a[i,0]:=maxlongint; a[i,m+1]:=maxlongint; end;
for i:=0 to m+1 do begin a[0,i]:=maxlongint; a[n+1,i]:=maxlongint; end;
for color:=1 to m do bfs(1,color);
j:=0;
for i:=1 to m do
if col[n,i]=0 then inc(j);
if j>0 then begin writeln(0); writeln(j); close(input);close(output);halt; end;
end;
procedure floodfill;
procedure bfs(x,y:integer);
var i,t,f:longint;
begin
t:=1;f:=1;d[t].x:=x;d[t].y:=y;col[x,y]:=color;
repeat
for i:=1 to 4 do
if col[d[f].x+h[i,1],d[f].y+h[i,2]]=0 then
if a[d[f].x+h[i,1],d[f].y+h[i,2]]>a[d[f].x,d[f].y] then
begin
inc(t);
d[t].x:=d[f].x+h[i,1]; d[t].y:=d[f].y+h[i,2];
col[d[t].x,d[t].y]:=color;
end;
inc(f);
until f>t;
end;
var i,j:longint;
begin
for i:=0 to n+1 do begin a[i,0]:=0; a[i,m+1]:=0; end;
for i:=0 to m+1 do begin a[0,i]:=0; a[n+1,i]:=0; end;
fillchar(col,sizeof(col),0);
for color:=1 to m do if col[n,color]=0 then bfs(n,color);
for i:=1 to m do c[i,1]:=col[1,i];
fillchar(col,sizeof(col),0);
for color:=m downto 1 do if col[n,color]=0 then bfs(n,color);
for i:=1 to m do c[i,2]:=col[1,i];
end;
procedure DP;
var i,j:longint;
begin
f[0]:=0;
for i:=1 to m do
begin
f[i]:=maxint;
for j:=1 to m do
if (c[j,2]>=i)and(c[j,1]<=i) then
f[i]:=min(f[i],f[c[j,1]-1]+1);
end;
writeln(1);
writeln(f[m]);
end;
BEGIN
assign(input,'flow.in');reset(input);
assign(output,'flow.out');rewrite(output);
read(n,m);
for i:=1 to n do
for j:=1 to m do read(a[i,j]);
judge;
floodfill;
DP;
close(input);close(output);
END.
NOIP2010解题报告 首先对这次比赛做一个总体分析。第一题我觉得没什么好说的,作为一道简单题还是挺简单的。第二题是动态规划,朴素的做法可以得到30-50分,如果发现了方程中的一个小优化并且稳稳当当地作对,可以拿到满分。第三题暴力搜索可以拿到30分。如果想得到满分,首先要想到二分答案,可能多数同学没有想到这个方向上,再验证是否是二分图,通过BFS实现,就可以拿到满分了。第三题还有一个并查集的方法也可以做。第四题确实较难,首先通过BFS判断“无解”的情况,可以拿到30分,而对于有解的情况,需要仔细分析,得出一个“重要结论”,之后用到BFS和Dp可以拿到满分。 | |
|
| 如果最后最小的最大冲突为ans。对于一个在区间[0, ans)的数k,一定不满足命题“所有冲突值都小于等于k”,而对于一个在区间[ans, 1000000000]的数k,一定满足命题“所有冲突值都小于等于k”。这就好比是一个猜价格的游戏,你猜一个价格,我告诉你高了还是低了,如果高了你就往低猜,如果低了你就往高猜。而这道题是你猜一个k,根据它满足命题还是不满足命题决定再大点还是再小点。当然,最快的方法就是在区间[0, 1000000000]上二分这个k。 |