jrf 2010-09-05 03:19:00
点我顶贴
收藏
删除
代码贴上：
program rqnoj518;
var
a:array[65..90] of char;
b,c:array[1..100] of char;
i,j,k:longint;
begin
for i:=65 to 90 do a[i]:=' ';
for i:=1 to 100 do begin
read(b[i]);
if b[i]=#13 then begin
k:=i-1;
readln;
break;
end;
end;
for i:=1 to k do read(c[i]);
readln;
for i:=1 to k do begin
if (a[ord(b[i])]=' ') or (a[ord(b[i])]=c[i]) then begin
a[ord(b[i])]:=c[i];
end
else begin
write('Failed');
halt;
end;
end;
for i:=65 to 90 do begin
if a[i]=' ' then begin
write('Failed');
halt;
end;
end;
for i :=1 to 100 do begin
read(b[i]);
if b[i]=#13 then begin
k:=i-1;
break;
end;
end;
for i:=1 to k do begin
write(a[ord(b[i])]);
end;
end.