Question

易语言 数组排列算法

现在有一个数组 { 1 ，2 ，3 ，4 ，5 }
要求列出三位数字的所有组合。
例如：
1，2，3
1，3，4
2，3，4
等所有组合

Answer 1

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 a, 整数型, , "5"
a ＝ { 1, 2, 3, 4, 5 }
排列 (a, 3)
.子程序 排列
.参数 a, 整数型, 数组
.参数 n, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 k, 整数型
.局部变量 临时文本, 文本型
.计次循环首 (到整数 (求次方 (2, 取数组成员数 (a))) － 1, i)
k ＝ 0
临时文本 ＝ “”
j ＝ 1
.判断循环首 (i ≠ 0)
.如果真 (i ％ 2 ＝ 1)
k ＝ k ＋ 1
临时文本 ＝ 临时文本 ＋ 到文本 (a [j])
.如果真结束
i ＝ i ÷ 2
j ＝ j ＋ 1
.判断循环尾 ()
.如果真 (k ＝ n)
编辑框1.加入文本 (临时文本 ＋ #换行符)
.如果真结束
.计次循环尾 ()