Sorteio de Numeros Aleatorios

Question

Ola turma,Qual c�digo devo usar ao clicar um bot�o, mostrar em um (Memo) ou em (edites) num universo de 25 numeros ser sorteados 15 aleatoriamente, sem repeti��o.desde ja obrigado....

Beppe · Answer

N�meros de 1 a 25:[code:1:ac49dca8bc]var  Sorteados: set of 1..25;  I, Numero: Integer;begin  Sorteados := &#91;&93;;                    // conjunto vazio  for I := 1 to 15 do  begin    repeat                            // repete at� que encontre um n�o      Numero := Random(25) + 1;       // no conjunto dos sorteados    until not (Numero in Sorteados);    Include(Sorteados, Numero);       // adiciona ao grupo    Memo1.Lines.Add(IntToStr(Numero));  end;end;[/code:1:ac49dca8bc]...

Clenio · Answer

Valeu, Beppe, muito obrigado deu certinho do jeito que eu queria, abra�os....

Kroki · Answer

Eu so nao entendi o 1 ao 15......

Drakkar · Answer

[quote:ca8fa89159=�kroki�]Eu so nao entendi o 1 ao 15...[/quote:ca8fa89159]S�o 15 n�meros... por isso.....

Kroki · Answer

DEtalhe,colei o codigo e coloquei em um evento de clik de botao e o programa trava.Oque eu errei?...

Beppe · Answer

[quote:d7c31655c5=�kroki�]DEtalhe,colei o codigo e coloquei em um evento de clik de botao e o programa trava.Oque eu errei?[/quote:d7c31655c5]Vco� t� tentando gerar mais de 25 n�meros?...

Marco Salles · Answer

Beppe , Dentro Da Sua L�gica e Para Que o Programa N�o Trave Devido a Um lOOP �Infinito�, Ploblema Detectado Pelo Amigo kroki , N�o Estaria Faltando o Operador �Not� Aplicado Junto a Istru��o Until.... Assim, Sugiro Um Modifica��o , Trocar
[color=red:77c51d6063]until (Numero in Sorteados); Por until not (Numero in Sorteados);[/color:77c51d6063]

Beppe · Answer

[quote:3716140681=�Marco Salles�]Beppe , Dentro Da Sua L�gica e Para Que o Programa N�o Trave Devido a Um lOOP �Infinito�, Ploblema Detectado Pelo Amigo kroki , N�o Estaria Faltando o Operador �Not� Aplicado Junto a Istru��o Until.... Assim, Sugiro Um Modifica��o , Trocar
[color=red:3716140681]until (Numero in Sorteados); Por until not (Numero in Sorteados);[/color:3716140681][/quote:3716140681]

Putz, falha nossa! :oops: Nada escapa aos seus olhos atentos, hein?
A explica��o que coloquei do lado dizia uma coisa, mas o c�digo �dizia� outra... Valeu!

Clenio · Answer

O programinha ta funcionando beleza, querendo melhorar um pouquinho, eu gostaria de fazer com que o Memo mostre os numeros em ordem crescente, o que eu devo acrescentar no codigo para fazer isso?

Desde ja obrigado.

Beppe · Answer

Os n�meros s�o retornados de forma totalmente aleat�ria, sem ordem especifica. A solu��o gen�rica seria armazenar os n�meros em um array, e p�-los com um algoritmo de ordena��o. Mas neste � caso � bem simples, como os n�meros sorteados est�o em um set.

var 
  Sorteados: set of 1..25; 
  I, Numero: Integer; 
begin 
  Sorteados := [];                    // conjunto vazio 
  for I := 1 to 15 do 
  begin 
    repeat                            // repete at� que encontre um n�o 
      Numero := Random(25) + 1;       // no conjunto dos sorteados 
    until not (Numero in Sorteados); 
    Include(Sorteados, Numero);       // adiciona ao grupo 
  end; 
  for I := 1 to 25 do
    if Numero in Sorteados then
      Memo1.Lines.Add(IntToStr(I)); 
end;

Kroki · Answer

Se nao estou enganado,� preciso declarar antes da geracao dos numeroso comando �Randomize�ou os numeros gerados sempre serao os mesmos....

Beppe · Answer

[quote:9e6327d4a8=�kroki�]Se nao estou enganado,� preciso declarar antes da geracao dos numeroso comando �Randomize�ou os numeros gerados sempre serao os mesmos.[/quote:9e6327d4a8]Sim, para que a cada execu��o do programa a sequ�ncia n�o seja a mesma.Cham�-lo uma vez � suficiente, no OnCreate....

F�rum Sorteio de Numeros Aleatorios #212343