真受不了评测系统

输出还要看格式。。

第一次

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

第二次

if p=1 then for i:= 1 to n do write(words[i])

else for i:= n downto 1 do write(words[i]);

编译通过...

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

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

├ 测试数据 03：运行超时|格式错误...

├ 测试数据 04：运行超时|格式错误...

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

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

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

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

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

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

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

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

第三次

if p=1 then for i:= 1 to n do

begin

write(words[i]);

if i mod 100=0 then writeln;

end

else for i:= n downto 1 do

begin

write(words[i]);

if i mod 100=0 then writeln;

end;

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

快排改版............秒杀

注意！！！我一开始第4个和最后一个点超时

这是因为用了writeln！！！！！！！！

VJ是逐字比较的，用write就可以了！！！！

千万别用writeln！！！这是VJ的一个BUG！

害的我3次才AC......我的AC率啊，这个该死的水题！

这么水的题，写了半个小时。。。

不敢写冒泡，但还是写了，还是过了，不错。。。

注意给的字典就是用来比较两个字符串大小用的，就再没别的用处了

program VijosP1500;

begin

writeln('wo zuo dui le');

end.

好吧 我承认我是水

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

Var

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

b:char;

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

n,i,j,k,t:longint;

r:Boolean;

Procedure jh(Var a,b:String);

Var

s:String;

Begin

s:=a;

a:=b;

b:=s;

End;

Function ff(s1,s2:string):Boolean;

Var

l1,l2,i,j,k:Longint;

Begin

l1:=length(s1);

l2:=length(s2);

i:=1;

While (i

怎么没有秒杀捏？！

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

├ 测试数据 03：答案错误...程序输出比正确答案长

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

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

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

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

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

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

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

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

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

为什么会有‘程序输出比正确答案长 ’？

今天做了这么多水题，终于有一个一次AC了；我的RP在哪里？

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

const filename='p1500';

var

s,c:string;

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

i,j,k,n:longint;

function min(x,y:longint):longint;

begin if x>y then exit(y);exit(x);end;

function ch:boolean;

var i1,j1:longint;

begin

i1:=1;

j1:=min(length(a[i]),length(a[j]));

while (a=a[j,i1])and(i1j1 then if length(a[i])>length(a[j])then exit(true);

exit(false);

end;

begin

assign(input,filename+'.in');reset(input);

assign(output,filename+'.out');rewrite(output);

readln(s);

readln(n);

for i:=1 to n do

readln(a[i]);

readln(k);

for i:=1 to n-1 do

for j:=i+1 to n do

if ch then {a[i]>a[j]}

begin

c:=a[i];

a[i]:=a[j];

a[j]:=c;

end;

if (k=1)then for i:=1 to n do writeln(a[i])

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

close(input);close(output);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

xl:string;

sx,n,i,j,k,l1,l2,l,p,q,sb:longint;

st:array[1..1000]of ansistring;

st1:ansistring;

begin

readln(xl);

readln(n);

for i:=1 to n do

readln(st[i]);

readln(sx);

for i:=1 to n-1 do

for j:=i+1 to n do

begin

sb:=1; p:=0; q:=0;

while st=st[j,sb] do

sb:=sb+1;

for k:=1 to 26 do

begin

if st=xl[k] then p:=k;

if st[j,sb]=xl[k] then q:=k;

end;

if q

难得的一次A

激动了 晒晒程序:

var i,j,n,m,k,l,o,p:longint;

c,d:array[1..1000] of longint;

b:array[1..1000] of ansistring;

q,w,e:ansistring;

begin

readln(q);

readln(n);

for i:=1 to n do

readln(b[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

begin

m:=0;

p:=0;

k:=1;

while b[i][k]=b[j][k] do

k:=k+1;

for l:=1 to 26 do

begin

if b[i][k]=q[l] then m:=l;

if b[j][k]=q[l] then p:=l;

end;

if p

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

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

a:array[0..1000]of string;

i,k,m,n:longint;

s:string;

c:char;

function com(x,y:longint):boolean;

var l,u:longint;

begin

if length(a[x])order[a[x][l]] then exit(false);

if order[a[y][l]]

水题还交了好几次才过！

求救……第三个点

答案错误...程序输出比正确答案长

#include

#include

using namespace std;

ifstream cin("P1500.in");

ofstream cout("P1500.out");

string ss;

int n;

bool vis[1005];

string word[1005],order[26],ans[1005];

int main()

{

cin >> ss;

cin >> n;

for (int i = 0; i> word[i];

for (int i = 0; i

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

如对本题有疑问可以参看我的题解：http://xujieqi.blog.hexun.com/35722312_d.html

相当于制造一个映射f使原序按照给出的字典映射到一个新序，再对新序从小到大排序，映射回原来的序列就是问题的解

自己做一个函数

模拟字符串比较的过程

注意判断条件！！！！！！！！！！！！！！！！！！

program lt;

var

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

b,c:array[1..1000]of string;

i,x,n,j:integer;

c1:char;

t:string;

begin

for i:=1 to 26 do

begin

read(c1);

a[c1]:=i;

end;

readln;

readln(n);

for i:=1 to n do begin readln(b[i]);end;

readln(x);

c:=b;

for i:=1 to n do

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

c[i][j]:=chr(a[c[i][j]]+64);

for i:=1 to n-1 do

for j:=i+1 to n do

if c[i]>c[j] then begin

t:=c[i];c[i]:=c[j];c[j]:=t;

t:=b[i];b[i]:=b[j];b[j]:=t;

end;

if x=1 then

for i:=1 to n do writeln(b[i])

else

for i:=n downto 1 do writeln(b[i]);

end.

这评测既对老子太好了!冒傻泡都能AC!

var

ss,s:array[1..1000]of ansistring;

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

m,n,o,p,q:longint;

i:char;

procedure pai(l,r:longint);

var

mid,tt:ansistring;

i,j:longint;

begin

i:=l;

j:=r;

mid:=s[(i+j)div 2];

repeat

while s[i]mid do dec(j);

if ij;

if i