|
Post by es5100 on Apr 24, 2013 3:13:15 GMT
I need some help here. I can get the program to print unique lotto numbers but it will not locate a specific number for me. I keep getting an error on line 31. This is not homework, just a little project I'm working on. Here it is:(copy it and try to run it):
CLS
COLOR 15, 1
1 REM lotto
20 DIM n(56) 21 INPUT "please type a random-number seed"; seed 25 RANDOMIZE seed 'initialize random number seed 30 FOR i = 1 TO 56 40 a = INT(RND(1) * 56) + 1
50 FOR j = 1 TO i 60 IF n(j) = a THEN GOTO 40 70 NEXT j 80 n(i) = a 90 NEXT i 100 FOR i = 1 TO 56
110 PRINT n(i); 120 NEXT i 125 PRINT INPUT "what number do you want to search for?(enter 0 to quit)"; position
somenumber = CINT(position) 'change it to an integer IF somenumber < 0 THEN somenumber = 1 'if it's less than 0, let it = 1 IF somenumber > 56 THEN somenumber = 56 'if it's bigget than 56,let it =56 PRINT "position containing"; somenumber; "are:"; FOR cnt = 1 TO 56 IF somenumber = somearray(cnt) THEN PRINT cnt;
NEXT cnt PRINT "finish up"
|
|