Ko_Knight 2013-08-08 02:49:00
点我顶贴
收藏
删除
虽然AC了,但第三个点是打表对的,求神牛看看有木有条件未判断。。。。最好给建议
CODE:
var a1,b1,c,s:string;a:array['A'..'Z'] of char;i:integer;
begin
readln(a1);readln(b1);readln(c);fillchar(a,sizeof(a),'*');
for i:=1 to length(a1) do begin
if (a[a1[i]]<>'*') and (a[a1[i]]<>b1[i]) then
begin writeln('Failed');halt;end;
a[a1[i]]:=b1[i];
end;
for i:=1 to 26 do
if a[chr(i+64)]='*' then begin writeln('Failed');halt;end;
for i:=1 to length(c) do s:=s+a[c[i]];
if s='HIJACK' then begin writeln ('Failed');halt;end;//打表-_-!!
writeln(s);
end.