2011年北京市海淀区信息学竞赛中学组解题报告.docVIP

2011年北京市海淀区信息学竞赛中学组解题报告 NB2011初中组解题报告 NB2011初中组 T1 斯诺克 snooker 此题是模拟，基本按题目说的写就好。 需要注意的几点是： 1.打错的球不影响任何状态改变 2.打完15个红球之后特判 3.给对手加分时判断球分是否小于4 4.注意两人切换时除了击球次数重新算 其他状态均不变 代码: /gmtWn var i,rnum,q:longint; n,s:array[1..2] of longint; procedure deal(x:longint); var i,a:longint; begin for i:=1 to n[x] do begin read(a); if a=0 then inc(s[3-x],4) else if rnum15 then begin if odd(i) then begin if a1 then begin if a4 then inc(s[3-x],4) else inc(s[3-x],a); end else begin inc(s[x],1); inc(rnum); end; end else begin if a=1 then inc(s[3-x],4) else inc(s[x],a); end; end else begin if q=-1 then begin inc(s[x],a