生成不重复随机数

.子程序 是否重复
.参数 数组, 整数型, 参考 数组
.参数 随机数, 整数型
.局部变量 整数, 整数型
.局部变量 计次, 整数型
.局部变量 个数, 整数型

.计次循环首 (取数组成员数 (数组), 计次)
.如果真 (数组 [计次] ＝ 随机数)
个数 ＝ 个数 ＋ 1
.如果真结束

.计次循环尾 ()
.如果真 (个数 ＜ 1)
加入成员 (数组, 随机数)