乒乓球-洛谷 1042

题目背景

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

题目描述

华华通过以下方式进行分析,首先将比赛每个球的胜负列成一张表,然后分别计算在11分制和21分制下,双方的比赛结果(截至记录末尾)。

比如现在有这么一份记录,(其中W表示华华获得一分,L表示华华对手获得一分):

WWWWWWWWWWWWWWWWWWWWWWLW

在11分制下,此时比赛的结果是华华第一局110获胜,第二局110获胜,正在进行第三局,当前比分11。而在21分制下,此时比赛结果是华华第一局210获胜,正在进行第二局,比分21。如果一局比赛刚开始,则此时比分为00。直到分差大于或者等于2,才一局结束。

你的程序就是要对于一系列比赛信息的输入(WL形式),输出正确的结果。

输入输出格式

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

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

输入输出样例

输入样例#1:
WWWWWWWWWWWWWWWWWWWW
WWLWE
输出样例#1:
11:0
11:0
1:1

21:0
2:1

题解:这道题可以先算11分制,再算21分制度,分开来算,然后要注意以下00也要算,还有数组的大小,这是坑倒别人的地方。

源代码:
var s:array[1..100000]of char; 
    ch:char; 
    i,hua,dui,n:longint; 
    t,z,m:boolean; 
begin 
  i:=0; 
  repeat 
   begin 
    hua:=0; dui:=0; t:=false; z:=false; m:=false; 
    repeat 
     begin 
      inc(i); 
      read(s[i]); 
      if s[i]='W' then begin inc(hua); end; 
      if s[i]='L' then begin inc(dui); end; 
      if (hua>=10) and (dui=hua+1) then t:=true; 
      if (dui>=10) and (hua=dui+1) then t:=true; 
      if (hua>=10) and (dui=hua+2) then m:=true; 
      if (dui>=10) and (hua=dui+2) then m:=true; 
      if (hua=11) or (dui=11) then z:=true; 
     end; 
    until ((z=true) and (t=false)) or (s[i]='E') or (m=true); 
    writeln(hua,':',dui); 
   end; 
  until s[i]='E'; 
  writeln; i:=0; 
  repeat 
   begin 
     hua:=0; dui:=0; t:=false; z:=false; m:=false; 
     repeat 
      begin 
       inc(i); 
       if s[i]='W' then begin inc(hua); end; 
       if s[i]='L' then begin inc(dui); end; 
       if (hua>=20) and (dui=hua+1) then t:=true; 
       if (dui>=20) and (hua=dui+1) then t:=true; 
       if (hua>=20) and (dui=hua+2) then m:=true; 
       if (dui>=20) and (hua=dui+2) then m:=true; 
       if (hua=21) or (dui=21) then z:=true; 
      end; 
     until ((z=true) and (t=false)) or (s[i]='E') or (m=true); 
     writeln(hua,':',dui); 
   end; 
  until s[i]='E'; 
end.

你可能感兴趣的:(寒假作业)