杭州交通信息网化学物质的量总结:用pascal编程模拟剪刀、石头、布游戏
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/27 14:31:34
编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。规则是：剪刀剪布，石头砸剪刀，布包石头。游戏者分别把自己的选择输入，计算机给出结果。
program SRP_GAME;
const
s1='Player one win!';
s2='Player two win!';
s3='No winner.';
var
p1,p2:integer;
procedure init(var x:integer);
var
t:char;
begin
readln(t);
case t of
'S': x:=1;
'R': x:=2;
'P': x:=3;
end;
end;
begin
write('Player one: ');
init(p1);
write('Player two: ');
init(p2);
case p1-p2 of
-2: writeln(s1);
-1: writeln(s2);
0: writeln(s3);
1: writeln(s1);
2: writeln(s2);
end;
end.
（每一行前面的空格都不见了......）
可以加一个循环实现重复玩，键入“X”结束。