状态编号: [查看该题]
状态: Unaccepted
测评机： Xeost[5]
得分： 30分
提交日期： 2008-7-29 19:29:00
有效耗时： 该状态没有记录
测试结果1: 测试结果正确
测试结果2: 测试结果正确
测试结果3: 运行错误|栈溢出
测试结果4: 运行错误|栈溢出
测试结果5: 运行错误|栈溢出
测试结果6: 运行错误|栈溢出
测试结果7: 测试结果正确
测试结果8: 运行错误|栈溢出
测试结果9: 运行错误|栈溢出
测试结果10: 运行错误|栈溢出
type
aa=record
sn,sd:ansistring；
end；
bb=array[0..1000] of longint；
cc=array[0..5010] of longint；
var
ss:aa；
m,n,i,j,k,t,l:longint；
a:array[0..30010] of aa；
c:cc；
b:bb；
procedure make(var b:bb； c:cc)；
var
i,j:longint；
begin
for i:=1 to 500 do
b[i]:=b[i]+c[i]；
for i:=2 to 500 do
begin
b[i]:=b[i]+b[i-1] div 10；
b[i-1]:=b[i-1] mod 10；
end；
end；
procedure qsort1(r,l:longint)；
略。。
end；
procedure qsort2(r,l:longint)；
略。。
end；
begin
readln(n)；
for i:=1 to 1010 do
begin
a[i].sd:=；a[i].sn:=；
end；
for i:=1 to n do
begin
readln(a[i].sn)；
readln(a[i].sd)；
end；
qsort1(1,n)；
i:=1；
while i<=n do
begin
j:=i；
while a[j].sd=a[j+1].sd do j:=j+1；
qsort2(i,j)；
i:=j+1；
end；
for i:=1 to n do
writeln(a[i].sn)；
fillchar(b,sizeof(b),0)；
for i:=1 to n do
begin
k:=length(a[i].sd)；
fillchar(c,sizeof(c),0)；
for j:=1 to k do
c[j]:=ord(a[i].sd[k-j+1])-48；
make(b,c)；
end；
for i:=490 downto 2 do
write(b[i])；
writeln(b[1])；
end.
大牛帮忙看看。。。
谢谢～～～
想去年我上高一的时候都可以写 SBT 了还不会写 qsort（总是搞错点什么，然后调上三四个小时才勉强能运行）……（我从小学开始搞的）
然后去年 NOIP 的统计数字一题我愣是写了个分段 BST，0.1 秒的瞬间 AC~~
最后为了备战省赛，硬是一字一句背下来了。。。
学快排是我 OI 道路上最痛苦的回忆。。。