Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Duda algoritmo conjuntos (https://www.clubdelphi.com/foros/showthread.php?t=89262)

Delfino 26-10-2015 11:06:33

Duda algoritmo conjuntos
 
Esto va mas de algoritmos de conjuntos espero me puedan ayudar.
Teniendo un conjunto ordenador 1,2,3,4,5,6,7,8,9 como puedo saber partiendo de la obligacion de contar de tres en tres elementos por el numero de orden, que el elemento 1 es el primero, el 2 es el segundo, el 3 es el tercero, el 4 es el primero, el 5 es el segundo, el 7 es el peimero etc.
En caso de tener que partir de 4 pues lo mismo, 1 es el primero .. 4 es el cuarto, 5 es el primero, 6 es el segundo, 9 es el primero y asi.
Gracias por la ayuda..

mamcx 26-10-2015 14:09:40

Si el conjunto esta ordenado, es muy trivial. Solo tienes que avanzar por el valor de N y acumular los siguientes valores. Ya que esta ordenado, la respuesta esta implicita: El 1ero de cada sub-conjunto es el primero!.

O no entiendo cual es la duda...

Delfino 26-10-2015 14:13:26

La duda es como se puede saber que 4 es el primero del segundo subconjunto en caso de tener que avanzar por tres y cinco lo es si hay que avanzar/saltar de cuatro en cuatro.
Necesito automatizalo por una funcion matematica y no ir contando..
Gracias por la ayuda..

Casimiro Notevi 26-10-2015 14:40:06

Pero no se entiende el problema :confused:

Delfino 26-10-2015 14:42:17

Para aclarar un poco mas no quiero recorrer el conjunto.
Si me dan como parametro el numero cinco tengo que saber que es el elemento segundo, lo mismo si me dan el numero 8, eso cuando si se salta de tres en tres. Con los otros saltos su correspondiente. Pero siempre voy a estar buscando en un conjunto de enteros ordenado.Recibiendo parametro.
Espero haberme aclarado.

AgustinOrtu 26-10-2015 15:09:07

Hasta donde yo se los conjuntos se caracterizan por ser colecciones de elementos sin orden y sin repetecion

Casimiro Notevi 26-10-2015 15:11:37

Cita:

Empezado por Delfino (Mensaje 498369)
Para aclarar un poco mas no quiero recorrer el conjunto.
Si me dan como parametro el numero cinco tengo que saber que es el elemento segundo, lo mismo si me dan el numero 8, eso cuando si se salta de tres en tres. Con los otros saltos su correspondiente. Pero siempre voy a estar buscando en un conjunto de enteros ordenado.Recibiendo parametro.
Espero haberme aclarado.

Creo que tendrás que aclarar mejor la duda, ¿un array?, ¿una lista?, exactamente cómo es el contexto del problema.


PD: Por cierto, me gusta tu firma ;)

mamcx 26-10-2015 15:39:57

Cita:

Empezado por Delfino (Mensaje 498369)
Para aclarar un poco mas no quiero recorrer el conjunto.

A menos que tengas un conjunto donde solo sean numeros, y estos numeros mantengan que N = Nanterior + Mconstante no hay como hacer eso solo con una formula. Si tienes una lista como 2, 4, 6, 10, 12, aunque este ordenada no "brinca" al siguiente siguiendo una formula constante, asi que no hay como sacarla sin recorrer...

roman 26-10-2015 16:11:03

Cita:

Empezado por Delfino (Mensaje 498369)
Para aclarar un poco mas no quiero recorrer el conjunto.
Si me dan como parametro el numero cinco tengo que saber que es el elemento segundo, lo mismo si me dan el numero 8, eso cuando si se salta de tres en tres. Con los otros saltos su correspondiente. Pero siempre voy a estar buscando en un conjunto de enteros ordenado.Recibiendo parametro.
Espero haberme aclarado.

La verdad es que te has explicado fatal. Pero a ver si adivinamos.

Si el único parámetro es la longitud del salto pero siempre estás trabajando con los números consecutivos 1, 2, 3, 4 .., entonces algo como esto te puede servir:

Código Delphi [-]
function orden(N, Salto): Integer;
begin
  Result := ((N - 1) mod Salto) + 1;
end;

Pero si por conjunto ordenado te refieres a cualquier subcojunto de los números naturales pues, como dice mamcx, no hya nada qué hacer, a menos que tengas una función que te de el orden, es decir que te mapee 1, 2, 3, 4, etc. a tu conjunto..

// Saludos

ecfisa 26-10-2015 23:09:59

Hola Delfino.

Coincido con lo dicho por mamcx y roman sobre la consecutividad de los elementos, de no ser así hay que recorrerlos.

También muy acertada la pregunta de Casimiro. Si se trata de tipos enumerados de elementos consecutivos y siendo divisible en subconjuntos, podrías hacer:
Código Delphi [-]
type
  TEnum = Byte;
  TSet  = set of TEnum;

function GetPosEnum(const aSet: TSet; const aEnum: TEnum; const aPaso: Byte): Integer;
begin
  if not(aEnum in aSet) then
    Result := -1
  else if Ord(aEnum) mod aPaso = 0 then
    Result := aPaso
  else
    Result := Ord(aEnum) mod aPaso;
end;

Ejemplo de uso:
Código Delphi [-]
...
var
  s : TSet;
  e : TEnum;
  n : Integer;
begin
  s := [1,2,3,4,5,6,7,8,9,10,11,12];
  e := 11;

  n := GetPosEnum(s, e, 4); // (3 subconjuntos de 4 elementos)
  if n <> -1 then
    ShowMessage(Format('Posición de %d: %d',[e, n])) // Posición de 11: 3
  else
    ShowMessage('valor no encontrado')
end;

Saludos :)

Delfino 27-10-2015 08:38:52

Gracias a todos por las repsuestas, la solucion era con el operador mod, tal y como indico roman ;)
Gracias a todos :)


La franja horaria es GMT +2. Ahora son las 11:11:41.

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