讨论 / 有大牛帮帮忙看下么
CHambist 2013-10-04 01:37:00
点我顶贴 收藏 删除
通过本测试点|有效耗时188ms

测试结果2: 通过本测试点|有效耗时62ms

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

测试结果4: 通过本测试点|有效耗时62ms

测试结果5: 测试结果错误.错误结果为:1 163

正确结果应为:31 163

测试结果6: 输出过少|用户输出数据少于标准输出的50%[标准输出7位|选手输出2位]

测试结果7: 输出过少|用户输出数据少于标准输出的50%[标准输出6位|选手输出2位]

测试结果8: 输出过少|用户输出数据少于标准输出的50%[标准输出8位|选手输出2位]

测试结果9: 测试结果错误.错误结果为:1 45

正确结果应为:2794 45

测试结果10: 输出过少|用户输出数据少于标准输出的50%[标准输出8位|选手输出2位]

通过本测试点|有效耗时188ms

测试结果2: 通过本测试点|有效耗时62ms

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

测试结果4: 通过本测试点|有效耗时62ms

测试结果5: 测试结果错误.错误结果为:1 163

正确结果应为:31 163

测试结果6: 输出过少|用户输出数据少于标准输出的50%[标准输出7位|选手输出2位]

测试结果7: 输出过少|用户输出数据少于标准输出的50%[标准输出6位|选手输出2位]

测试结果8: 输出过少|用户输出数据少于标准输出的50%[标准输出8位|选手输出2位]

测试结果9: 测试结果错误.错误结果为:1 45

正确结果应为:2794 45

测试结果10: 输出过少|用户输出数据少于标准输出的50%[标准输出8位|选手输出2位]

program xx;

var s1:string;

s,b:string;

i,j,k,t,p,q:longint;

m:boolean;

begin

readln(s);

readln(s1);

for i:=1 to length(s) do

if (ord(s[i])<91) and (ord(s[i])>64) then

s[i]:=chr(ord(s[i])+32);

for i:=1 to length(s1) do

if (ord(s1[i])<91) and (ord(s1[i])>64) then

s1[i]:=chr(ord(s1[i])+32);

p:=length(s);

q:=length(s1);

t:=q+1;

for i:=1 to q-p+1 do

begin

b:=copy(s1,i,p);

m:=false;

if i=1 then

if (s1[i+p]=' ') then

m:=true;

if (i>1) and (i<q-p+1) then

if (s1[i+p]=' ') and (s1[i-1]=' ') then

m:=true;

if i=q-p+1 then

if (s1[i-1]=' ') then

m:=true;

if (s=b) and m then inc(k);

if (i<t) and (s=b) and m then t:=i;

end;

if k=0

then writeln('-1')

else write(k,' ',t-1);

end.

#1 yanlimin@2013-10-04 01:37:00
回复 删除
在 S1 前 + 空格;在末端也+空格;

你没有判断头和尾的方法;

头和尾就被忽略了

查看更多回复
提交回复