求大神把下面易语言代码遍成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 [j])
.如果真结束
i ＝ i ÷ 2
j ＝ j ＋ 1
.判断循环尾 ()
.如果真 (k ＝ n)
编辑框1.加入文本 (临时文本 ＋ #换行符)
.如果真结束
.计次循环尾 ()

jiyi

        
写完才觉得,你这积分给的真少！
        
'========以下为代码==========
事件 按钮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
        判断循环尾
结束 函数

chengwei5714869

很简单的，易语言和e4a差不多，但我手机不是电脑，没空

yudave

进来看看了解一下

木头人

( •̀∀•́ )~\(≧▽≦)/~多谢大神了，我先用一下。

木头人

大神，中间那求次方不能用，编译不了。

jiyi

木头人 发表于 2019-12-16 13:22
大神，中间那求次方不能用，编译不了。

嗯？？？？？？？？？？？？

haozhengtu

帮不上您忙 但支持你下

木头人

能帮我用表达式赋值一下吗，我不会用表达式，太难了！

yuyeyubee

求大神把下面易语言代码遍成e4a 代码或分亨个相关类库