' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' RANDOMIZE TIMER COLOR 15, 7: CLS COLOR 15, 1: PRINT " PROGRAMA PARA VER LA POSIBILIDAD DE QUE SALGAN NéMEROS SEGUIDOS EN LA BONOLOTO " COLOR 15, 1: LOCATE 24, 28: PRINT " Hecho en Ronda "; COLOR 0, 7 LOCATE 12, 20: PRINT "Con n£meros seguidos........" LOCATE 14, 20: PRINT "Sin n£meros seguidos........" LOCATE 16, 20: PRINT "N£mero de sorteos..........." LOCATE 6, 3: PRINT "Combinaci¢n ganadora --->" DO FOR n = 1 TO 6 Matriz(n) = INT(RND * 49) + 1 NEXT FOR n = 1 TO 6 LOCATE 6, 25 + n + n + n + n: PRINT Matriz(n) NEXT ssi = 0 Nno = 0 FOR n = 1 TO 6 c = Matriz(n) FOR Nn = 1 TO 6 IF c = ((Matriz(Nn)) - 1) THEN : ssi = 1: ELSE : Nno = 1 NEXT NEXT IF ssi THEN si = si + 1 ELSE no = no + 1 num = num + 1 LOCATE 12, 50: PRINT si LOCATE 14, 50: PRINT no LOCATE 16, 50: PRINT num LOOP WHILE INKEY$ = ""