求大神把下面易语言代码遍成e4a 代码或分亨个相关类库
.子程序 _按钮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 )
.如果真结束
i ＝ i ÷ 2
j ＝ j ＋ 1
.判断循环尾 ()
.如果真 (k ＝ n)
编辑框1.加入文本 (临时文本 ＋ #换行符)
.如果真结束
.计次循环尾 () 本帖最后由 jiyi 于 2019-12-16 01:41 编辑
写完才觉得,你这积分给的真少！{:4_89:}{:4_89:}{:4_89:}{:4_89:}{:4_89:}{:4_89:}
'========以下为代码==========
事件 按钮1.被单击()
变量 数组文本 为 文本型()
变量 n 为 整数型 = 3
变量 循环次数 为 整数型
变量 i 为 整数型 = 1
变量 is 为 整数型
变量 k 为 整数型
变量 临时文本 为 文本型
变量 j 为 整数型
变量 文本 为 文本型 = ""
数组文本 = 分割文本("1,2,3,4,5",",")
循环次数 = 求次方(2, 取数组成员数(数组文本)) - 1
判断循环首 i < 循环次数
is = i
k = 0
临时文本 = ""
j = 0
判断循环首 is <> 0
如果 (取整(求余数(is, 2)) = 1) 则
k = k + 1
临时文本 = 临时文本 & 数组文本 (j)
结束 如果
is = is / 2
j = j + 1
判断循环尾
如果 (k = n) 则
文本 = 文本 & 临时文本 & "\n"
结束 如果
i = i + 1
判断循环尾
编辑框1.内容 = 文本
结束 事件
函数 求次方(欲求次方数值 为 整数型, 次方数 为 文本型) 为 整数型
变量 i 为 整数型 = 1
求次方 = 1
判断循环首 i < 次方数 + 1
求次方 = 求次方 * 欲求次方数值
i = i + 1
判断循环尾
结束 函数
很简单的，易语言和e4a差不多，但我手机不是电脑，没空 进来看看了解一下 ( •̀∀•́ )~\(≧▽≦)/~多谢大神了，我先用一下。 大神，中间那求次方不能用，编译不了。 木头人 发表于 2019-12-16 13:22
大神，中间那求次方不能用，编译不了。
嗯？？？？？？？？？？？？ 帮不上您忙 但支持你下 能帮我用表达式赋值一下吗，我不会用表达式，太难了！ 求大神把下面易语言代码遍成e4a 代码或分亨个相关类库
页:
[1]
2