简单的模拟——机器翻译

SSL 2098
洛谷 P1540 机器翻译
题目描述
小晨的电脑上安装了一个机器翻译软件，他经常用这个软件来翻译英语文章。

这个翻译软件的原理很简单，它只是从头到尾，依次将每个英文单词用对应的中文含义来替换。对于每个英文单词，软件会先在内存中查找这个单词的中文含义，如果内存中有，软件就会用它进行翻译；如果内存中没有，软件就会在外存中的词典内查找，查出单词的中文含义然后翻译，并将这个单词和译义放入内存，以备后续的查找和翻译。

假设内存中有M个单元，每单元能存放一个单词和译义。每当软件将一个新单词存入内存前，如果当前内存中已存入的单词数不超过M-1，软件会将新单词存入一个未使用的内存单元；若内存中已存入M个单词，软件会清空最早进入内存的那个单词，腾出单元来，存放新单词。

假设一篇英语文章的长度为N个单词。给定这篇待译文章，翻译软件需要去外存查找多少次词典？假设在翻译开始前，内存中没有任何单词。

分析
很简单，编程结构模拟词典做法：
立过程search（搜寻非搜索）
搜寻在词典里有无该单词存在
然后采用轮盘式储存，满了指针归一重新储存
很简单，经典的模拟（模拟词典运行）

var
  m,n,i,s,k:longint;
  a:array[1..1000]of longint;
  b:array[1..100]of longint;
function search(s:longint):longint;
var
  i:longint;
begin
  search:=0;
  for i:=1 to m do
   if b[i]=s then
    begin
      search:=1;
      exit;
    end;
end;

begin
  readln(m,n);
  for i:=1 to n do
   begin
     read(a[i]);
     if i<=m then b[i]:=1001;
   end;
  for i:=1 to n do
   begin
     if search(a[i])=0 then
      begin
        inc(k);
        inc(s);
        k:=(k-1)mod m+1;
        b[k]:=a[i];
      end;
   end;
  writeln(s);
end.