讨论 / why
lishuhanji 2013-08-31 08:20:00
点我顶贴 收藏 删除
得分: 40分

提交日期: 2013-8-31 23:15:00

有效耗时: 766毫秒

测试结果1: 通过本测试点|有效耗时203ms

测试结果2: 测试结果错误.错误结果为:ZGJKLPTY

ZGJKPTY

ZGJPTY

正确结果应为:ZGJKLPTY

ZGJKYTP

JGZYTP

测试结果3: 通过本测试点|有效耗时172ms

测试结果4: 测试结果错误.错误结果为:ONMLKJIHGFEDCBA

ONMLKJIGFEDCBA

ONMLKJIFEDCBA

NMLKJIFEDCBA

NMLKJIFEDCB

NMLKJFEDCB

NMLKFEDCB

正确结果应为:ONMLKJIHGFEDCBA

IJKLMNOGFEDCBA

IJKLMNOABCDEF

NMLKJIABCDEF

NMLKJIFEDCB

JKLMNFEDCB

KLMNFEDCB

测试结果5: 测试结果错误.错误结果为:ABCDEFGHIJKLMNOPQRSTUVWXYZ

DCBAFGHIJKLMNOPQRSTUVWXYZ

DCBAFGHIJKLMNPQRSTUVWXYZ

DBAFGHIJKLMNPQRSTUVWXYZ

LKJIHGFABDNPQRSTUVWXYZ

BAFGHIJKLNPQRSTUVWXYZ

LKJIHGFABPQRSTUVWXYZ

KJIHGFABPQRSTUVWXYZ

KJIHGFABPQRTUVWXYZ

KJIHGFABQRTUVWXYZ

GHIJKABQRTUVWXYZ

KJIHGBQRTUVWXYZ

HIJKBQRTUVWXYZ

IJKBQRTUVWXYZ

IJKBQRUVWXYZ

IJKBQRUVWXZ

IJKBQRUVWX

IJKBQRUVW

KJIQRUVW

KJIRUVW

KJIRUV

KJRUV

KRUV

KUV

UV

V

正确结果应为:ABCDEFGHIJKLMNOPQRSTUVWXYZ

DCBAFGHIJKLMNOPQRSTUVWXYZ

DCBAFGHIJKLMNZYXWVUTSRQP

DBAFGHIJKLMNZYXWVUTSRQP

LKJIHGFABDNZYXWVUTSRQP

BAFGHIJKLNZYXWVUTSRQP

LKJIHGFABZYXWVUTSRQP

KJIHGFABZYXWVUTSRQP

KJIHGFABZYXWVUTPQR

KJIHGFABZYXWVUTRQ

GHIJKABZYXWVUTRQ

KJIHGBZYXWVUTRQ

HIJKBZYXWVUTRQ

IJKBZYXWVUTRQ

IJKBZYXWVUQR

ZBKJIXWVUQR

BKJIXWVUQR

IJKBWVUQR

KJIWVUQR

KJIWVUR

IJKVUR

JKVUR

KVUR

KVU

VU

V

测试结果6: 测试结果错误.错误结果为:ABCDEFG

ABCDFG

ABDFG

ABFG

正确结果应为:ABCDEFG

ABCDGF

BADGF

ABGF

测试结果7: 通过本测试点|有效耗时219ms

测试结果8: 测试结果错误.错误结果为:ZGJKLPTY

ZGJKPTY

ZGJPTY

正确结果应为:ZGJKLPTY

ZGJKYTP

JGZYTP

测试结果9: 测试结果错误.错误结果为:ONMLKJIHGFEDCBA

ONMLKJIGFEDCBA

ONMLKJIFEDCBA

NMLKJIFEDCBA

NMLKJIFEDCB

NMLKJFEDCB

NMLKFEDCB

正确结果应为:ONMLKJIHGFEDCBA

IJKLMNOGFEDCBA

IJKLMNOABCDEF

NMLKJIABCDEF

NMLKJIFEDCB

JKLMNFEDCB

KLMNFEDCB

测试结果10: 通过本测试点|有效耗时172ms

提交代码: view sourceprint?01.var

02.

s,s1:string;

03.

i,j,x,n,p:longint;

04.

ch:char;

05.begin

06.

readln(s);

07.

readln(n);

08.

for i:=1 to n do begin

09.

writeln(s);s1:='';

10.

readln(ch);

11.

x:=pos(ch,s);

12.

if length(s)-x>x then begin s1:=copy(s,1,x-1); delete(s,1,x);p:=1; end

13.

else begin s1:=copy(s,x+1,length(s)); delete(s,x,length(s));p:=0 end;

14.

for j:=1 to length(s1) do

15.

if ord(s1[j])<96 then begin if p=1 then s:=s1[j]+s else s:=s+s1[j];end;

16.

end;

17.

write(s);

18.end.

查看更多回复
提交回复