Combinaciones Numero De 4 Cifras

[rbarzallo]

Buen dia Foro,

alguien me puede ayudar e indicar como puedo realizar en Delphi las combinaciones posibles de un numero de 4 cifras? es decir, a partir de un numero de 4 cifras previamente conocido.

Por ejemplo el 0027 o el 8012 y que no se repitan?

Agradeciendo de antemano su ayuda.

[roman]

¿Te refieres a las combinaciones de sus dígitos?

Toma cada uno de los dígitos y pégales las combinaciones de los tres restantes. Ahora tienes el mismo problema pero con menos dígitos, es decir, basta que resuelvas el problema para números de tres dígitos.

Para resolver este segundo problema, toma cada uno de los tres dígitos y pégales las combinaciones de los dos restantes. Ahora tienes el mismo problema pero con menos dígitos, es decir, basta que resuelvas el problema para números de dos dígitos.

Este tercer problema es trivial pues sólo hay dos combinaciones posibles para números de dos cifras, AB y BA.

Lo que estoy describiéndote es un proceso recursivo con el que puedes resolver el problema.

// Saludos

[ecfisa]

Hola rbarzallo.

Una forma de realizarlo: Declara cinco variables, una para almacenar los 4 dígitos y 4 mas para que recorran los cuatro números.

El algorímo se reduce a:

variables
n        
a,b,c,d 

comenzar

leer n.  // leer los 4 dígitos

para a <- 1 hasta 4 
  ... 
    ...
      ...
        si no((n[a]=n[b]) v (n[a]=n[c]) v (n[a]=n[d]) v 
              (n[b]=n[c]) v (n[b]=n[d]) v (n[c]=n[d])) entonces
           escribir (n[a],n[b],n[c],n[d]).
  ...

Saludos.

Edito: No lo puse en Pascal para que realices algo de la tarea...

[Casimiro Notevi]

Empezado por ecfisa

Edito: No lo puse en Pascal para que realices algo de la tarea...

Entre lo que ha explicado Román y el metacódigo que ha puesto ecfisa... ya casi tengo yo también mi programita de combinaciones.
Así sí que se aprende

[roman]

Yo, la verdad, no entendí el metacódigo (pero ya hice la tarea )

// Saludos

[ecfisa]

Empezado por roman

Yo, la verdad, no entendí el metacódigo

Seguramente por que el pseudocódigo que iría en lugar de los '...' no queda tán claro de deducir como yo pensaba...

Sería:

variables
n        
a,b,c,d 

comenzar

leer n 

para a <- 1 hasta 4 
  para b <- 1 hasta 4  
    para c <- 1 hasta 4 
      para d <- 1 hasta 4 
        si no((n[a]=n[b]) v (n[a]=n[c]) v (n[a]=n[d]) v (*)
              (n[b]=n[c]) v (n[b]=n[d]) v (n[c]=n[d])) entonces
           escribir (n[a],n[b],n[c],n[d]).
fin

(*) v = disyunción inclusiva

Saludos.

[Casimiro Notevi]

jejeje... puse metadato, lo corregí a medias y se quedó en metacódigo

[Casimiro Notevi]

Empezado por ecfisa

Seguramente por que el pseudocódigo que iría en lugar de los '...' no queda tán claro de deducir como yo pensaba...

A ver si lo que está preguntando es otra cosa, porque todavía no ha dicho nada.

[roman]

Quizá dejó el ejercicio y se fue a la escuela.

// Saludos

[ecfisa]

Empezado por Casimiro Notevi

A ver si lo que está preguntando es otra cosa, porque todavía no ha dicho nada.

Puede ser, pero me parece que es eso... realmente estuve amarrete con el primer código

Saludos.

[roman]

Bueno, mi solución tiene un error que ahora veo. La puse pensando en que las cifras del número no se repetían, pero si eso pasa debo descartar las repeticiones.

// Saludos

[rbarzallo]

