Noip2003p1 乒乓球

来源:互联网 发布:网络配线图 编辑:程序博客网 时间:2024/04/29 13:59

题目:

 乒乓球

来源:

 Noip2003p1

题目大意:

 若干行字符串,’E’代表结束,’W’代表自己赢,’L’代表对手赢,分别输出11分制和21  分制的此时的比分情况,若大的一方大于11(21)且领先小的一方2及以上则该局结  束,两种比分中间有一个空行

数据范围:

 一行最多20个字符,总字符长度<=1000000

样例:

 WWWWWWWWWWWWWWWWWWWW

 WWLWE

11:0
11:0
1:1
 
21:0
2:1

做题思路:

 读字符然后模拟,读到E结束,如果读字符的话记得读个回车,不然就悲剧了。

知识点:

 模拟

var a1,a2,b1,b2:array[0..100000]of longint; i,j,k,t:longint; ch:char;begin i:=1;j:=1; whilenot eof do  begin  read(ch);  inc(t);   ift=20 then   begin    readln;    t:=0;   end;   ifch='E' then break;   ifch='W' then inc(a1[i]) else inc(a2[i]);   ifch='W' then inc(b1[j]) else inc(b2[j]);   if((a1[i]>=11)and(a1[i]-a2[i]>=2))or((a2[i]>=11)and(a2[i]-a1[i]>=2))then inc(i);   if((b1[j]>=21)and(b1[j]-b2[j]>=2))or((b2[j]>=21)and(b2[j]-b1[j]>=2))then inc(j);  end; fork:=1 to i do writeln(a1[k],':',a2[k]); writeln; fork:=1 to j do writeln(b1[k],':',b2[k]);end.


题目来源:http://yuanti.tyvj.cn:8080/Problem_Show.asp?id=1034

	
				
		
原创粉丝点击