hfyzndl 2013-11-02 17:51:46
点我顶贴
收藏
删除
var a:array[1..1000,1..1000] of longint;
i,j,k,n,z:longint;
s:array[1..1000] of char;
l,m:array[1..1000] of longint;
o,p:array[1..1000] of longint;
begin
readln(n,k);
for i:=1 to n do
begin
for j:=1 to n do
read(a[i,j]);
readln;
end;
for i:=1 to n do
begin
o[i]:=i;
p[i]:=i;
end;
for i:=1 to k do
begin
readln(s[i],l[i],m[i]);
if s[i]='R' then begin z:=o[l[i]];o[l[i]]:=o[m[i]];o[m[i]]:=z;end;
if s[i]='C' then begin z:=p[l[i]];p[l[i]]:=p[m[i]];p[m[i]]:=z;end;
if s[i]='A' then writeln(a[o[l[i]],p[m[i]]]);
end;
end.
前三个点WA,后面TLE……
怎么都没想明白……