习语言编程求解 约瑟夫环问题

程序代码文件“约瑟夫环问题.习”内容如下：

程序名称：约瑟夫环问题
程序功能：
作者：
单位：
时间：

概述：
设有n个人围坐在圆桌周围，现从某个位置m（1≤m≤n）上的人开始报数，报数到k的人就站出来。下一个人，即原来的第k+1个位置上的人，又从1开始报数，再报数到k的人站出来。依此重复下去，直到全部的人都站出来为止。试设计一个程序求出出列序列。
输入：三个数，分别是n,m,k
输出：出列的顺序

算法描述：
动态分配一块内存构造数组模拟队列，队列内存人编号，模拟报数过程，碰到出列的人就排到队列末尾， 直到只剩一个人，停止。
队列从尾部到头部打印出内容即为出列顺序。

运行流程：



〖

1. #包含 “习语言系统.接口”
   
2. 
   
3. 整数类型 主函数（整数类型 参数个数， 字符串类型 参数[] ）
   
4. 开始   
   
5. 自然数 甲，乙，丙， 总人数， 起始位置， 出列数字， *队列， 当前人数，报数， 位置；
   
6. 
   
7.   输出字符串并换行("习语言实现约瑟夫环问题求解开始");
   
8. 【输入】  
   
9.   格式输出（“%（换行）请输入总人数n，起始位置m，出列数字k，以空格分隔：”）；
   
10.   格式输入（“%(自然数) %(自然数) %(自然数)”， &总人数， &起始位置， &出列数字 ）；
    
11.   格式输出（“总人数= %(自然数)， 起始位置=%(自然数)， 出列数字= %(自然数)%（换行）”，总人数， 起始位置， 出列数字 ）；
    
12.   如果（ 总人数 小于 1  或 起始位置 等于 0 或 起始位置 大于 总人数 或 出列数字 小于 1 ）
    
13.   {
    
14.    输出字符串并换行("输入错误！");
    
15.    暂停（）；
    
16.    返回 1；
    
17.   }   
    
18.   
    
19. 【申请内存及初始化】
    
20.   队列 = （自然数 *）申请内存数组（总人数+1， 类型长度（自然数））；  
    
21.   步进循环（ 甲 赋值 1；甲 小于等于 总人数； 甲 加加 ）
    
22.    队列[甲] = 甲；
    
23. 
    
24. 【运算开始】
    
25. 当前人数 = 总人数；
    
26. 报数 = 1；
    
27. 位置 = 起始位置；
    
28. 当（ 当前人数 大于 1 ） 重复
    
29. {
    
30.   如果（ 报数 等于 出列数字 ）
    
31.   {【出列处理】
    
32.    乙 = 队列[位置]；
    
33.    步进循环（ 甲 = 位置； 甲 小于 当前人数； 甲 加加 ）
    
34.     队列[甲] = 队列[甲+1]；
    
35.    队列[当前人数] = 乙；
    
36.    
    
37.    当前人数 --；
    
38.    报数 = 1；   
    
39.   }
    
40.   否则
    
41.   {
    
42.    报数 加加；
    
43.    位置 加加；
    
44.   }
    
45.   如果（位置 大于 当前人数 ）
    
46.    位置 = 1；
    
47. }
    
48. 【出列顺序为数组内容，倒着从尾部到头】
    
49.   格式输出（“出列序列为：%行”）；
    
50.   步进循环（ 甲 = 总人数； 甲 大于 0 ; 甲 -- )
    
51.   {
    
52.   格式输出（“%（自然数）、”， 队列[甲]）；
    
53.   }  
    
54.   格式输出（“%行%行”）；
    
55.   释放内存( 队列 );
    
56.         
    
57.   输出字符串并换行("习语言实现约瑟夫环问题求解结束");
    
58.   暂停（）；
    
59.   返回 0;
    
60. 结束   

复制代码

〗

修订历史：



运行结果如下：