石头剪子布
时间限制: 1 Sec 内存限制: 128 MB
提交: 9 解决: 8
[提交][状态][讨论版]
题目描述
石头剪子布，是一种猜拳游戏。起源于中国，然后传到日本、朝鲜等地，随着亚欧贸易的不断发展它传到了欧洲，到了近现代逐渐风靡世界。简单明了的规则，使得石头剪子布没有任何规则漏洞可钻，单次玩法比拼运气，多回合玩法比拼心理博弈，使得石头剪子布这个古老的游戏同时用于“意外”与“技术”两种特性，深受世界人民喜爱。
游戏规则：石头打剪刀，布包石头，剪刀剪布。
现在，需要你写一个程序来判断石头剪子布游戏的结果。
输入
输入包括N+1行：
第一行是一个整数N，表示一共进行了N次游戏。1 <= N <= 100。
接下来N行的每一行包括两个字符串，表示游戏参与者P1，P2的选择（石头、剪子或者是布）：
S1 S2
字符串之间以空格隔开S1,S2只可能取值在{"R", "S", "P"}（大小写敏感）中。
输出
输出包括N行，每一行对应一个胜利者（P1或者P2），或者游戏出现平局，则输出T。
样例输入
3 R S P P R P
样例输出
P1 T P2
分析
此题其实是考验Pascal字符读入的能力。
以下是读入方法
procedure inp;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then break; //break是直接跳出循环
s1:=copy(s,1,i-1);
s2:=copy(s,i+1,length(s);
end;
完整题解
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
const
ma:array[1..3] of string=('R','S','P');//分别是石头剪子布
var
s1,s2,s:string;
ch:char;
n,i,k,m:longint;
Function main(a1,a2:string):string;
var
i,j:longint;
begin
if a1=a2 then
exit('T');
for i:=1 to 3 do
if a1=ma[i] then
break;
for j:=1 to 3 do
if a2=ma[j] then
break;
if i+j=4 then //这种情况只能是一个石头一个布（i=3，j=1或i=1，j=3）
begin
if ithen //序号小的是石头
exit('P2');
if jthen
exit('P1');
end;
if i>j then exit('P2');
if j>i then exit('P1');
end;
begin
readln(n);
for k:=1 to n do
begin
s1:='';
s2:='';
readln(s);
m:=length(s);
for i:=1 to m do
if s[i]=' ' then break;
s1:=copy(s,1,i-1);
s2:=copy(s,i+1,m);
writeln(main(s1,s2));
end;
end.