SoloCodigo

Tengo una lista con, por ejemplo, los siguientes elementos: A, B, C, D, E y tengo que escribir todas las combinaciones posibles de N elementos (siendo N un parametro que me dan en la llamada del programa)
por ejemplo, para N=2 las combinaciones serían

A, B, C, D, E, AA, AB, AC, AD, AE, BA, BB, BC, BD, BE, CA, CB, CC, CD, CE, DA, DB, DC, DD, DE, EA, EB, EC, ED, EE

tengo que hacer una funcioncilla que me haga esto, y no se como hacerlo, agradezco cualquier sugerencia

Hola, que tal.

Eso es fácil, lo único que tienes que hacer es tomar tu primer caracter, luego el segundo, después el tercero y así sucesivamente hasta que completes los N carateres. Esto lo deberas hacer recursivamente para que cuando regrese tu función, tomes el siguiente caracter.

Espero que me hayas entendido como.

Hasta luego.

ya está hecho

bueno, al final conseguí hacer la combinacion, el codigo utilizado es el siguiente, es evidente que tengo una unidad para la gestion de las listas:


procedure Combinacion(M,N:integer; coleccion : tlista; var comb:tlista);
..var
....letra,aux : tlista;
..procedure Combina(pos : integer);
....var i:integer;
......s,pal:tinfo;
....begin
......pal:='';
......if pos > M then
........begin
..........aux:=letra;
..........while aux<>nil do
............begin
..............pal:=pal+(aux^.info);
..............aux:=aux^.sig;
............end;
..........InsertarAlFinal(comb, pal);
..........borrarultimonodo(letra);
........end
......else
........begin
..........for i := 1 to N do
............begin
..............obtenerinfopos(coleccion, s, i);
..............Insertar(letra,s,pos);
..............Combina(pos + 1);
............end;
..........borrarultimonodo(letra);
........end
....end;
..begin
......crear(letra);
......Combina(1);
..end;