Fórum Como obter combinações?(Matemática) #232339
14/05/2004
0
Bom vamos com um pouquinho de matematica. Pessoal eu tenho que fazer um pequeno programa que calcule cobinações. Por exemplo:
Eu tenho os digito 1 e 2
e digamos que o usuario forneça a quantidade de caracteres 4 o programa devera listar todas as combinações possiveis.
Qtde de Caracteres 4
Cobinações possieis
1122
1212
2211
2121
1221
2112
Este seria o resultado.....
Aguardo uma ajuda
Abraço
Wagner
Wagnermarrane
Curtir tópico
+ 0Post mais votado
14/05/2004
procedure Combinacoes(NumCaracteres: Integer; Digitos: string; Lines: TStrings);
procedure Combina(Idx: Integer; str: string = ´´);
var
I: Integer;
begin
If Idx = 0 Then
Lines.Add(str)
else
For I := 1 To Length(Digitos) do
Combina(Idx - 1, str + Digitos[I]);
end;
begin
Combina(NumCaracteres);
end;Usando:
Combinacoes(2, ´1234´, Memo.Lines);
Marcelo Saviski
Gostei + 1
Mais Posts
14/05/2004
Paulo_amorim
Conhecendo a fórmula matemática de Combinações e Arranjos, é só desenvolver o programa para fazer conta
Voce acha a fórumla no Google...
Até+
Gostei + 0
14/05/2004
Khundalini
http://www.codeguru.com/Cpp/Cpp/algorithms/combinations/article.php/c5117
[]s
Rubem Rocha
Manaus, AM
Gostei + 0
14/05/2004
Wagnermarrane
Gostei + 0
14/05/2004
Wagnermarrane
At
Wagner
Gostei + 0
14/05/2004
Cabelo
sem mais
Cabelo
Gostei + 0
14/05/2004
Beppe
Diferentes algoritmos para permutações e combinações: [url]http://www-cs-faculty.stanford.edu/~knuth/taocp.html[/url] (em inglês) procure por pre-fascicle 2b.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)