大牛看看我囧哪里了?

type

rec=record

name:string;

l:integer;

num:array[1..10000] of integer;

end;

var

a:array[1..10000]of rec;

n:integer;

procedure init;

var

s:string;

i,j:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i].name);

readln(s);

a[i].l:=length(s);

for j:=1 to a[i].l do

a[i].num[a[i].l+1-j]:=ord(s[j])-48;

end;

end;

function compare(x,y:integer):boolean;

var

i:integer;

begin

if a[x].l>a[y].l then exit(true);

if a[x].l0) do

dec(i);

if i=0 then exit(false);

if a[x].num[i]>a[y].num[i] then exit(true);

if a[x].num[i]

2 条评论

  • @ 2009-07-30 21:55:55

    囧……

    ……我可以去参加菜鸟争霸赛了……

  • @ 2009-07-08 16:05:15

    其实你可以用字符串填充首位来做排序……

  • 1

信息

ID
1257
难度
6
分类
其他 | 排序 点击显示
标签
(无)
递交数
4108
已通过
1158
通过率
28%
被复制
3
上传者