161337 x-ray 78 Accepted 100分 FreePascal Xeost[5] 查看
解释以下，谢谢，我个人认为，第2，5点数据，我的输出比标准输出多一行。如果数据无误，那么我的已经AC的程序又怎么不行了呢。请大牛和管理员赐教，我会给分的。
（为此，不幸的我交原来程序时被判了作弊……%>_<%）
这题的数据也有问题
var s,s1,s2:string；
i,j,k,n:longint；
a:array[1..1000] of string；
m:real；
m1:real；
begin
readln(s)；
readln(n)；
for i:=1 to n do
readln(a[i])；
writeln(s)；
m1:=(length(s)/2)；
m:=round(m1)；
for i:=1 to n do
begin
for j:=1 to length(s) do
begin
if (a[i]=s[j]) and (j<=m) then
begin
delete(s,j,1)；
for k:=j-1 downto 1 do
begin
s1:=s1+ s[k]；
delete(s,k,1)；
end；
insert(s1,s,1)；
m1:=(length(s)/2)；
if (frac(m1)=0) then m:=m1
else m:=m1+0.5；
writeln(s)；
s1:=’’；
end；
if (a[i]=s[j]) and (j>m) then
begin
delete(s,j,1)；
for k:=j to length(s) do
begin
s1:=s1+s[length(s)]；
delete(s,length(s),1)；
end；
insert(s1,s,k)；
m1:=(length(s)/2)；
if (frac(m1)=0) then m:=m1
else m:=m1+0.5；
writeln(s)；
s1:=’’；
end；
end；
end；
end.
这是通过的程序。
复习了，挺认真的嘛^ ^
测试结果错误.错误结果为: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
正确结果应为: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
测试结果错误.错误结果为:A
正确结果应为:A
这哪里有错，我重测了一遍，结果是得了80分
管理员请进，谢谢!