【水】noip2010提高组 机器翻译

1307: 机器翻译

时间限制: 1 Sec  内存限制: 128 MB

题目描述

小晨的电脑上安装了一个机器翻译软件，他经常用这个软件来翻译英语文章。

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

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

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

【样例输入输出】

【输入输出样例1】

translate.in

3 7

1 2 1 5 4 4 1

translate.out

5

【输入输出样例 1 说明】

整个查字典过程如下：每行表示一个单词的翻译，冒号前为本次翻译后的内存状况：

空：内存初始状态为空。

1． 1：查找单词1 并调入内存。

2． 1 2：查找单词2 并调入内存。

3． 1 2：在内存中找到单词1。

4． 1 2 5：查找单词5 并调入内存。

5． 2 5 4：查找单词4 并调入内存替代单词1。

6． 2 5 4：在内存中找到单词4。

7． 5 4 1：查找单词1 并调入内存替代单词2。

共计查了5 次词典。

【输入输出样例2】

translate.in

2 10

8 824 11 78 11 78 11 78 8 264

translate.out

6

输入

输入文件名为translate.in，输入文件共2 行。每行中两个数之间用一个空格隔开。

第一行为两个正整数M 和N，代表内存容量和文章的长度。

第二行为N 个非负整数，按照文章的顺序，每个数（大小不超过1000）代表一个英文单词。文章中两个单词是同一个单词，当且仅当它们对应的非负整数相同。

输出

输出文件translate.out 共1 行，包含一个整数，为软件需要查词典的次数。

提示

对于10%的数据有M=1，N≤ 5。

对于100%的数据有0<M≤ 100，0<N ≤ 1000。

思路

没什么好说的。。范围水要求水。。都不需要循环队列，直接开N长度的数组也才一千。。。直接模拟即可

最卖萌的一件事是我以前用pascal交过这题。。还一次AC了。。今天反反复复搞了好几次。。。简直逗比

代码【C++】

#include<iostream>
#include<cstdlib>
#include<cstdio>
#include<cstring> 
using namespace std;
char str[1005];
int N,M,f,flag,ans;
int head,tail;
int inl[1005];
/*int hashing()
{
    int ret=2;
    for (int i=0;i<=strlen(str)-1;i++)
    {
        ret+=(i+1)*int(str[i]);
        ret%=49999;
    }
    return ret;
}*/
int main()
{
    cin>>M>>N;
    head=1;tail=0;ans=0;    //跪在这儿多少次。。
    for (int i=1;i<=N;i++)
    {
        cin>>f;
        flag=0;
        for (int j=head;j<=tail;j++)
        {
            if (f==inl[j]) {flag=1;break;} 
        }
        if (flag==0)
        {
            ans++;
            tail++;
            inl[tail]=f;
            while ((tail-head+1)>M) head++;
        }
    }
    cout<<ans<<endl;
    return 0;    
} 

代码【pas】（这个代码比较弱。。请无视）

program ss;
  var a:array[1..1005]of integer;
      m,n,i,j,last,keyfirst,x,keylast,ans:longint;
      bo:boolean;
//=======================================
function find(x:integer):boolean;//查找
  var i:integer;
      bo:boolean;
   begin
     bo:=false;
     for i:=keyfirst to keylast do
      if (a[i]=x)and(a[i]<>-1) then bo:=true;
     find:=bo;
   end;
//=======================================
procedure update(var x,keyfirst,keylast:longint);//更新
  begin
    if (keylast-keyfirst+1=m) then begin
                                    keyfirst:=keyfirst+1;
                                    keylast:=keylast+1;
                                    a[keylast]:=x;
                                   end
                              else begin
                                    keylast:=keylast+1;
                                    a[keylast]:=x;
                                   end;
  end;
//========================================
  begin
    readln(m,n);
    ans:=0;
    keyfirst:=1; keylast:=1;
    for i:=1 to 1005 do a[i]:=-1;
    i:=1;
    while i<=n do
     begin
       read(x); bo:=false;
       if (find(x)=false) then begin
                                inc(ans);
                                update(x,keyfirst,keylast);
                                bo:=true;
                               end;
       inc(i);
     end;
    writeln(ans);
  end.

结果

这题目到处都有。。随手放两个

（9018版）

（rqnoj版）