标题RANDOMIZE与随机数
栏目软件操作与技巧
作者云南省昆明市第十六中学高二(3)班张峥
发布1993-10-01
要想使每次运行程序得到不同的随机数序,那么就要用RANDOMIZE来再激发随机数发生器。该语句以:RANDOMIZE(I)格式出现于程序中。其中I是随机数源,范围是-32768~+32767。如果省略I的值,则在执行RANDOMIZE之前要求回答:
Random Number seed(-32768to32767)?
回答的I值不同,则用RND所得的随机数序就不相同。这个I值也可以是程序中的变量或常量。
下面给出的这段程序,只要不是同一小时,同一分钟,同一秒钟启动的该程序,RND得到的就是完全不同的随机数序。
100 REMSUB-RND
110 FOR N=1 TO 10
120 A=TIME
130 B=LEFT(A,2)
140 C=RIGHT(LEFT(A,4),2)
150 D=RIGHT(A,2)
160 B=VAL(B):C=VAL(C);D=VAL(D)
170 A=B+C+D:RAN DOMIZE(A)
180 PRINT RND;:NEXT
(云南省昆明市第十六中学高二(3)班张峥)