Suma de Subconjuntos

[sinalocarlos]

Es cierto no me explique bien

dado el conjunto

Ident Valor
1 [ 4 ]
2 [ 13 ]
3 [ 18 ]
4 [ 25 ]
5 [ 32 ]
6 [ 36 ]
7 [ 51 ]
8 [ 68 ]
9 [ 69 ]
10 [ 76 ]

busco aquellos identificadores cuyo valor es 96 que para este ejemplo serian:
[1,5,7] (no calcule para ver si existen mas) entonces seria sacar todos aquellos subconjuntos en donde la suma de su valor sea dicha cantidad

espero haberme explicado bien esta ves

saludos

[ContraVeneno]

Vamos a ver si entendí...

El usuario quiere saber como se puede sacar el 96, de entre los datos que tienes en la lista.

Según tu, con los elementos 1, 5 y 7, cuyos valores son 4, 32 y 51 sería el resultado esperado... el problema es que esto no me da 96, así que no se si estoy entendiendo bien.

[sinalocarlos]

vaya que no gano para erratas este dia

Tienes razon en lo que dices ContraVeneno, son 2,5,7 cometi un error al anotar 1,5,7

Pero tu supuesto de que es lo que se quiere es el correcto, alguna idea??

Modificando un codigo encontrado en una pagina de la cual les devo el link tengo esta funcion:

Código Delphi [-]

function Tmain_frm.SUMASUB(X:Tarr; k: integer; s:real; r:real; M:real):boolean;
var
        res:boolean;
begin
res:=FALSE;
 if (s = M)  then
 begin
    showmessage('lo encontro');        //        PRINT(A[])
res:=TRUE;
end
 else
 begin

         if (s + X[k].valor <= M)  then
         begin
                X[k].elegido := 1;
                SUMASUB(X,k + 1,s + X[k].valor,r - X[k].valor, M)
         end
         else
         begin
                 X[k].elegido := 0;
                 if ((s + r)>= (X[k].valor )) and ((X[k].valor ) <= (M))  then
                        SUMASUB(X, k + 1, s, r - X[k].valor, M)
         end;
 end;
end;

X: arreglo de registros con los campos elegido, valor y el identificador
k: empieza en 1 y sirve como contador
s: aculado del valor sumado
r: total del valor de los elementos que quedan por revisar
M: valor buscado

Saludos

[[Lepe]]

y digo yo ¿no sería posible cambiar los "Valores".

En programación el 2 elevado a N da mucho juego, con él puedes conseguir fácilmente esos valores que forman la suma.

Ident Valor
1 [ 1 ]
2 [ 2 ]
3 [ 4 ]
4 [ 8 ]
5 [ 16 ]
6 [ 32 ]
7 [ 64 ]
8 [ 128 ]
9 [ 256 ]
10 [ 512 ]

Tampoco intentes buscar otra posible suma para obtener el 96, en este caso usaríamos 6,7

Saludos