題意

對于一系列比賽信息的輸入（WL形式），輸出正確的結果。

分析

如果理解了題目，那么就能做出這題。

var
i,n,x,y:longint;
w:char;
a:array[0..100000]of char;
begin
? ? n:=0;
? ? repeat
? ? ? ? ?read(w);
? ? ? ? ?if (w='W')or(w='L') then
? ? ? ? ?begin
? ? ? ? ? ? ?inc(n);
? ? ? ? ? ? ?a[n]:=w;
? ? ? ? ?end;
? ? until w='E';
? ? x:=0;y:=0;
? ? for i:=1 to n do
? ? begin
? ? ? ? if a[i]='W' then inc(x);
? ? ? ? if a[i]='L' then inc(y);
? ? ? ? if abs(x-y)>=2 then
? ? ? ? if (x>=11)or(y>=11) then
? ? ? ? begin
? ? ? ? ? ? writeln(x,':',y);
? ? ? ? ? ? x:=0;y:=0;
? ? ? ? end;
? ? end;
? ? writeln(x,':',y);
? ? writeln;
? ? x:=0;y:=0;
? ? for i:=1 to n do
? ? begin
? ? ? ? if a[i]='W' then inc(x);
? ? ? ? if a[i]='L' then inc(y);
? ? ? ? if abs(x-y)>=2 then
? ? ? ? if (x>=21)or(y>=21) then
? ? ? ? begin
? ? ? ? ? ? writeln(x,':',y);
? ? ? ? ? ? x:=0;y:=0;
? ? ? ? end;
? ? end;
? ? writeln(x,':',y);
end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500192.html

總結

以上是生活随笔為你收集整理的乒乓球的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。