首页 > 代码库 > 2003乒乓球
2003乒乓球
国际乒联现在主席沙拉拉自从上任以来就立志于推行一系列改革,以推动乒乓球运动在全球的普及。其中11分制改革引起了很大的争议,有一部分球员因为无法适应新规则只能选择退役。华华就是其中一位,他退役之后走上了乒乓球研究工作,意图弄明白11分制和21分制对选手的不同影响。在开展他的研究之前,他首先需要对他多年比赛的统计数据进行一些分析,所以需要你的帮忙。
【问题描述】华华通过以下方式进行分析,首先将比赛每个球的胜负列成一张表,然后分别计算在11分制和21分制下,双方的比赛结果(截至记录末尾)。
比如现在有这么一份记录,(其中W表示华华获得一分,L表示华华对手获得一分):
WWWWWWWWWWWWWWWWWWWWWWLW
在11分制下,此时比赛的结果是华华第一局11比0获胜,第二局11比0获胜,正在进行第三局,当前比分1比1。而在21分制下,此时比赛结果是华华第一局21比0获胜,正在进行第二局,比分2比1。如果一局比赛刚开始,则此时比分为0比0。
你的程序就是要对于一系列比赛信息的输入(WL形式),输出正确的结果。
每个输入文件包含若干行字符串(每行至多20个字母),字符串有大写的W、L和E组成。其中E表示比赛信息结束,程序应该忽略E之后的所有内容。
输出由两部分组成,每部分有若干行,每一行对应一局比赛的比分(按比赛信息输入顺序)。其中第一部分是11分制下的结果,第二部分是21分制下的结果,两部分之间由一个空行分隔。
WWWWWWWWWWWWWWWWWWWW
WWLWE
11:0
11:0
1:1
21:0
2:1
每行最多20个字符
总共的字符数不超过100000
题解:
模拟。
根据题意做下去,这里有几个提示:1、新的对局是0:0;2、E在第一个位置;3、一定要比对方高两分以上且超过11或21分。
var c:char;
s:ansistring;
procedure pd(k:longint);
var s1,s2,i:longint;
begin
s1:=0;
s2:=0;
for i:=1 to length(s) do
begin
if s[i]=‘W‘ then inc(s1);
if s[i]=‘L‘ then inc(s2);
if (abs(s1-s2)>1)and((s1>=k)or(s2>=k)) then
begin
writeln(s1,‘:‘,s2);
s1:=0;
s2:=0;
end;
end;
writeln(s1,‘:‘,s2);
end;
begin
while true do
begin
read(c);
if c=‘E‘ then break;
s:=s+c;
end;
if length(s)=0 then
begin
writeln(‘0:0‘);
writeln;
write(‘0:0‘);
exit;
end;
pd(11);
writeln;
pd(21);
end.
2003乒乓球