ok, gracias por su ayuda.

Exactamente lo que necesito realizar es obtener las combinaciones de 4 digitos conocidos, pero de forma aleatoria.

Es decir, si tengo el numero 1963, obtener 6 combinaciones de dicho numero es decir, 1963, 1936, 1396, 1369, 1693, 1639

Gracias

[Casimiro Notevi]

No entiendo lo de "forma aleatoria"
Además tampoco entiendo lo de 6 combinaciones, ¿el 1 no cuenta?

[ecfisa]

Empezado por rbarzallo

ok, gracias por su ayuda.

Exactamente lo que necesito realizar es obtener las combinaciones de 4 digitos conocidos, pero de forma aleatoria.

Es decir, si tengo el numero 1963, obtener 6 combinaciones de dicho numero es decir, 1963, 1936, 1396, 1369, 1693, 1639

Gracias

Hola rbarzallo.

Se puede hablar de combinatoria cuando los grupos obtenidos se consideran diferentes si y solo sí, tienen un elemento diferente, por lo que en este caso estaríamos hablando de permutación. Es decir, se considera que un grupo es diferente a otro cuando difiere en el órden en que están dispuestos los elementos.

El número 1963 consta de cuatro dígitos y como es tomado de 4 en 4, sin ahondar en detalles, podemos decir que el número total de grupos a formar es 4! = 4.3.2.1 = 24

Los grupos obtenidos son:

1369  3169  6139  9136
1396  3196  6193  9163
1639  3619  6319  9316
1693  3691  6391  9361
1936  3916  6913  9613
1963  3961  6931  9631

Y aunque tal vez haya una mejor forma, es lo que realiza el pseudocódigo del mensaje #6 de este hilo.

Saludos.

[rbarzallo]

Correcto eficsa, eso es exactamente lo que estoy necesitando desarrollar en Delphi.

Saludos

[[AzidRain]]

Estaba pensando en las combinaciones y permutaciones, el famoso factorial (!) y mis clases de Mate IV en la Uni. La solución de eficsa es la correcta y además la más sencilla. Me acorde de una materia que se llamaba "Análisis Numérico" y que precisamente se trataba de resolver problemas matemáticos como este (hasta "Furias" de Fourier y "Transtornadas" de La Place) pero con la ayuda del lenguaje computacional de tu gusto. Era fenomenal esa clase.

[roman]

Empezado por ecfisa

El número 1963 consta de cuatro dígitos y como es tomado de 4 en 4, sin ahondar en detalles, podemos decir que el número total de grupos a formar es 4! = 4.3.2.1 = 24

Claro, pero el problema es cuando el número tiene cifras repetidas, como en el ejemplo que dio al principio: 0027, porque entonces hay aparecen combinaciones repetidas.

// Saludos

[ecfisa]

Empezado por roman

Claro, pero el problema es cuando el número tiene cifras repetidas, como en el ejemplo que dio al principio: 0027, porque entonces hay aparecen combinaciones repetidas.

// Saludos

Hola roman.

Estuve pensando en lo que comentas y no sé si estare hacertado conceptualmente, pero pienso que aún usando permutación con repetición, se debería consider la posición que ocupa el elemento en los grupos y no su valor. Si bién 0 y 0 tienen el mismo valor, no se refieren al mismo elemento.

Claro que tomando en cuenta lo anterior y con el condicional:

Código Delphi [-]
  if not((a=b)or(a=c)or(a=d)or(b=c)or(b=d)or(c=d)) then // tampoco serviría evaluar el valor (n[a]=n[b])...
    writeln(n[a],n[b],n[c],n[d]);

las repeticiones son inevitables.

Pero como te dije mas arriba, no estoy totalmente seguro cuál es el concepto que debiera considerarse, si el valor o el elemento...

Saludos.

[roman]

Entiendo lo que dices, pero eso ya tendrá que contestarlo el profesor.

// Saludos