解题报告 poj 1298

 

1.        题目 poj  1298

Description

儒略•凯撒生活在充满危险和阴谋的年代，而其中最艰难的状况莫过于求得生存。于是他发明了最早的密码系统之一，用于军队的消息传递。
假设你是凯撒军团中的一名军官，需要把凯撒发送的消息破译出来，并提供给你的将军。消息加密的办法是：对消息原文中的每个字母，分别用该字母之后的第5个字母替换（例如：消息原文中的每个字母A都分别替换成字母F）。而你要获得消息原文，也就是要将这个过程反过来。

密码字母：A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
原文字母：V W X Y Z A B C D E F G H I J K L M N O P Q R S T U

注意：只有字母会发生替换，其他非字母的字符不变，并且消息原文的所有字母都是大写的。

Input

最多不超过100个数据集组成，每个数据集之间不会有空行，每个数据集由3部分组成：

1. 起始行：START
2. 密码消息：由1到200个字符组成一行，表示凯撒发出的一条消息.
3. 结束行：END

在最后一个数据集之后，是另一行：ENDOFINPUT

Output

每个数据集对应一行，是凯撒的原始消息。

Sample Input

START
NS BFW, JAJSYX TK NRUTWYFSHJ FWJ YMJ WJXZQY TK YWNANFQ HFZXJX
END
START
N BTZQI WFYMJW GJ KNWXY NS F QNYYQJ NGJWNFS ANQQFLJ YMFS XJHTSI NS WTRJ
END
START
IFSLJW PSTBX KZQQ BJQQ YMFY HFJXFW NX RTWJ IFSLJWTZX YMFS MJ
END
ENDOFINPUT

Sample Output

IN WAR, EVENTS OF IMPORTANCE ARE THE RESULT OF TRIVIAL CAUSES
I WOULD RATHER BE FIRST IN A LITTLE IBERIAN VILLAGE THAN SECOND IN ROME
DANGER KNOWS FULL WELL THAT CAESAR IS MORE DANGEROUS THAN HE

Source

South Central USA 2002

Translator

北京大学程序设计实习2007, Xie Di

 

 

2.        题目实质

当你领会题意（这是一个很难的过程）后，这个题就一白痴的模拟。

3.        算法

首先解释一下题目大意：将一段文本中的某一个字符做一定改变，使其变成另一段文本，改变规则为增加文本的 ASCII 码，并取其 mod 值。

一个小定理：一段文本中，出现频率最多的字母是 e （不要问我为什么，这是密码学家们的研究成果）。由此可以推断出每个字母向后移了多少位。

然后，求出了 t ，然后就是模拟了。

其实也可以一边求 t ，一边模拟。

4.        注意事项

 

注意标点符号。

而且这个题有一点非常的损：不过输入是小写还是大写，输出一定是大写。

然后，就是这样。

5.        时空复杂度

两个都是 O(n) ，不过常数差别有点大。

6.        程序代码

（Pascal）

{

ID: Lzy

PROB: code

Date: 2008-07-09

}

 

var

 tj:array['A'..'Z']of longint;

 rel:array['A'..'Z']of char;

 s:ansistring;

 change:string;

 i,j,root:longint;

 ch,std:char;

 

procedure print;

begin

for i:=1 to length(s) do begin

 if(s[i]>='A')and(s[i]<='Z')then write(rel[s[i]]) else write(s[i]);

end;

writeln;

end;

 

procedure main;

var max:longint;

begin

for i:=1 to 3 do begin

 for ch:='A' to 'Z' do change:=change+ch;

end;

for i:=1 to length(s) do begin

 if((s[i]>='a')and(s[i]<='z'))or((s[i]>='A')and(s[i]>='Z'))then s[i]:=upcase(s[i]);

 if(s[i]>='A')and(s[i]<='Z')then inc(tj[s[i]]);

end;

max:=0;

for ch:='A' to 'Z' do begin

 if(tj[ch]>max)then begin

  max:=tj[ch];

  std:=ch;

 end;

end;

rel[std]:='E'; root:=31;

for ch:=std downto 'A' do begin

 rel[ch]:=change[root];

 dec(root);

end;

root:=31;

for ch:=std to 'Z' do begin

 rel[ch]:=change[root];

 inc(root);

end;

print;

end;

 

begin

assign(input,'input.txt');reset(input);

assign(output,'output.txt');rewrite(output);

readln(s);

while(s<>'ENDOFINPUT')do begin

 if(s<>'START')and(s<>'END')then main;

 readln(s);

end;

close(input);

close(output);

end.