前2次居然编译错误……我这FP有问题（FP显示编译通过）

第三次AC（仅仅改了循环变量）

其实我只开了10000*2的数组……居然秒杀！

边读边输11分的结果,把21分的记录在一个String数组里最后输出

数组开大,变量Longint

注意最后0:0

终于AC

纪念第50题

其实这道题目的测试数据最后一个点错掉了

最后一个点测试数据输出：0：0

怎么可能？

应该这行不输出！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

大家注意~!

数组变量一定要放大~!

T_T我提交了3次..

结果最后AC的程序就是把数组放大..变量放大..

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

很简单

但是前面Unaccepted了两次,都是格式错误了一个点.第一次没考虑直接E,第二次和第三次提交的一样的程序,但是第二次第六个点格式错误,第三次秒杀.......

严重鄙视dolphin

第十组：

WWWWWWWWWWWE

11：0

0：0

11：0

要好好读题啊......

囧，没用ansistring结果WA了一次，囧啊

var

a:ansistring;

i,j,k,l:longint;

ch:char;

f:array[1..1000000,1..2]of longint;

p,q,x,y:longint;

procedure init;

begin

while not(eof)do

begin

read(ch);

if(ch='W')or(ch='L')or(ch='E')

then begin

if (ch='W')or(ch='L')then

a:=a+ch

else if (ch='E')then exit;end;

end;

end;

begin

assign(input,'id1217.in');reset(input);

assign(output,'id1217.out');rewrite(output);

init;

if a[1]='E'then

begin

writeln('0:0');writeln;

writeln('0:0');

close(input);close(output);

halt

end;

fillchar(f,sizeof(f),0);

p:=0;q:=0;j:=1;

for i:=1 to length(a)do

begin

