编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

kp 一次AC

选择排序一次AC

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

基础题，终于A了。。。暴汗ing....

算法，模拟+快排。

程序：

http://lifeich1.spaces.live.com/blog/cns!9AB465A9D807BE22!129.entry

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 88ms

├ 测试数据 04：答案正确... 25ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 41ms

huhu

!!

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

#include

#include

char dic[27],words[1000][256];

int order,index[1000];

int compare(int x,int y) {

int i,l,c;

for(i=0,l=strlen(words[x]);i

var

i,j,m,n,xx:integer;c:char;

s:array[1..1000]of string;

a:array[1..1000,1..255]of integer;

b:array['a'..'z']of integer;

x:array[1..255]of integer;

function bi1(i:integer):boolean;

var k:integer;

begin

k:=1;

while (a=x[k])and(k

一开始看记录有人超时还以为要用快排

其实冒泡都全0MS

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 9ms

├ 测试数据 03：答案正确... 25ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：34ms

快排。。。。。。。。

只是把判断大小的过程自己变了一下。。。

桶排统计字母序

a:array['a'..'z'] of integer;

for i:=1 to 26 do

begin

read(c);

a[c]:=i

end;

a[i]越小字母序越大

然后冒泡一下就AC了

哎

大牛帮我看看为什么这么多超时呀？ ？？？？？

应该怎么改？

From maa04

笨笨的单词排序（赛） 笨笨工作室系列 系列

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：运行超时...

├ 测试数据 03：运行超时...

├ 测试数据 04：运行超时...

├ 测试数据 05：运行超时...

├ 测试数据 06：运行超时...

├ 测试数据 07：运行超时...

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：运行超时...

├ 测试数据 10：运行超时...

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：20 有效耗时：0ms

var a:array[1..1000,1..255] of integer;

b:array[1..26] of integer;

s,q:string;

t,l,i,j,k,n,m,x:integer;

function bijiao(c,b:integer):boolean;

var i,j,z,x:integer;

begin

i:=1;

while a[c,i]0 do

inc(i);

dec(i);

j:=1; while a0 do

inc(j); dec(j);

if i>j then z:=j else z:=i;

for x:=1 to z do

if a[c,x]>a then begin bijiao:=true;

exit;

end

else if a[c,x]

错过了比赛时间，可惜可惜......

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

小小程序：

var dic:array['a'..'z'] of longint;

s:array[1..1000] of string;

i,j,m,n,k,p:longint;

ss:string;

ii:char;

function com(a,b:string):boolean;

var i,j,k:longint;

begin

if ord(a[0])>ord(b[0]) then begin k:=ord(a[0]);j:=ord(b[0]) end

else begin k:=ord(b[0]);j:=ord(a[0]) end;

for i:=1 to k do

begin

if i>j then if k=ord(a[0]) then exit(false) else exit(true);

if dic[a[i]]dic[b[i]] then exit(false)

end

end;

begin

readln(ss);

for i:=1 to 26 do

dic[ss[i]]:=i;

readln(n);

for i:=1 to n do

readln(s[i]);

readln(p);

for i:=1 to n-1 do

for j:=i+1 to n do

if com(s[i],s[j]) then{s[i]xiao,jiangxu}

begin

ss:=s[i];

s[i]:=s[j];

s[j]:=ss

end;

if p=0 then for i:=1 to n do writeln(s[i])

else for i:=n downto 1 do writeln(s[i])

end.

program Plus;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

同一个程序，

Puppy

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

Dargon

编译通过...

测试数据01：答案正确... 0ms

测试数据02：答案正确... 0ms

测试数据03：答案正确... 0ms

测试数据04：答案正确... 0ms

测试数据05：答案正确... 0ms

测试数据06：答案正确... 0ms

测试数据07：答案正确... 0ms

测试数据08：答案正确... 0ms

测试数据09：答案正确... 0ms

测试数据10：运行超时...

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms

同时VJ的评测机，差别咋就这么大咧。

附程序：

program T1039_1;

const

filein='T1039_1.in';

fileout='T1039_1.out';

maxn=1000;

type

Tin=longint;

Tstr=string;

Tarr=array[1..maxn]of Tstr;

Tarr2=array[1..26]of char;

var

n,ans:Tin;

size:Tstr;

stra,stra2:Tarr;

change:Tarr2;

procedure init;

var

i:Tin;

begin

readln(size);

readln(n);

for i:=1 to n do

readln(stra[i]);

readln(ans);

end;

procedure main;

var

i,j:Tin;

t:Tstr;

begin

stra2:=stra;

for i:=1 to 26 do

change[ord(size[i])-96]:=chr(96+i);

for i:=1 to n do

for j:=1 to length(stra[i]) do

stra2[i][j]:=change[ord(stra[i][j])-96];

for i:=1 to n do

for j:=1 to i-1 do

if stra2[i]

第一个通过～～yeah～～

借个地方放程序。

Var a:array[0..101,0..101,0..101]of char;

k,d,x,y,i,j,n,m,o,l,max:longint;

f:char;

procedure moni(h,i,j:longint;c:char);

Begin

inc(l);

if (l>=max)or(h=0)or(h=k+1)or(i=0)or(i=m+1)or(j=0)or(j=n+1) Then Begin writeln(h,',',i,',',j);exit;End;

case a[h,i,j] of

' ':case c of

'q':moni(h,i-1,j,c);

'h':moni(h,i+1,j,c);

'z':moni(h,i,j-1,c);

'y':moni(h,i,j+1,c);

End;

'U':moni(h+1,i,j,c);

'D':moni(h-1,i,j,c);

'L':case c of

'q':moni(h,i,j-1,'z');

'h':moni(h,i,j+1,'y');

'z':moni(h,i+1,j,'h');

'y':moni(h,i-1,j,'q');

End;

'R':case c of

'q':moni(h,i,j+1,'y');

'h':moni(h,i,j-1,'z');

'z':moni(h,i-1,j,'q');

'y':moni(h,i+1,j,'h');

End;

'F':case c of

'q':moni(h,i+1,j,'h');

'h':moni(h,i-1,j,'q');

'z':moni(h,i,j+1,'y');

'y':moni(h,i,j-1,'z');

End;

End;

End;

Begin

readln(k,m,n);

For i:=1 to k do Begin

For j:=1 to m do Begin

For o:=1 to n do read(a);

readln;

End;

readln;

End;

readln(d,x,y);

readln(f);

readln(max);

moni(d,x,y,f);

End.

楼下的是错误示范,大家注意啦

Program t1;

type fuck=record

date:string;

feng:longint;

end;

var s:string;

var a:array['a'..'z']of longint;

var l:array[1..1000]of fuck;

var n,i,bb,j,r,d,k:longint;

var temp:fuck;

begin

readln(s);

readln(n);

for i:=1 to n do readln(l[i].date);

for i:=1 to 26 do a[s[i]]:=i;

readln(bb);

if bb=1 then

for i:=1 to n do

for j:=i to n do

if legnth(l[i].date)l[j].date[k] then begin

temp:=l[i];

l[i]:=l[j];

l[j]:=temp;

end;

for i:=1 to n do

writeln(l[i].date);

end.

啊.我慢了..