解题报告 poj 1298
2011-08-05 15:56
323 查看
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部分组成:
起始行:START
密码消息:由1到200个字符组成一行,表示凯撒发出的一条消息.
结束行:END
在最后一个数据集之后,是另一行:ENDOFINPUT
Output
每个数据集对应一行,是凯撒的原始消息。
Sample Input
Sample Output
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.
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部分组成:
起始行:START
密码消息:由1到200个字符组成一行,表示凯撒发出的一条消息.
结束行: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.
相关文章推荐
- POJ1298解题报告
- POJ 1298 解题报告
- POJ 2739(连续素数和) 解题报告
- poj解题报告——1740
- POJ2513解题报告
- poj 2532 stars解题报告
- POJ-1988-Cube Stacking 解题报告
- POJ 2155 解题报告
- POJ-1416 Shredding Company 解题报告
- POJ - 3026 Borg Maze解题报告(Kruskal+Bfs)
- POJ 2918 Tudoku解题报告(复杂模拟)
- poj解题报告——2419
- poj1002 487-3279 解题报告
- poj 1195 Mobile phones 解题报告
- poj 2176-Folding解题报告
- POJ 2373-Dividing the Path解题报告
- poj 3768 解题报告
- 北大POJ解题报告-1003 Hangover
- poj解题报告——1002
- poj1119解题报告