关闭

1019:石头剪子布 分数: 1

239人阅读 评论(0) 收藏 举报
分类:

题目描述

现在有两个人在玩石头剪子布游戏,请你判断最后谁赢了。
用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.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:15101次
    • 积分:108
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档