 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Agasus
Aprendiz
Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 272
|
 Enviada: Dom Abr 27, 2014 11:37 am Assunto: Analise combinatória condicionada |
 |
|
Bom dia amigos!
Estou desenvolvendo um projeto para desdobramentos de jogos de loterias.
Encontrei esse material
| Código: | 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); |
Neste site http://www.devmedia.com.br/forum/gerar-combinacoes-sem-repetir-o-elemento-e-o-conjunto/395264
Funciona direito são 15 números tomados de 6 em 6 que gera 5005 combinações.
Em loteria se diz 15 numeros, 6 dezenas por cartão, garantindo acertar 6 pontos caso as 6 dezenas sorteadas estejam dentro das 15.
Minha dúvida é :
como montar o código para se fazer 15 dezenas em cartões de 6 dezenas garantindo acertar 4 pontos caso acertar 6 pontos dentro das 15;
garantindo acertar 4 pontos caso acertar 5 pontos dentro das 15;
garantindo acertar 4 pontos caso acertar 4 pontos dentro das 15;
garantindo acertar 5 pontos caso acertar 6 pontos dentro das 15.
Neste exemplo do site anterior é feito um fechamento de números de 1 a 15, como fazer para que ao invéz de mostrar no memo de 1 a 15, mostre os números que tenho em 15 Dbedit por exemplo.
Abaixo umas telas de um programa free chamado ininuga, é mais ou menos isso que quero fazer
Configurando....
http://www.servimg.com/image_preview.php?i=9&u=18192551
Selecionando os números.....
http://www.servimg.com/image_preview.php?i=11&u=18192551
Jogos gerados.....
http://www.servimg.com/image_preview.php?i=10&u=18192551
Link de como funciona o ininuga http://megabolao.forumfacil.net/t31-como-usar-o-ininuga
Uso delphi 7, banco FDB, Clientdataset
Desde já agradeço a ajuda de todos.
Abraços e ótimo final de semana |
|
| Voltar ao Topo |
|
 |
Agasus
Aprendiz
Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 272
|
|
| Voltar ao Topo |
|
|
casetek
Aprendiz
Registrado: Segunda-Feira, 13 de Setembro de 2004
Mensagens: 211
Localização: Londrina - PR
|
| Enviada: Ter Abr 29, 2014 9:33 am Assunto: |
|
|
Gostei disso aqui:
Para apostar 20 dezenas na lotofácil, com a garantia de 14 acertos SE acertar as 15 sorteadas nas 20 escolhidas.
Qual a chance matemática de entrar as 15 sorteadas nas 20 escolhidas?
- aplicando os dados no aplicativo:
Dezenas no jogo 25
Dezenas que serão sorteadas 15
Acertos que você pretende no jogo 15
Dezenas escolhidas 20
RESPOSTA = Você terá 1 chance em 211
Negócio da China: Você gasta R$ 1000,00 para ter 1 chance em 211 de receber R$ 1000,00 |
|
| Voltar ao Topo |
|
|
pauloantoniosoares
Novato
Registrado: Terça-Feira, 4 de Março de 2025
Mensagens: 1
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
