讨论 / 大家给看看哪错了????
酷炫的狼 2008-10-03 04:59:00
点我顶贴 收藏 删除
program a78;

var

s:string;

f:char;

a:array[1..100]of char;

n,i,j,k,p,q,c:longint;

begin

readln(s);

readln(k);

n:=length(s);

c:=n;

for i:=1 to k do

read(a[i]);

writeln(s);

for i:=1 to k do

begin

for j:=1 to c do

if a[i]=s[j] then

begin

delete(s,j,1);

break;

end;

if j<c div 2+c mod 2 then

begin

p:=1;

q:=j-1;

end

else

begin

p:=j;

q:=c-1;

end;

while p<q do

begin

f:=s[p];

s[p]:=s[q];

s[q]:=f;

inc(p);

dec(q);

end;

c:=c-1;

for j:=1 to c do

write(s[j]);

if i<k then writeln

end;

readln;

readln;

end.

#1 酷炫的狼@2008-10-03 04:44:00
回复 删除
测试结果1: 通过本测试点|有效耗时156:ms

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

ZGJKYTP

ZGJKYT

正确结果应为:ZGJKLPTY

ZGJKYTP

JGZYTP

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

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

ONMLKJIABCDEFG

ONMLKJIABCDEF

ONMLKJIABCDE

ONMLKJIABCD

ONMLKJIABC

ONMLKJIAB

正确结果应为:ONMLKJIHGFEDCBA

IJKLMNOGFEDCBA

IJKLMNOABCDEF

NMLKJIABCDEF

NMLKJIFEDCB

JKLMNFEDCB

KLMNFEDCB

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

DCBAFGHIJKLMNOPQRSTUVWXYZ

DCBAFGHIJKLMNOPQRSTUVWXY

DCBAFGHIJKLMNOPQRSTUVWX

DCBAFGHIJKLMNXWVUTSRQP

DCBAFGHIJKLMNXWVUTSRQ

DCBAFGHIJKLMNXWVUTSR

DBAFGHIJKLMNXWVUTSR

DBAFGHIJKLMNXWVUTS

DBAFGHIJKLMNXWVUT

DBAFGHIJKLTUVWXN

DBAFGHIJKLTUVWX

DBAFGHIJKLTUVW

BAFGHIJKLTUVW

BAFGHIJKLTUV

BAFGHIJKLTU

BAFGHIJKLT

BAFGHIJKL

BAFGHIJK

BAFGHIJ

BAFGHI

BAFGH

BAFG

BAF

BA

B

正确结果应为: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

ABCDGF

ABCDG

ABCD

正确结果应为:ABCDEFG

ABCDGF

BADGF

ABGF

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

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

ZGJKYTP

ZGJKYT

正确结果应为:ZGJKLPTY

ZGJKYTP

JGZYTP

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

ONMLKJIABCDEFG

ONMLKJIABCDEF

ONMLKJIABCDE

ONMLKJIABCD

ONMLKJIABC

ONMLKJIAB

正确结果应为:ONMLKJIHGFEDCBA

IJKLMNOGFEDCBA

IJKLMNOABCDEF

NMLKJIABCDEF

NMLKJIFEDCB

JKLMNFEDCB

KLMNFEDCB

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

#2 酷炫的狼@2008-10-03 04:59:00
回复 删除
现在好了
查看更多回复
提交回复