乒乓球问题 [复制链接]

题一、乒乓球（Table.pas）


【问题背景】国际乒联现在主席沙拉拉自从上任以来就立志于推行一系列改革，以推动乒乓球运动

在全球的普及。其中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

　

1.将1,2...9共9个数分成三组,分别组成三个三位数,且使这三个三位数构成1:2:3
的比例,试求出所有满足条件的三个三位数.
例如:三个三位数192,384,576满足以上条件.

乒乓球就一组一组统计
第二题穷举第一个

第一题模拟，第二题枚举。

第一题,是NOIp的题目,第二题用穷举

谢谢了,请打出2题的具体程序......谢谢

var
    a:array[0..9]of 0..1;
    i,j,k:integer;
procedure fs(s:integer);
begin
    while s>0 then
    begin
        a[s mod 10]:=1;
        s:=s div 10
    end
end;
begin
    for i:=100 to 333 do
    begin
        for j:=0 to 9 do a[j]:=0;
        fs(i);
        fs(i*2);
        fs(i*3);
        k:=0;
        for j:=1 to 9 do k:=k+a[j];
        if k=9 then writeln(i,' ',i*2,' ',i*3)
    end
end.

这是第二题的

var
a:array[1..1000000] of char;
s:longint;
x1,y1,x2,y2:integer;
procedure old;
var i:longint;
begin
writeln;
for i:=1 to s-1 do
　　begin
　　  if a[i]='W' then
　　　　inc(x2);
　　  if a[i]='L' then
　　　　inc(y2);
　　  if (x2>=21) or (y2>=21) then
　　　　if ((x2-y2>1)) or ((y2-x2)>1)then
　　　　  begin write(x2,':',y2);writeln;x2:=0;y2:=0;end;
　　end;
write(x2,':',y2);
writeln;
end;
procedure new;
begin
s:=0;
x1:=0;y1:=0;x2:=0;y2:=0;
while true do
　　begin
　　  inc(s);
　　  read(a[s]);
　　  if a[s]='E' then begin write(x1,':',y1);writeln;old;halt;end;
　　  if a[s]='W' then
　　　　inc(x1);
　　  if a[s]='L' then
　　　　inc(y1);
　　  if (x1>=11) or (y1>=11) then
　　　　if (abs(x1-y1)>1) then
　　　　  begin write(x1,':',y1);writeln;x1:=0;y1:=0;end;
　　end;
end;
begin
new;
end.

这是第一题的

最重要的是理解...