NOIP2009提高组解题报告
1
[原创]NOIP2009提高组解题报告{继续供大牛BS}
2009-11-21 10:46 P.M.
第一题：
水题，按照题目要求去枚举。
注意，同一个字母加密后的字母是一样的，加密后一样的字母原字母也是一样的。 var
s1,s2,s3:string;
a,b:array['A'..'Z']of char;
i:longint;
c:char;
procedure main;
begin
readln(s1);
readln(s2);
readln(s3);
fillchar(a,sizeof(a),' ');
fillchar(b,sizeof(b),' ');
for i:=1 to length(s1) do
if ((a[s1[i]]<>' ')and(a[s1[i]]<>s2[i]))
or((b[s2[i]]<>' ')and(b[s2[i]]<>s1[i])) then
begin
writeln('Failed');
exit;
end
else
begin
a[s1[i]]:=s2[i];
b[s2[i]]:=s1[i];
end;
for c:='A' to 'Z' do
if a[c]=' ' then
begin
writeln('Failed');
exit;
end;
for i:=1 to length(s3) do
write(a[s3[i]]);
writeln;
end;
begin
assign(input,'spy.in');
