易语言解决猴子分桃问题

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 最后数, 整数型
.局部变量 i, 整数型
.局部变量 b, 整数型

i ＝ 5
.判断循环首 (i ＞ 1)
    i ＝ i ＋ 1
    最后数 ＝ i
    .计次循环首 (5, b)
        最后数 ＝ 最后数 ＋ 最后数 ÷ 4 ＋ 1
        .如果真 (最后数 ％ 5 ≠ 1)
            跳出循环 ()
        .如果真结束
        .如果真 (最后数 ％ 5 ＝ 1 且 b ＝ 5)
            输出调试文本 (“一开始有桃子” ＋ 到文本 (最后数) ＋ “个。最后有桃子” ＋ 到文本 (i) ＋ “个”)
            信息框 (“一开始有桃子” ＋ 到文本 (最后数) ＋ “个。最后有桃子” ＋ 到文本 (i) ＋ “个”, 0, , )
            返回 ()
        .如果真结束

    .计次循环尾 ()
.判断循环尾 ()

.子程序 _按钮2_被单击
.局部变量 最初数, 整数型
.局部变量 i, 整数型
.局部变量 b, 整数型

i ＝ 5
.判断循环首 (i ＞ 1)
    i ＝ i ＋ 1
    最初数 ＝ i
    .计次循环首 (5, b)
        .如果真 (最初数 ％ 5 ≠ 1)
            跳出循环 ()
        .如果真结束
        最初数 ＝ (最初数 － 1) × 0.8
        .如果真 (最初数 ％ 5 ＝ 1 且 b ＝ 4)
            最初数 ＝ (最初数 － 1) × 0.8
            输出调试文本 (“一开始有桃子” ＋ 到文本 (i) ＋ “个。最后有桃子” ＋ 到文本 (最初数) ＋ “个”)
            信息框 (“一开始有桃子” ＋ 到文本 (i) ＋ “个。最后有桃子” ＋ 到文本 (最初数) ＋ “个”, 0, , )
            返回 ()
        .如果真结束

    .计次循环尾 ()
.判断循环尾 ()

@zouxiangning