状态: Unaccepted
测评机: Xeond[6]
得分: 90分
提交日期: 2010-4-25 18:27:00
有效耗时: 1063毫秒
测试结果1: 通过本测试点|有效耗时172ms
测试结果2: 通过本测试点|有效耗时62ms
测试结果3: 通过本测试点|有效耗时47ms
测试结果4: 通过本测试点|有效耗时47ms
测试结果5: 通过本测试点|有效耗时47ms
测试结果6: 通过本测试点|有效耗时156ms
测试结果7: 通过本测试点|有效耗时157ms
测试结果8: 通过本测试点|有效耗时187ms
测试结果9: 通过本测试点|有效耗时188ms
测试结果10: 测试结果错误.错误结果为:</tr>
<tr>
<td valign="top">提交代码:</td>
<td><pre class="brush: delphi">program p149(input,output);
var n,i,p,j,k:longint;
data:array[1..20000] of char;
num,rec:array['a'..'z']of longint ;
mubiao:array[1..20000]of char;
ch:char;
function weizhi(key:char):longint;
var i:char;t:longint;
begin
t:=0;
for i:='a' to chr(ord(key)-1) do
t:=t+num[i];
exit(t);
end;
begin
readln(n);
if n=0 then
begin
writeln;
close(output);
halt;
end;
for i:=1 to n do
begin
read(data[i]);
inc(num[data[i]]);
rec[data[i]]:=0;
end;
for i:=1 to n do
begin
mubiao[i]:=' ' ;
end;
readln;
read(p);
ch:=data[p] ;
i:=weizhi(ch)+1;
k:=n;
j:=i;
repeat
mubiao[k]:=data[j];
k:=k-1;
if k=0 then break;
ch:=data[j];
j:=weizhi(succ(ch));
j:=j-rec[ch];
inc(rec[ch]);
until k=0;
for i:=1 to n do write(mubiao[i]);writeln;
end.</pre></td>
</tr>
</table>
<script type="text/javascript">
SyntaxHighlighter.config.clipboardSwf = 'script/clipboard.swf';
SyntaxHighlighter.all();
</script>
</div>
</div><div id="footer">
Powered By <a href="http://Www.1992y.Com" target="_blank"> RenQing</a> | Developping By <a href="/AboutUser.asp?UID=1564">Wish</a> <a href="http://www.azuis.cn" target="_blank">Azuis</a>
<script src="http://count.rqnoj.cn/count/1/mystat.asp?siteid=57"></script>
<a href="/Help.asp">帮助</a> <a href="/About.asp">关于</a>
<div align="center"><a href="http://www.miibeian.gov.cn" target="_blank">鲁ICP备05014231号</a></div></td>
Processed in 0.046875 second(s).
Copyright (c) 2007-2009 <a href="http://Www.RQNOJ.Cn">Www.RQNOJ.Cn</a>. All Rights Reserved .</td>
</div>
</div>
</BODY></HTML>