rnd_demo.prg

来自「随机数的产生程序」· PRG 代码 · 共 37 行

PROCEDURE Main()                   //A simple demonstration.
LOCAL nTemp, i
LOCAL aF := {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
SET DECIMALS TO 15
SET FIXED ON
FOR i = 1 TO 1000
     nTemp := Int(NB_RND() * 1000)
     DO CASE
          CASE nTemp <= 100
               aF[1]++
          CASE nTemp <= 200
               aF[2]++
          CASE nTemp <= 300
               aF[3]++
          CASE nTemp <= 400
               aF[4]++
          CASE nTemp <= 500
               aF[5]++
          CASE nTemp <= 600
               aF[6]++
          CASE nTemp <= 700
               aF[7]++
          CASE nTemp <= 800
               aF[8]++
          CASE nTemp <= 900
               aF[9]++
          CASE nTemp <= 1000
               aF[10]++
     ENDCASE
NEXT
? Space(0)
FOR i = 1 TO 10
     ? aF[i]
NEXT
QUIT