1019:石头剪子布 分数: 1

题目描述

现在有两个人在玩石头剪子布游戏,请你判断最后谁赢了。
用R代表石头,S代表剪子,P代表布。

输入格式

输入的第一行是一个整数t(0<t<1000),表示测试样例的数目。
每组输入样例的第一行是一个整数n(0<n<100),表示游戏次数。
接下来n行,每行由两个字母组成,两个字母之间用一个空格分隔,这些字母只会是R,S或P。
第一个字母表示Player1的选择,第二个字母表示Player2的选择。

输出

对于每组输入样例,输出获胜方的名字(Player1或Player2),如果平均,则输出TIE。

样例输入

3
2
R P
S R
3
P P
R S
S R
1
P R

样例输出

Player 2
TIE
Player 1

program p1019;

var t,n,i,j,e,f:longint;a,b,c:char;

begin

 readln(t);

 for i:=1 to t do

  begin

   readln(n);

   e:=0;f:=0;

   for j:=1 to n do

   begin

   readln(a,c,b);

   if (a='R') and (b='S') or (a='P') and (b='R')

    or (a='S') and (b='P') then e:=e+1;

   if (a='S') and (b='R') or (a='P') and (b='S')

    or (a='R') and (b='P') then f:=f+1;

   end;

   if e>f then writeln('Player 1')

   else if e<f then writeln('Player 2')

   else writeln('TIE');

  end;

end.

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826559
个人分类: 编程
上一篇1019:石头剪子布 分数: 1
下一篇1021:恶搞指数
想对作者说点什么? 我来说一句

石头子布

2012年01月03日 3KB 下载

没有更多推荐了,返回首页

关闭
关闭