2003年分区联赛普级组之一 乒乓球

Description

　　国际乒联现在主席沙拉拉自从上任以来就立志于推行一系列改革，以推动乒乓球运动在全球的普及。其中11分制改革引起了很大的争议，有一部分球员因为无法适应新规则只能选择退役。华华就是其中一位，他退役之后走上了乒乓球研究工作，意图弄明白11分制和21分制对选手的不同影响。在开展他的研究之前，他首先需要对他多年比赛的统计数据进行一些分析，所以需要你的帮忙。 

　　华华通过以下方式进行分析，首先将比赛每个球的胜负列成一张表，然后分别计算在11分制和21分制下，双方的比赛结果（截至记录末尾）。 
　　比如现在有这么一份记录，（其中W表示华华获得一分，L表示华华对手获得一分）： 
　　WWWWWWWWWWWWWWWWWWWWWWLW 
　　在11分制下，此时比赛的结果是华华第一局11比0获胜，第二局11比0获胜，正在进行第三局，当前比分1比1。而在21分制下，此时比赛结果是华华第一局21比0获胜，正在进行第二局，比分2比1。如果一局比赛刚开始，则此时比分为0比0。 
你的程序就是要对于一系列比赛信息的输入（WL形式），输出正确的结果。 

Input

　　每个输入包含若干行字符串（每行至多20个字母），字符串有大写的W、L和E组成。其中E表示比赛信息结束，程序应该忽略E之后的所有内容。

Output

　　输出由两部分组成，每部分有若干行，每一行对应一局比赛的比分（按比赛信息输入顺序）。其中第一部分是11分制下的结果，第二部分是21分制下的结果，两部分之间由一个空行分隔。

Sample Input

 

WWWWWWWWWWWWWWWWWWWW 

WWLWE

 

Sample Output

 

11:0 

11:0 

1:1 

21:0 

2:1

解题思路：用数组储存数据，先要考虑没有任何比分的情况，那就输出0：0，再对读入的数据一一进行统计，最后输出统计结果即可。

程序：

var

  s:char;

  ans,tot,tot1,a,j,k,o,p:longint;

  n,m,q,w:array[1..10000] of longint;

begin

  read(s);

  ans:=1;

  if s='E' then

  begin

    writeln(0,':',0);

    writeln;

    write(0,':',0);

    exit;

  end;

  while s<>'E' do

  begin

    if s='W' then

    begin

      inc(j);

      inc(o);

    end;

    if s='L' then

    begin

      inc(k);

      inc(p);

    end;

    if ((j>=11) or (k>=11)) and (abs(j-k)>1) then

    begin

      inc(tot1);

      q[tot1]:=j;

      w[tot1]:=k;

      j:=0;

      k:=0;

    end;

    if ((o>=21) or (p>=21)) and (abs(o-p)>1) then

    begin

      inc(tot);

      m[tot]:=o;

      n[tot]:=p;

      o:=0;

      p:=0;

    end;

    read(s);

    inc(ans);

  end;

  for a:=1 to tot1 do

    writeln(q[a],':',w[a]);

  if (j<>0) or (k<>0) then writeln(j,':',k);

  if (j=0) and (k=0) then writeln(0,':',0);

  writeln;

  for a:=1 to tot do

    writeln(m[a],':',n[a]);

  if (o<>0) or (p<>0) then write(o,':',p);

  if (o=0) and (p=0) then write(0,':',0);

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0ht.html

转载时必须以链接形式注明原始出处及本声明。