春碗魔术解密(约瑟夫问题) 含易语言操作步骤

daduke7902 · 发表于 2024-2-11 19:17:49

今年春晚刘谦魔术火了，其实仔细分析就是数学问题，抽时间写了个易语言分析的程序，源码奉上。

' ’‘揭秘：
' 重要的步骤前我加了* 表示
' 第一个*号，就是从顶部拿3张牌插入中间，结果会怎样，不管原来几张牌如何排列，经过本步骤后一定会出现首张与尾张相同的情况，如果没做到，可以和小尼一桌。
' 这里延伸一下，如果魔术开始是5张牌，这里就要拿4张牌，依次类推。。。

' 第二个*号，很神奇，必须的步骤，使底牌排在了准确的位置，具体来说就是：
' 如果手余 5 张牌，循环一轮后底牌在第 3 位置，如果手余 6 张牌，循环一轮后底牌在第 5 位置，本操作很重要，使其正好符合约瑟夫序列

' 第三个*号，约瑟夫问题的实施。过程不能错

' 至于为何是下翻7张，其实也不是巧合，有兴趣去了解下约瑟夫问题，下面我们来分析约瑟夫问题的解法，递归法。

' 本程序只从程序算法角度解决问题，还有更好的数学解法，从略。

最后加上约瑟夫问题的解法，完美了

.版本 2

.子程序子程序报数问题
.局部变量 n, 整数型
.局部变量 m, 整数型
.局部变量 people, , , "0"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 count, 整数型

' 设有n个人（编号从1到n）围成一圈，从第一个人开始报数，数到m的人出列，然后从出列的下一个人开始重新报数，直到所有人依次出列。问，最后一个出列的人的编号是多少？
n ＝到整数 (编辑框3.内容)  ' 总人数)
m ＝到整数 (编辑框4.内容)  ' 报数到m的人出列
重定义数组 (people, 假, n)
.计次循环首 (n, i)
people ＝ 1  ' '初始化每个人的状态为在圈内
.计次循环尾 ()
count ＝ 0  ' 计数器，记录报数到m的人
i ＝ 1  ' 从第1个人开始报数
j ＝ 0  ' 记录出圈的人数
.判断循环首 (j ＜ n － 1)  ' 当出圈人数小于总人数时循环
.如果 (people ＝ 1)
      count ＝ count ＋ 1  ' 报数加1
      .如果 (count ＝ m)  ' 如果报数到m了
         count ＝ 0  ' 重新开始报数
         people ＝ 0  ' 将这个人标记为出圈
         j ＝ j ＋ 1  ' 出圈人数加1
         输出调试文本 (数组_hebing_整数 (people, “,”))
      .否则

      .如果结束

.否则

.如果结束
i ＝ i ＋ 1  ' 继续报数
.如果真 (i ＞ n)
      i ＝ 1  ' 如果到了最后一个人，则从第一个人继续报数
.如果真结束
。。。

源码下载：
用到了精易模块，请自行下载

扑克解密.e (966.06 KB, 下载次数: 56, 售价: 1 枚精币)

2024-2-11 19:13 上传
点击文件名下载附件

更多源码，点开头像查看

往期源码回顾：

【永久免费】易语言自动办公RPA 正式上线
https://bbs.125.la/forum.php?mod=viewthread&tid=14811066