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

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