Duda algoritmo conjuntos

[roman]

Empezado por Delfino

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]

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]

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