易语言取随机数5-7位不重复并且排序的方法

.版本 2
.支持库 spec

.局部变量 a
.局部变量 b
.局部变量 c, 整数型
.局部变量 文本, 文本型
.局部变量 temp, 文本型, , “0”

置随机数种子 (987654321)
a = 9999
b = 9999999
.计次循环首 (100, )
c = 取随机数 (a, b)
.如果真 (寻找文本 (文本, 到文本 (c), , 假) = -1)
文本 = 文本 + 到文本 (c) + “|”
.如果真结束

.计次循环尾 ()
temp = 分割文本 (文本, “|”, )
数组排序 (temp, )

调试输出 (temp)

 

 

———————–

正在编译现行程序
正在检查重复名称…
正在预处理现行程序
正在进行名称连接…
正在统计需要编译的子程序
正在编译…
正在生成主程序入口代码
程序代码编译成功
正在封装易格式目的代码
开始运行被调试程序
* 数组:100{“17532”,“39116”,“32214”,“26361”,“26681”,“24113”,“16401”,“31812”,“23202”,“40278”,“14273”,“36128”,“31379”,“38715”,“18735”,“14010”,“21071”,“18336”,“29038”,“28914”,“27917”,“29816”,“26614”,“14698”,“42419”,“20891”,“33679”,“29917”,“21217”,“36027”,“26225”,“31411”,“29745”,“21913”,“13737”,“32466”,“17597”,“13944”,“24510”,“19894”,“22242”,“20690”,“13973”,“36548”,“40260”,“21067”,“24722”,“32987”,“34066”,“13795”,“25856”,“25901”,“34188”,“42351”,“22451”,“35917”,“18626”,“36682”,“26603”,“14728”,“20894”,“17480”,“22140”,“20601”,“17188”,“12779”,“38700”,“32984”,“11513”,“36058”,“41309”,“25747”,“33058”,“32654”,“13292”,“17440”,“38671”,“12623”,“36952”,“29969”,“24536”,“14687”,“28967”,“34537”,“12230”,“21109”,“16261”,“12846”,“16661”,“25196”,“19503”,“15807”,“21496”,“10813”,“36751”,“20072”,“36830”,“12843”,“13608”,“21684”}
被调试易程序运行完毕

Leave a Comment

 
Copyright © 2008-2021 lanxinbase.com Rights Reserved. | 粤ICP备14086738号-3 |