用pascal语言编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。规则是：剪刀剪布，石头砸剪刀，布包石头。游戏者分别把自己的选择输入，计算机给出结果。
答案:1 悬赏:20 手机版
解决时间 2021-08-14 11:00
- 提问者网友：川水往事
- 2021-08-14 06:20
用pascal语言编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。规则是：剪刀剪布，石头砸剪刀，布包石头。游戏者分别把自己的选择输入，计算机给出结果。
最佳答案
- 五星知识达人网友：洎扰庸人
- 2021-08-14 06:52
program shitoujianzibu;
var
ch:char;
q,k:byte;
begin
read(ch);
if ch='S' then q:=1;
if ch='R' then q:=0;
if ch='P' then q:=2;
randomize;
k:=random(2);
if k=q then begin write('ping ju');exit;end;
if (k-q=1) or (k-q=-2) then write('you lost') else write('you win');
end.
var
ch:char;
q,k:byte;
begin
read(ch);
if ch='S' then q:=1;
if ch='R' then q:=0;
if ch='P' then q:=2;
randomize;
k:=random(2);
if k=q then begin write('ping ju');exit;end;
if (k-q=1) or (k-q=-2) then write('you lost') else write('you win');
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