NOIP2010解题报告

NOIP2010题解

第一题：机器翻译

题意是有m个存储单元，每次在里面查找一个单词，如果没查到就要在词典里查，并将单词记录在存储单元内，但如果存储单词数超出了m，就必须将第一个单元内的单词删去，求查词典的次数。

水题，实际就是对队列的操作，稍微要注意的是,如果队列中已经插到了要找的单词，这个单词就不必再次插入队尾。

代码：

program translate;
var
  a:array[0..3000]of longint;
  n,i,m,j,x,t,h,ans,g:longint;
begin
  readln(m,n);
  h:=1; t:=0;
  for i:=1 to n do
   begin read(x); g:=1;
    for j:=h to t do
      if a[j]=x then begin g:=0; break; end;
    if g=1 then
     begin
       inc(ans);if t-h+1=m then h:=h+1;
       t:=t+1; a[t]:=x;
     end;
   end;
  writeln(ans);
end.

第二题：乌龟棋