用Pascal语言编译题目描述华华通过以下方式进行分析,首先将比赛每个球的胜负列成一张表,然后分别计算在11分制和21分制下,双方的比赛结果(截至记录末尾). 比如现在有这么一份记录,(其
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 14:50:30
![用Pascal语言编译题目描述华华通过以下方式进行分析,首先将比赛每个球的胜负列成一张表,然后分别计算在11分制和21分制下,双方的比赛结果(截至记录末尾). 比如现在有这么一份记录,(其](/uploads/image/z/8806146-42-6.jpg?t=%E7%94%A8Pascal%E8%AF%AD%E8%A8%80%E7%BC%96%E8%AF%91%E9%A2%98%E7%9B%AE%E6%8F%8F%E8%BF%B0%E5%8D%8E%E5%8D%8E%E9%80%9A%E8%BF%87%E4%BB%A5%E4%B8%8B%E6%96%B9%E5%BC%8F%E8%BF%9B%E8%A1%8C%E5%88%86%E6%9E%90%2C%E9%A6%96%E5%85%88%E5%B0%86%E6%AF%94%E8%B5%9B%E6%AF%8F%E4%B8%AA%E7%90%83%E7%9A%84%E8%83%9C%E8%B4%9F%E5%88%97%E6%88%90%E4%B8%80%E5%BC%A0%E8%A1%A8%2C%E7%84%B6%E5%90%8E%E5%88%86%E5%88%AB%E8%AE%A1%E7%AE%97%E5%9C%A811%E5%88%86%E5%88%B6%E5%92%8C21%E5%88%86%E5%88%B6%E4%B8%8B%2C%E5%8F%8C%E6%96%B9%E7%9A%84%E6%AF%94%E8%B5%9B%E7%BB%93%E6%9E%9C%EF%BC%88%E6%88%AA%E8%87%B3%E8%AE%B0%E5%BD%95%E6%9C%AB%E5%B0%BE%EF%BC%89.+%E6%AF%94%E5%A6%82%E7%8E%B0%E5%9C%A8%E6%9C%89%E8%BF%99%E4%B9%88%E4%B8%80%E4%BB%BD%E8%AE%B0%E5%BD%95%2C%EF%BC%88%E5%85%B6)
用Pascal语言编译题目描述华华通过以下方式进行分析,首先将比赛每个球的胜负列成一张表,然后分别计算在11分制和21分制下,双方的比赛结果(截至记录末尾). 比如现在有这么一份记录,(其
用Pascal语言编译
题目描述华华通过以下方式进行分析,首先将比赛每个球的胜负列成一张表,然后分别计算在11分制和21分制下,双方的比赛结果(截至记录末尾). 比如现在有这么一份记录,(其中W表示华华获得一分,L表示华华对手获得一分): WWWWWWWWWWWWWWWWWWWWWWLW 在11分制下,此时比赛的结果是华华第一局11比0获胜,第二局11比0获胜,正在进行第三局,当前比分1比1.而在21分制下,此时比赛结果是华华第一局21比0获胜,正在进行第二局,比分2比1.如果一局比赛刚开始,则此时比分为0比0. 你的程序就是要对于一系列比赛信息的输入(WL形式),输出正确的结果.本题输入的字符量较大.有效字符数量小于10万.
输入
每个输入文件包含若干行字符串(每行至多20个字母),字符串有大写的W、L和E组成,也许中间有若干个空格.其中E表示比赛信息结束,程序应该忽略E之后的所有内容,E后面可能有干扰文字.
输出
输出由两部分组成,每部分有若干行,每一行对应一局比赛的比分(按比赛信息输入顺序).其中第一部分是11分制下的结果,第二部分是21分制下的结果,两部分之间由一个空行分隔.
WWWWWWWWWWWE PYH119 Is King!
11:0
0:0
11:0
用Pascal语言编译题目描述华华通过以下方式进行分析,首先将比赛每个球的胜负列成一张表,然后分别计算在11分制和21分制下,双方的比赛结果(截至记录末尾). 比如现在有这么一份记录,(其
var c:char;
i,j,k,l,x,y,p,o:longint;
a,b:array[1..100000] of longint;
begin
repeat
inc(o);
read(c);
if c='W' then
begin
inc(x); inc(k);
end;
if c='L' then
begin
inc(y); inc(l);
end;
if c='E' then
begin
if o=1 then begin writeln('0:0'); writeln; writeln('0:0'); close(input); close(output); halt; end;
if (x>0) or (y>0) then writeln(x,':',y) else writeln('0:0');
inc(p); a[p]:=k; b[p]:=l; break;
end;
if ((x>10) or (y>10)) and (abs(x-y)>1) then
begin
writeln(x,':',y);
x:=0; y:=0;
end;
if ((k>20) or (l>20)) and (abs(k-l)>1) then
begin
inc(p);
a[p]:=k; b[p]:=l;
k:=0; l:=0
end;
until false;
writeln;
for i:=1 to p-1 do
writeln(a[i],':',b[i]);
if (a[p]>0) or (b[p]>0) then writeln(a[p],':',b[p]);
end.