Hola
Tengo 10 juegos, y me gustaría saber se hay una manera de generar varios juegos de 07 Dobles en lote
Ejemplo:
Me gustaría generar 07 dobles reducidos para cada una de las líneas abajo
01 02 03 04 06 07 08
02 03 04 05 07 08 09
03 04 05 06 08 09 10
01 04 05 06 07 09 10
01 02 05 06 07 08 10
01 02 03 06 07 08 09
02 03 04 07 08 09 10
01 03 04 05 08 09 10
01 02 04 05 06 09 10
01 02 03 05 06 07 10
Hay una manera de hacer esto , sin hacer uno a un manualmente ?
Combinar varios juegos de 07 dobles
Re: Combinar varios juegos de 07 dobles
Hola muttley
entiendo que tienes estos 10 n.
los quieres combinar de 7 en 7 (todos los casos posibles), 01 02 03 04 05 06 07 08 09 10
(se puede generar con otros nºs. distintos, ver código QBasic compartido en siguiente post)
aquí tienes la serie completa, generada por una rutina en QBasic, que pongo para descargar, la aplicación generará un fichero, con todas las columnas obtenidas, y numeradas, ademas de mostrarlas en pantalla.
(admite introducir 10 números cuales quiera, evitando repetidas), si bien es muy sencillo y no discrimina números de texto, en caso de repetir una de las 10 entradas, se reinicia.
fichero de salida: "10n. comb de 7 en 7", que mostrara esto;
1 * 1 2 3 4 5 6 7
2 * 1 2 3 4 5 6 8
3 * 1 2 3 4 5 6 9
4 * 1 2 3 4 5 6 10
5 * 1 2 3 4 5 7 8
6 * 1 2 3 4 5 7 9
7 * 1 2 3 4 5 7 10
8 * 1 2 3 4 5 8 9
9 * 1 2 3 4 5 8 10
10 * 1 2 3 4 5 9 10
11 * 1 2 3 4 6 7 8
12 * 1 2 3 4 6 7 9
13 * 1 2 3 4 6 7 10
14 * 1 2 3 4 6 8 9
15 * 1 2 3 4 6 8 10
16 * 1 2 3 4 6 9 10
17 * 1 2 3 4 7 8 9
18 * 1 2 3 4 7 8 10
19 * 1 2 3 4 7 9 10
20 * 1 2 3 4 8 9 10
21 * 1 2 3 5 6 7 8
22 * 1 2 3 5 6 7 9
23 * 1 2 3 5 6 7 10
24 * 1 2 3 5 6 8 9
25 * 1 2 3 5 6 8 10
26 * 1 2 3 5 6 9 10
27 * 1 2 3 5 7 8 9
28 * 1 2 3 5 7 8 10
29 * 1 2 3 5 7 9 10
30 * 1 2 3 5 8 9 10
31 * 1 2 3 6 7 8 9
32 * 1 2 3 6 7 8 10
33 * 1 2 3 6 7 9 10
34 * 1 2 3 6 8 9 10
35 * 1 2 3 7 8 9 10
36 * 1 2 4 5 6 7 8
37 * 1 2 4 5 6 7 9
38 * 1 2 4 5 6 7 10
39 * 1 2 4 5 6 8 9
40 * 1 2 4 5 6 8 10
41 * 1 2 4 5 6 9 10
42 * 1 2 4 5 7 8 9
43 * 1 2 4 5 7 8 10
44 * 1 2 4 5 7 9 10
45 * 1 2 4 5 8 9 10
46 * 1 2 4 6 7 8 9
47 * 1 2 4 6 7 8 10
48 * 1 2 4 6 7 9 10
49 * 1 2 4 6 8 9 10
50 * 1 2 4 7 8 9 10
51 * 1 2 5 6 7 8 9
52 * 1 2 5 6 7 8 10
53 * 1 2 5 6 7 9 10
54 * 1 2 5 6 8 9 10
55 * 1 2 5 7 8 9 10
56 * 1 2 6 7 8 9 10
57 * 1 3 4 5 6 7 8
58 * 1 3 4 5 6 7 9
59 * 1 3 4 5 6 7 10
60 * 1 3 4 5 6 8 9
61 * 1 3 4 5 6 8 10
62 * 1 3 4 5 6 9 10
63 * 1 3 4 5 7 8 9
64 * 1 3 4 5 7 8 10
65 * 1 3 4 5 7 9 10
66 * 1 3 4 5 8 9 10
67 * 1 3 4 6 7 8 9
68 * 1 3 4 6 7 8 10
69 * 1 3 4 6 7 9 10
70 * 1 3 4 6 8 9 10
71 * 1 3 4 7 8 9 10
72 * 1 3 5 6 7 8 9
73 * 1 3 5 6 7 8 10
74 * 1 3 5 6 7 9 10
75 * 1 3 5 6 8 9 10
76 * 1 3 5 7 8 9 10
77 * 1 3 6 7 8 9 10
78 * 1 4 5 6 7 8 9
79 * 1 4 5 6 7 8 10
80 * 1 4 5 6 7 9 10
81 * 1 4 5 6 8 9 10
82 * 1 4 5 7 8 9 10
83 * 1 4 6 7 8 9 10
84 * 1 5 6 7 8 9 10
85 * 2 3 4 5 6 7 8
86 * 2 3 4 5 6 7 9
87 * 2 3 4 5 6 7 10
88 * 2 3 4 5 6 8 9
89 * 2 3 4 5 6 8 10
90 * 2 3 4 5 6 9 10
91 * 2 3 4 5 7 8 9
92 * 2 3 4 5 7 8 10
93 * 2 3 4 5 7 9 10
94 * 2 3 4 5 8 9 10
95 * 2 3 4 6 7 8 9
96 * 2 3 4 6 7 8 10
97 * 2 3 4 6 7 9 10
98 * 2 3 4 6 8 9 10
99 * 2 3 4 7 8 9 10
100 * 2 3 5 6 7 8 9
101 * 2 3 5 6 7 8 10
102 * 2 3 5 6 7 9 10
103 * 2 3 5 6 8 9 10
104 * 2 3 5 7 8 9 10
105 * 2 3 6 7 8 9 10
106 * 2 4 5 6 7 8 9
107 * 2 4 5 6 7 8 10
108 * 2 4 5 6 7 9 10
109 * 2 4 5 6 8 9 10
110 * 2 4 5 7 8 9 10
111 * 2 4 6 7 8 9 10
112 * 2 5 6 7 8 9 10
113 * 3 4 5 6 7 8 9
114 * 3 4 5 6 7 8 10
115 * 3 4 5 6 7 9 10
116 * 3 4 5 6 8 9 10
117 * 3 4 5 7 8 9 10
118 * 3 4 6 7 8 9 10
119 * 3 5 6 7 8 9 10
120 * 4 5 6 7 8 9 10
entiendo que tienes estos 10 n.
los quieres combinar de 7 en 7 (todos los casos posibles), 01 02 03 04 05 06 07 08 09 10
(se puede generar con otros nºs. distintos, ver código QBasic compartido en siguiente post)
aquí tienes la serie completa, generada por una rutina en QBasic, que pongo para descargar, la aplicación generará un fichero, con todas las columnas obtenidas, y numeradas, ademas de mostrarlas en pantalla.
(admite introducir 10 números cuales quiera, evitando repetidas), si bien es muy sencillo y no discrimina números de texto, en caso de repetir una de las 10 entradas, se reinicia.
fichero de salida: "10n. comb de 7 en 7", que mostrara esto;
1 * 1 2 3 4 5 6 7
2 * 1 2 3 4 5 6 8
3 * 1 2 3 4 5 6 9
4 * 1 2 3 4 5 6 10
5 * 1 2 3 4 5 7 8
6 * 1 2 3 4 5 7 9
7 * 1 2 3 4 5 7 10
8 * 1 2 3 4 5 8 9
9 * 1 2 3 4 5 8 10
10 * 1 2 3 4 5 9 10
11 * 1 2 3 4 6 7 8
12 * 1 2 3 4 6 7 9
13 * 1 2 3 4 6 7 10
14 * 1 2 3 4 6 8 9
15 * 1 2 3 4 6 8 10
16 * 1 2 3 4 6 9 10
17 * 1 2 3 4 7 8 9
18 * 1 2 3 4 7 8 10
19 * 1 2 3 4 7 9 10
20 * 1 2 3 4 8 9 10
21 * 1 2 3 5 6 7 8
22 * 1 2 3 5 6 7 9
23 * 1 2 3 5 6 7 10
24 * 1 2 3 5 6 8 9
25 * 1 2 3 5 6 8 10
26 * 1 2 3 5 6 9 10
27 * 1 2 3 5 7 8 9
28 * 1 2 3 5 7 8 10
29 * 1 2 3 5 7 9 10
30 * 1 2 3 5 8 9 10
31 * 1 2 3 6 7 8 9
32 * 1 2 3 6 7 8 10
33 * 1 2 3 6 7 9 10
34 * 1 2 3 6 8 9 10
35 * 1 2 3 7 8 9 10
36 * 1 2 4 5 6 7 8
37 * 1 2 4 5 6 7 9
38 * 1 2 4 5 6 7 10
39 * 1 2 4 5 6 8 9
40 * 1 2 4 5 6 8 10
41 * 1 2 4 5 6 9 10
42 * 1 2 4 5 7 8 9
43 * 1 2 4 5 7 8 10
44 * 1 2 4 5 7 9 10
45 * 1 2 4 5 8 9 10
46 * 1 2 4 6 7 8 9
47 * 1 2 4 6 7 8 10
48 * 1 2 4 6 7 9 10
49 * 1 2 4 6 8 9 10
50 * 1 2 4 7 8 9 10
51 * 1 2 5 6 7 8 9
52 * 1 2 5 6 7 8 10
53 * 1 2 5 6 7 9 10
54 * 1 2 5 6 8 9 10
55 * 1 2 5 7 8 9 10
56 * 1 2 6 7 8 9 10
57 * 1 3 4 5 6 7 8
58 * 1 3 4 5 6 7 9
59 * 1 3 4 5 6 7 10
60 * 1 3 4 5 6 8 9
61 * 1 3 4 5 6 8 10
62 * 1 3 4 5 6 9 10
63 * 1 3 4 5 7 8 9
64 * 1 3 4 5 7 8 10
65 * 1 3 4 5 7 9 10
66 * 1 3 4 5 8 9 10
67 * 1 3 4 6 7 8 9
68 * 1 3 4 6 7 8 10
69 * 1 3 4 6 7 9 10
70 * 1 3 4 6 8 9 10
71 * 1 3 4 7 8 9 10
72 * 1 3 5 6 7 8 9
73 * 1 3 5 6 7 8 10
74 * 1 3 5 6 7 9 10
75 * 1 3 5 6 8 9 10
76 * 1 3 5 7 8 9 10
77 * 1 3 6 7 8 9 10
78 * 1 4 5 6 7 8 9
79 * 1 4 5 6 7 8 10
80 * 1 4 5 6 7 9 10
81 * 1 4 5 6 8 9 10
82 * 1 4 5 7 8 9 10
83 * 1 4 6 7 8 9 10
84 * 1 5 6 7 8 9 10
85 * 2 3 4 5 6 7 8
86 * 2 3 4 5 6 7 9
87 * 2 3 4 5 6 7 10
88 * 2 3 4 5 6 8 9
89 * 2 3 4 5 6 8 10
90 * 2 3 4 5 6 9 10
91 * 2 3 4 5 7 8 9
92 * 2 3 4 5 7 8 10
93 * 2 3 4 5 7 9 10
94 * 2 3 4 5 8 9 10
95 * 2 3 4 6 7 8 9
96 * 2 3 4 6 7 8 10
97 * 2 3 4 6 7 9 10
98 * 2 3 4 6 8 9 10
99 * 2 3 4 7 8 9 10
100 * 2 3 5 6 7 8 9
101 * 2 3 5 6 7 8 10
102 * 2 3 5 6 7 9 10
103 * 2 3 5 6 8 9 10
104 * 2 3 5 7 8 9 10
105 * 2 3 6 7 8 9 10
106 * 2 4 5 6 7 8 9
107 * 2 4 5 6 7 8 10
108 * 2 4 5 6 7 9 10
109 * 2 4 5 6 8 9 10
110 * 2 4 5 7 8 9 10
111 * 2 4 6 7 8 9 10
112 * 2 5 6 7 8 9 10
113 * 3 4 5 6 7 8 9
114 * 3 4 5 6 7 8 10
115 * 3 4 5 6 7 9 10
116 * 3 4 5 6 8 9 10
117 * 3 4 5 7 8 9 10
118 * 3 4 6 7 8 9 10
119 * 3 5 6 7 8 9 10
120 * 4 5 6 7 8 9 10
Última edición por juanknito el Mié 19 Jul, 2017 2:39 pm, editado 4 veces en total.
el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Re: Combinar varios juegos de 07 dobles
y la subrutina QBasic que lo hace (si alguien quiere el ejecutable exe para windows, que lo indique y lo pongo para descarga), nos creará un fichero txt, con todos los casos posibles numerados, además de mostrarlos en pantalla.
y especialmente si se quiere jugar otros nº. distintos al listado del post anterior (donde combinamos los nºs del 1 al 10 de 7 en 7).
código QBasic:
REM ************************** rutina para enparejar 10 n de 7 en 7 *********************************************************
1 DIM a$(11): COLOR 15, 3: CLS
LOCATE 5, 15: PRINT " ********** Combinacion de 10 numeros, escogidos de 7 en 7 **********"
FOR a = 1 TO 10
222 LOCATE 25, 1: PRINT " Introduce Numero "; a;: INPUT " de 10 y pulsa <Ù "; a$(a): CLS: LOCATE 10, 10: PRINT " Numeros introducidos: ":
FOR c = 1 TO a: IF a$(c + 1) = a$(c) THEN BEEP: LOCATE 15, 10: INPUT " Has repetido un numero, pulsa <Ù "; hh: CLS: CLEAR: GOTO 1
NEXT c
LOCATE 12, 12: PRINT a$(1); " "; a$(2); " "; a$(3); " "; a$(4); " "; a$(5); " "; a$(6); " "; a$(7); " "; a$(8); " "; a$(9); " "; a$(10)
NEXT a
LOCATE 25, 1: INPUT " Pulsa <Ù para continuar "; bbb: CLS
OPEN "10n comb de 7 en 7.txt" FOR OUTPUT AS #1
FOR w1 = 1 TO 4
FOR w2 = w1 + 1 TO 5
FOR w3 = w2 + 1 TO 6
FOR w4 = w3 + 1 TO 7
FOR w5 = w4 + 1 TO 8
FOR w6 = w5 + 1 TO 9
FOR w7 = w6 + 1 TO 10
caso = caso + 1: ll = ll + 1
IF ll + 5 > 20 THEN ll = 1: LOCATE 25, 1: INPUT "Pulsa <Ù para continuar "; mm: CLS:
LOCATE ll + 5, 10
PRINT USING " ### * "; caso;: PRINT a$(w1); " "; a$(w2); " "; a$(w3); " "; a$(w4); " "; a$(w5); " "; a$(w6); " "; a$(w7)
PRINT #1, caso; " * "; a$(w1); " "; a$(w2); " "; a$(w3); " "; a$(w4); " "; a$(w5); " "; a$(w6); " "; a$(w7)
NEXT w7, w6, w5, w4, w3, w2, w1
LOCATE 25, 1: BEEP: INPUT "Pulsa <Ù para continuar "; mm
CLOSE #1
LOCATE 25, 1: INPUT "Pulsa <Ù para FINALIZAR "; m: CLS: END
y especialmente si se quiere jugar otros nº. distintos al listado del post anterior (donde combinamos los nºs del 1 al 10 de 7 en 7).
código QBasic:
REM ************************** rutina para enparejar 10 n de 7 en 7 *********************************************************
1 DIM a$(11): COLOR 15, 3: CLS
LOCATE 5, 15: PRINT " ********** Combinacion de 10 numeros, escogidos de 7 en 7 **********"
FOR a = 1 TO 10
222 LOCATE 25, 1: PRINT " Introduce Numero "; a;: INPUT " de 10 y pulsa <Ù "; a$(a): CLS: LOCATE 10, 10: PRINT " Numeros introducidos: ":
FOR c = 1 TO a: IF a$(c + 1) = a$(c) THEN BEEP: LOCATE 15, 10: INPUT " Has repetido un numero, pulsa <Ù "; hh: CLS: CLEAR: GOTO 1
NEXT c
LOCATE 12, 12: PRINT a$(1); " "; a$(2); " "; a$(3); " "; a$(4); " "; a$(5); " "; a$(6); " "; a$(7); " "; a$(8); " "; a$(9); " "; a$(10)
NEXT a
LOCATE 25, 1: INPUT " Pulsa <Ù para continuar "; bbb: CLS
OPEN "10n comb de 7 en 7.txt" FOR OUTPUT AS #1
FOR w1 = 1 TO 4
FOR w2 = w1 + 1 TO 5
FOR w3 = w2 + 1 TO 6
FOR w4 = w3 + 1 TO 7
FOR w5 = w4 + 1 TO 8
FOR w6 = w5 + 1 TO 9
FOR w7 = w6 + 1 TO 10
caso = caso + 1: ll = ll + 1
IF ll + 5 > 20 THEN ll = 1: LOCATE 25, 1: INPUT "Pulsa <Ù para continuar "; mm: CLS:
LOCATE ll + 5, 10
PRINT USING " ### * "; caso;: PRINT a$(w1); " "; a$(w2); " "; a$(w3); " "; a$(w4); " "; a$(w5); " "; a$(w6); " "; a$(w7)
PRINT #1, caso; " * "; a$(w1); " "; a$(w2); " "; a$(w3); " "; a$(w4); " "; a$(w5); " "; a$(w6); " "; a$(w7)
NEXT w7, w6, w5, w4, w3, w2, w1
LOCATE 25, 1: BEEP: INPUT "Pulsa <Ù para continuar "; mm
CLOSE #1
LOCATE 25, 1: INPUT "Pulsa <Ù para FINALIZAR "; m: CLS: END
el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Re: Combinar varios juegos de 07 dobles
link descarga (ejecutable *.exe para windows y código *:bas para Qbasic):
http://ge.tt/9PLjcql2
pantallas del ejecutable para Windows:
http://ge.tt/9PLjcql2
pantallas del ejecutable para Windows:
el Karma Instantáneo existe, REPARTE con los que COMPARTEN.