社区讨论

福利

TTMOperaO
灌水区参与者 14已保存回复 40

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
40 条
当前快照
1 份
快照标识符
@mi6z3rgd
此快照首次捕获于
2025/11/20 13:10
4 个月前
此快照最后确认于
2025/11/20 17:13
4 个月前
查看原帖
有没有玩狼人杀的小伙伴呢？如果我们不想用手机玩狼人杀的话，那也不是很方便的哦。还要找张纸写上角色再撕开抽取，那么，我就让你without网络without流量等等等等，方方便便地抽狼人杀的角色！
PASCAL
var
  n,i,x:longint;
  a,b:array[0..1000] of longint;
begin
  readln(n);
  while (b[1]<n div 2+1)or(b[2]<1) do
  begin fillchar(b,sizeof(b),0);
  for i:=1 to n do begin a[i]:=random(6); b[a[i]]:=b[a[i]]+1; end; end;
  for i:=1 to n+1 do begin readln(x);
  case a[x] of
    1:writeln('Farmer'); //平民
    2:writeln('Wolfman'); //狼人
    3:writeln('Prophet'); //预言家
    4:writeln('Wizard'); //巫师
    5:writeln('Cupid'); //丘比特
    0:writeln(' ');  //结束输入
  end;
    end;
end.
//_(:з」∠)_
想知道这个程序怎么用吗？如下：
输入第一行：n，表示玩游戏的人数
接下来的n行，输入一个人的序号1-n，领取随机生成的角色，平民数量一定不会小于n的一半，狼人数量也不小于1
第n+1行，一个0，无意，结束数字，仅此而已

回复

共 40 条回复，欢迎继续交流。

正在加载回复...