有要求的随机分拨，有点难度请求高手教学

lianzhong

00~99数组附件：
28 61 74 90 58 95 23 29 63 56
07 32 73 92 09 14 97 87 39 02
41 46 75 19 68 80 70 17 57 21
10 42 38 59 83 08 48 40 85 98
03 13 05 60 76 65 72 37 93 24
18 25 86 82 43 27 50 54 78 31
53 51 67 94 45 96 47 01 20 36
34 49 81 52 64 12 04 84 62 79
16 06 71 30 69 89 26 15 35 91
33 55 00 22 88 11 44 77 99 66

亮蓝色的风

仅供参考
00-99按要求随机.e (6.83 KB, 下载次数: 5)

2022-6-23 23:07 上传

点击文件名下载附件

爱的愤愤

玩具币!= RMB

城南花已开

这个100块钱都没人愿意弄吧，更不说100jb

城南花已开

试试看吧，用了二维数组，没研究过能不能打乱前9个得排序，自己研究吧！

lianzhong

城南花已开 发表于 2022-6-23 12:35
试试看吧，用了二维数组，没研究过能不能打乱前9个得排序，自己研究吧！
...

感谢“城南花已开”老师伸手相助！没想到这么快竟然实现了，有点惊讶，我都做好了无人回复的心里准备了，真的很感谢。不过也发现一点小瑕疵，由于是新手一时间也找不到问题所在，请求老师再次相助指点点问题出在哪里了？表里会错误出现两个相同的数组，因为100个数组是惟一的不可能会重复。

城南花已开

lianzhong 发表于 2022-6-23 16:55
感谢“城南花已开”老师伸手相助！没想到这么快竟然实现了，有点惊讶，我都做好了无人回复的心里准备了， ...

nArray [int] [9]  找一下这句代码，然后 用上面  数组_取次数 的方法判断 给 nArray [int] [9] 赋值内容 是否存在



.版本 2
.支持库 iext

.子程序 生成子程序, , 公开
.局部变量 int, 整数型
.局部变量 i, 整数型
.局部变量 Tmp, 文本型
.局部变量 nArray, 文本型, , "10,10"
.局部变量 Num, 文本型
.局部变量 random, 文本型
.局部变量 random_, 文本型
.局部变量 sy, 整数型
.局部变量 Num_9, 文本型

.计次循环首 (10, int)
    置随机数种子 ()
    .计次循环首 (8, i)
        .循环判断首 ()
            .循环判断首 ()
                random ＝ 到文本 (取随机数 (0, 9))
                random_ ＝ 到文本 (取随机数 (0, 9))
            .循环判断尾 (random ＝ random_)
        .循环判断尾 (数组_取次数 (nArray, random ＋ random_) ≠ 0)
        nArray [int] ＝ random ＋ random_
    .计次循环尾 ()
    .循环判断首 ()
        Num_9 ＝ 文本_颠倒 (nArray [int] [取随机数 (1, 8)], 假)
    .循环判断尾 (数组_取次数 (nArray, Num_9) ≠ 0)
    nArray [int] [9] ＝ Num_9
    Num ＝ 到文本 (取随机数 (0, 9))
    nArray [int] [10] ＝ Num ＋ Num
.计次循环尾 ()

List.可视 ＝ 假
.计次循环首 (10, int)
    .计次循环首 (10, i)
        List.置标题 (i － 1, int － 1, nArray [int] )
    .计次循环尾 ()
.计次循环尾 ()
List.可视 ＝ 真


或者复制 这个子程序，替换我上面发你的那个demo里的子程序

lianzhong

首先感谢“城南花已开”老师的二次修正，但遗憾的是修正过的代码依然有错，错误有两点：1依然存在重复的数组，并没完全采用100个数组，2每一列中镜像数组并不是唯一的，有些列中存在两组以上，这与要求只能1组不符，另程序会进入死循环。感谢“亮蓝色的风”这是老师你第二次给于的帮助了，老师的这次方案已经测试过，1实现了随机分组，2每列中都出现了镜像数组，3刚好采用100个不多也不少，但也有小遗憾，老师的方案也没有实现“每列中只能存在1组镜像码”每列中出现了多组镜像码，看来本次要求确实有难度，两位老师出手都没全实现，不过都差不多已经实现99%，已经很感谢两位老师了。

lianzhong

再顶上一次，如果老师们不在有回复了今天就结贴，虽然有一点点小遗憾也收获很多，感谢，剩下的问题自己摸索好了。