F�rum Gerar Combina��es, sem repetir o elemento e o conjunto #395264

09/02/2011

Ol� pessoal, estou quebrando a cabe�a para fazer o algoritmo...
n�o encontrei em lugar nenhum o que eu estou tentando fazer...

� o seguinte...

vou dar um exemplo com quantidades menores:

* Vamos supor que eu tenho [A B C D E] (amostra)
* Filtrando para DUAS letras, ou seja, combina��es de DUAS letras,
* E tamb�m sem REPETIR os (AA) (BB)....
* E tamb�m sem REPETIR (BA) (AB).....

teriamos:
AB, AC, AD, AE, BC, BD, BE, CD, CE, DE

Vamos supor outra situa��o:

* Vamos supor que eu tenho [A B C D] (amostra)
* Com filtro de TRES, ou seja, combina��es de TRES letras,
* E tamb�m sem REPETIR o ([b]AAA[/b]) ([b]BBB[/b]) ([b]AA[/b]B) (C[b]DD[/b]), ([b]B[/b]D[b]B[/b]) ....
* E tamb�m sem REPETIR ([u]ABC[/u]) ([u]ACB[/u]) ([u]CAB[/u]) ..., ([i]DCB[/i]) ([i]CDB[/i]) etc...

teriamos:
ABC, ABD, ACD, BCD somente

RESUMINDO... n�o importa a ORDEM.
Imaginem que as letras s�o PESSOAS... n�o da pra duplicar PESSOAS...

seria como se fosse a seguinte pergunta:
[b]Em uma sala com 4 pessoas.... se fossemos formar um grupo de 3 pessoas, e deixar 1 fora, quantos grupos diferentes seriam possiveis formar???... e quais s�o eles???...[/b]

mas na verdade o meu problema eh com:
AMOSTRA de 15 Letras
CONJUNTOS de 6 Letras

algu�m conhece o algoritmo?

Guilherme

Curtir t�pico

+ 0

Responder

Posts

09/02/2011

Marco Salles

Ol� pessoal, estou quebrando a cabe�a para fazer o algoritmo...
n�o encontrei em lugar nenhum o que eu estou tentando fazer...

tem sim amigo... Aqui mesmo no site neste t�pico http://forum.devmedia.com.br/viewtopic.php?t=72667&highlight=combina%E7%F5es sem muita dificuldade se varia para o seu caso particular

perceba ao ler o link for I := 1 to 6
for J := I+1 to 7
for K := J+1 to 8 Edicilmar , cade vc edicilmar ????

var
s:string;
i,j,k,l,m,n:integer;
TS: TStrings;
begin
Memo1.Lines.Clear;
TS := TStringList.Create;
  for i := 1 to 10 do
    for j := i+1 to 11 do
      for k:=j+1 to 12 do
        for L:=k+1 to 14 do
          for m:=l+1 to 14 do
            for n:=m+1 to 15 do
              begin
                s := IntToStr(i)+','+IntToStr(j)+','+IntToStr(k)+','+
                                IntToStr(L)+','+inttostr(m)+','+inttostr(n);
                TS.Add(s);
            end;
Memo1.Lines.Assign(TS);
TS.Free;
Label1.Caption := 'Total de combina��es: '+IntToStr(Memo1.Lines.Count);

Responder

Gostei + 0

23/10/2012

Telmo Machado..

Perfeito, agora so falta adicionar um ProgressBar, Timer e um Add em Banco, para evitar de ter de ficar executando ele.

Responder

Gostei + 0

23/10/2012

Vtrx

Edicilmar , cade vc edicilmar ????

� mesmo ,tem tanta gente boa sumida...
Cade o Zanela??

Responder

Gostei + 0