Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Generar bloques de números (https://www.clubdelphi.com/foros/showthread.php?t=54773)

Natasha Nortman 30-03-2008 13:45:30

Generar bloques de números
 
Saludos al club.
Necesito generar todas las combinaciones posibles entre el 1 y el 100 en bloques de 10 y que no se repita ningún bloque y guardarlos en un fichero.
Lo he intentado con contadores FOR y guardándolos en una base de datos access, pero lo he tenido que borrar todo, he montado un lio terrible, creo que el problemas en que no se por donde empezar.
Si alguien me puede ayudar se lo agradecería muy gustosamente.

Natasha Nortman desde Mijas – Málaga - España
Gracias

marcoszorrilla 30-03-2008 14:28:29

Quieres decir combinaciones de 100 elementos tomados de 10 en 10.

Ojo----->> 17.310.309.456.440,00

Si es así ese sería el número de elementos resultantes.

Un Saludo.

Natasha Nortman 30-03-2008 14:40:57

Correcto.

te pongo un ejemplo.

1-2-3-4-5-6-7-8-9-10
2-3-4-5-6-7-8-9-10-11
3-4-5-6-7-8-9-10-11-12
y así sucesivamente.

Es como una especie de loto pero en vez de ser 6 números combinados hasta 49, son 10 números combinados a 100.

Uf... estoy echa un lio.

Gracias.

gluglu 30-03-2008 15:04:19

Pero, los 10 números son siempre sucesivos ?

Si no son sucesivos, sino puede ser cualquier combinación, como indicas según tu comentario de 'loto', entonces ten en cuenta lo que dice Marcos, que el número de posibles combinaciones es extremadamente alto. :cool:

Natasha Nortman 30-03-2008 15:17:21

Si ya lo sé.

Sé perfectamente que la combinacion es muy alta.

Pero no necesito guardar todas las combinaciones posibles, solo las que reunan una cierta condición.

Gracias

Caral 30-03-2008 15:25:03

Hola
Pero no se ve ninguna combinación en el ejemplo???
Lo que se ve es un consecutivo.
1- a 10
2- a 11
3- a 12
4- a 13
y asi hasta llegar a 100.
Si fueran combinaciones, serian numeros al azar.
1-3-2-4-7-8-5-6-10-9
2-5-4-6-7-9-10-11-3-8
Saludos

seoane 30-03-2008 15:29:00

Cita:

Empezado por Natasha Nortman (Mensaje 276259)
Sé perfectamente que la combinacion es muy alta.

Pero no necesito guardar todas las combinaciones posibles, solo las que reunan una cierta condición.

Creo que no te estas dando cuenta de la enormidad de esa cifra, necesitarías varios miles de Gigabytes para guardar esa información en un archivo. Me sorprendería que tuvieras un disco de esa capacidad :p

gluglu 30-03-2008 15:37:01

Entonces la solución la has indicado tu ya previamente. Con bucles tipo For.

Código Delphi [-]
For A1 = 1 to 100 do begin
  For A2 = A1 + 1 to 100 do begin
    For A3 = A2 + 1 to 100 do begin
      For A4 = A3 + 1 to 100 do begin
        For A5 = A4 + 1 to 100 do begin
          For A6 = A5 + 1 to 100 do begin
            For A7 = A6 + 1 to 100 do begin
              For A8 = A7 + 1 to 100 do begin
                For A9 = A8 + 1 to 100 do begin
                  For A10 = A9 + 1 to 100 do begin
                    // Tu combinación será :
                    // A1, A2, A3, A4, A5, A6, A7, A8, A9, A10
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;

Natasha Nortman 30-03-2008 15:47:54

Gracias voy a probar.

Un beso.


La franja horaria es GMT +2. Ahora son las 14:01:46.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi