用pascal语言做猴子选大王

vara:array[1..10000]ofbyte;n,i,j,k,d,s:integer;beginfillchar(a,sizeof(a),1);readln(n);writeln;i:=2;k

这个是约瑟夫问题的最简单形式,可以用固定公式搞定,程序最简单,用时最少：varn,m,i,s:integer;beginread(n,m);fori:=2tondos:=(s+m)modi;write

for(k=0;k<n;k++){if(sz[k]==1){s=s+1;if(s==m){sz[k]=0,s=0,b=b+1;}}if (k==n-1){k=0;}if 

varn,round,i,j,k:integer;a:array[1..100,1..100]ofinteger;beginreadln(n);k:=1;forround:=1tondoifround

number就是题目中的m,返回值就是猴子的序号,代码中固定为6只猴子,这个可以自己扩展privateIListMonkeys;privateintElectKing(intnumber){Monke

vara:array[0..1000]ofboolean;m,n,i,s,t:integer;beginreadln(n,m);fillchar(a,sizeof(a),true);s:=0;i:=1

楼上的程序有点问题,应该是：varn,i:longint;beginn:=1;i:=10;whilei>1dobegini:=i-1;n:=(n+1)*2;end;writeln(n);end.——百

猴子选大王都用上计算机程序了呀?真是科学,比人选总统还先进.#include#includetypedefstructmonkey{intnum;structmonkey*next;}Monkey,*

programex01;vara:array[1..100000000]ofinteger;b,c:array[1..100]oflongint;i,n,m,x,y,j:longint;procedu

vara,b,c:integer;beginreadln(a,b,c);if(a>=b)and(a>=c)thenwrite(a,'');if(b>=c)and(b>=a)thenwrite(b,''

202是堆栈溢出,就是说系统栈溢出.直接原因是递归深度过大.你这里s是递归深度,一共使用的堆栈大小是s*(3*4)个byte,而系统提供的栈最大只有640kb,这就是说s最大不能超过91.解决方法只有

给你原文做了注释.#include#includetypedefstructLNode{intnum;structLNode*next;}LNode,*LinkList;//定义结点LinkListI

#include"stdio.h"#include"malloc.h"intSelectKing(intn,intm){inti,current,count,*monkey,in=1,out=0;mo

如果给好评的话,麻烦写一句：章鱼桶是个好人不确定具体题目,从网上摘抄来的题目：　　山上有n只猴子要选大王,选举办法如下：所有猴子从1到n进行编号并围坐一圈,从第一号开始按顺序1,2,...m继续报数,

{猴子选大王}var\x09a:array[1..10000]ofboolean;\x09i,j,k,n,s:integer;\x09forword:boolean;begin\x09readln(n

varq:array[1..1000]ofinteger;//循环队列b,e,c:integer;n:integer;i:integer;procedureadd(x:integer);beginin

{n只猴子选大王,数到3的淘汰,剩2只时数1的为大王}var\x09a:array[1..10000]ofinteger;{存放猴子序号}\x09i,j,k,n,s:integer;begin\x09

第一题varr,x,y:real;beginreadln(r);{读入半径}readln(x,y);{读入坐标}ifsqr(x)+sqr(y)=sqr(r)thenwriteln('yes'){这个是

这么多问题,不分过来谁答啊?而且没有分?!再问：谢谢指教，但。。。你给爹滚再答：我还就不滚了！！！！！！

满意请给分,谢!programex;typestudent=record//定义学生记录stuID:integer;//学号homework:boolean;//判断是否交作业end;varstu:a