木头人 发表于 2020-5-3 01:18:40

求大神帮忙

我的要求是：给临时文本加个少于5个数相连的判断，如：1 2 3 4 5 8 9 10
               1 2 3 4 6 7 8 9
第一组不要加入编辑框1内容，第二组可以，代码：
.子程序 _按钮1_被单击
.局部变量 a, 整数型, , "30"
a ＝ { 1, 2, 3, 4, 5，6，7，8，9，10，11，12，13，14，15，16，17，18，19，20，21，22，23，24，25，26，27，28，29，30 }
排列 (a, 8)
.子程序 排列
.参数 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.加入文本 (临时文本 ＋ #换行符)
.如果真结束
.计次循环尾 ()

yudave 发表于 2020-5-3 12:24:35

就来看看了

XF谭镇洋 发表于 2020-5-3 15:36:16

局部变量 x, 整数型
局部变量 t, 整数型

木头人 发表于 2020-5-3 22:29:13

XF谭镇洋 发表于 2020-5-3 15:36


什么意思？

XF谭镇洋 发表于 2020-5-4 09:42:30

木头人 发表于 2020-5-3 22:29
什么意思？

没写完，请稍候

木头人 发表于 2020-5-12 12:09:35

.版本 2

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

.子程序 _按钮1_被单击
.局部变量 a, 整数型, , "30"

a ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30 }
排列 (a, 8)


.子程序 排列
.参数 a, 整数型, 数组
.参数 n, 整数型
.局部变量 m, 文本型, , "8"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 k, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 e, 整数型
.局部变量 f, 整数型
.局部变量 g, 整数型
.局部变量 h, 整数型
.局部变量 l, 整数型
.局部变量 临时文本, 文本型
.局部变量 临时文本1, 文本型

.计次循环首 (到整数 (求次方 (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)
      m ＝ 分割文本 (临时文本, “ ”, n)
      b ＝ 到整数 (m )
      c ＝ 到整数 (m )
      d ＝ 到整数 (m )
      e ＝ 到整数 (m )
      f ＝ 到整数 (m )
      g ＝ 到整数 (m )
      h ＝ 到整数 (m )
      l ＝ 到整数 (m )
      .如果 (l － h ＝ h － g ＝ g － f ＝ f － e ＝ 1） 或 （h － g ＝ g － f ＝ f － e ＝ e － d ＝ 1） 或（ g － f ＝ f － e ＝ e － d ＝ d － c ＝ 1 ）或（ f － e ＝ e － d ＝ d － c ＝ c － b ＝ 1)

      .否则
            编辑框1.加入文本 (删尾空 (临时文本) ＋ “\n”)
      .如果结束
      临时文本1 ＝ 临时文本 ＋ “\n”
    .如果真结束

.计次循环尾 ()


我这样改有什么问题？
页: [1]
查看完整版本: 求大神帮忙