Goto

2390 P(0) = 145 :P(1) = 285 :P(2) = 285 :P(3) = 285

2720 CLS:PRINT"(14) * * * * * RNG Looping Test * * * *

2400 FOR 1=1 TO 1000

2410 J = RND(10) :K= RND(10) :L=RND(10)

2730 DIM A(100) :R = RND(0) :A(0) = R

2420 IF J > K THEN IF J > L THEN J(1) = J(1) +1

2740 PRINT :INPUT"Test 'RND' at Intervals of"; W$ :W=VAL(W$)

2430 IF K > J THEN IF K > L THEN J(2) = J(2) +1

2750 IF W>0 AND W=INT(W) GOTO 2770

2440 IF L> J THEN IF L> K THEN J(3) = J(3) +1

2760 PRINT'Your Entry '"¡WS;"' Is Illegal. Try Again":GOTO 2740

Was this article helpful?

0 0

Post a comment