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.