Combinar varios juegos de 07 dobles

Programas, sistemas, condiciones, filtros...
Responder
muttley
11
11
Mensajes: 325
Registrado: Mié 12 Feb, 2014 11:58 pm

Combinar varios juegos de 07 dobles

Mensaje por muttley »

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 ?
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: Combinar varios juegos de 07 dobles

Mensaje por juanknito »

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
Ú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.
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: Combinar varios juegos de 07 dobles

Mensaje por juanknito »

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

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: Combinar varios juegos de 07 dobles

Mensaje por juanknito »

link descarga (ejecutable *.exe para windows y código *:bas para Qbasic):
http://ge.tt/9PLjcql2

pantallas del ejecutable para Windows:

Imagen




Imagen

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
muttley
11
11
Mensajes: 325
Registrado: Mié 12 Feb, 2014 11:58 pm

Re: Combinar varios juegos de 07 dobles

Mensaje por muttley »

Gracias
Responder