if ((p1)

then begin

writeln(p,':',q);

p:=0;q:=0;

if a[i]='W'then p:=p+1

else if a[i]='L'then q:=q+1;end;

if ((f[j,1]1)

then begin

j:=j+1;

if a[i]='W'then f[j,1]:=f[j,1]+1

else if a[i]='L'then f[j,2]:=f[j,2]+1;end;

end;

if(p0)or(p0)then

writeln(p,':',q);writeln;

for i:=1 to j do

writeln(f,':',f);

close(input);close(output);

end.

只过了一个点~~~~~~~~~~

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

自杀

交了 N次…………

1、0：0 也算？！

2、还有空行？！？！

3、打了上百万球？！？！？！

注意到这些之后：怎么还是过不了呢……

然后 ，仔细看，然后 在发狂前 一秒 ，偶然 一眼：原来 把一个 j 写成 i 了

暴汗——这样竟然也能过6组……

5555555555555…………………………………………………………………………

var a:array[1..1000000]of longint;

s:ansistring;

i,j,x1,y1,x2,y2,l:longint;

begin

repeat

readln(s);

l:=length(s);

for i:=1 to l do

begin

if s[i]='E' then begin l:=i;break;end;

if s[i]='W' then

begin

inc(x1);

inc(x2);

if (x1>=11)and(x1-y1>=2) then begin writeln(x1,':',y1);x1:=0;y1:=0;end;

if (x2>=21)and(x2-y2>=2) then begin inc(j);a[j*2-1]:=x2;a[j*2]:=y2;x2:=0;y2:=0;end;

end;

if s[i]='L' then

begin

inc(y1);

inc(y2);

if (y1>=11)and(y1-x1>=2) then begin writeln(x1,':',y1);x1:=0;y1:=0;end;

if (y2>=21)and(y2-x2>=2) then begin inc(j);a[j*2-1]:=x2;a[j*2]:=y2;x2:=0;y2:=0;end;

end;

end;

if l=0 then begin l:=1;s:='e';end;

until s[l]='E';

writeln(x1,':',y1);

writeln;

for i:=1 to j do writeln(a,':',a);

writeln(x2,':',y2);

end.

program x;

var s1,i:integer;

s:string;

procedure change(d,r:integer);

var k,i,j:integer;

begin

k:=0;

j:=0;

i:=0;

repeat

inc(i);

if s[i]='W' then

k:=k+1;

if s[i]='L' then

j:=j+1;

if( (k mod d=0) and (k>0)) or( (j mod d=0) and (j>0))

then

begin

writeln(k,':',j);

K:=0;

j:=0;

end;

until i=r;

if (k0) or ( j0) then

writeln(k,':',j);

end;

begin

read(s);

s1:=length(s)-1 ;

change(11,s1);

writeln ;

change(21,s1);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

NO.1910

为了判断中的4个大于号~浪费了我40分钟!!!

同志们!一定要谨记,写字符串处理的的时候!特别是写条件的时候!一定不能因为旁边有漂亮MM就分心!!!!!!!!!!

找块豆腐砸死我算了.

program c1217;

var st:ansistring;

l:longint;

f21:array [1..1000000,1..2] of longint;

procedure Init;

var ch:char;

begin

st:='';

while not eof do

begin

read(ch);

if (ch='W') or (ch='L') or (ch='E') then st:=st+ch;

end;

if st[1]='E' then begin writeln(0,':',0); writeln; writeln(0,':',0); halt; end;

l:=length(st)-1;

end;

procedure Love;

var i,t1,t2,h:longint;ch:char;

begin

h:=1;

t1:=0;

t2:=0;

i:=1;

repeat

ch:=st[i];

if ch='W' then begin inc(t1);inc(f21[h,1]); end;

if ch='L' then begin inc(t2);inc(f21[h,2]); end;

if ((t1>=11) or (t2>=11)) and (abs(t1-t2)>1) then

begin writeln(t1,':',t2); t1:=0; t2:=0; end;

if ((f21[h,1]>=21) or (f21[h,2]>=21)) and (abs(f21[h,1]-f21[h,2])>1) then inc(h);

inc(i);

until ch='E';

if (l mod 11=0) then writeln(0,':',0) else writeln(t1,':',t2);

writeln;

for i:=1 to h-1 do

writeln(f21,':',f21);

if (l mod 21=0) then writeln(0,':',0) else writeln(f21[h,1],':',f21[h,2]);

end;

begin

fillchar(f21,sizeof(f21),0);

Init;

Love;

end.

题目没写数据范围...

第1个点输入是 E

注意啦····

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

是不是喝高了?

VJ什么评测机,我CENA上AC,这里交了两次都第一个点莫名其妙的错!

只能CHEAT!!!!!

Var

s:array[0..1000000]of char;

sb,sk,li,ke:longint;

i,j,k:longint;

//====================================

Procedure init;

begin

s[0]:='0';

k:=0;

while s[k]'E' do

begin

inc(k);

read(s[k]);

if k mod 20=0

then readln;

end;

end;

//====================================

Procedure SYFZ;

begin

sb:=0;sk:=0;

for i:=1 to k do

begin

if s[i]='W'

then inc(sb);

if s[i]='L'

then inc(sk);

if ((sb>=11)and(sb-sk>=2))or((sk>=11)and(sk-sb>=2))

then begin

writeln(sb,':',sk);

sb:=0;sk:=0;

end;

end;

writeln(sb,':',sk);

writeln;

end;

//====================================

Procedure ESYFZ;

begin

li:=0;ke:=0;

for i:=1 to k do

begin

if s[i]='W'

then inc(li);

if s[i]='L'

then inc(ke);

if (li>=21)and(li-ke>=2)or (ke>=21)and(ke-li>=2)

then begin

writeln(li,':',ke);

li:=0;ke:=0;

end;

end;

write(li,':',ke);

end;

//====================================

Begin

init;

SYFZ;

ESYFZ;

End.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

第一次：怎么比分差要大于1？

第二次：啊？不是11局6胜啊？？

第三此：岂有此理,有这样的输出——0：0！

第四次：空行……

第五次：呜呜……数组要开到1`000`000

……

第N次：[改到吐血]

第N+1次：[晕厥]

……

这种水题

竟然WA了两次

第一次 少了条件90~~

第二次 少了个） ANAC

第三次编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

很简单的模拟题

注意2个地方.

1,输入只有一个E的情况.

2,要输出为0:0的情况.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

同一个代码 几乎同一时间 怎么这样 bt！！！！！！

糟蹋我的ac率啊

第一组数据 E········

第10组数据

WWWWWWWWWWWE……输出应为

11：0

0：0

11：0

无语