讨论 / 怎么会超时?
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……

怎么都没想明白……

#1 火冰星龙@2013-11-02 18:05:07
回复 删除
快速读入

getchar()

#2 湖南-路人甲@2013-11-02 18:32:46
回复 删除
getchar...pascal能用么
#3 jixinye139@2013-11-04 03:58:29
回复 删除
你这代码完全是错的
#4 jixinye139@2013-11-04 04:01:55
回复 删除
好吧 之前理解错了,感觉应该没问题吧

查看更多回复
提交回复