N�meros Aleat�rios sem repeti��o

Question

Ol� Amigos sou no aqui no f�rum e gostria de fazer uma pergunta:
Eu tenho um Array [1..9] chamado aMat do tipo Byte.
Nele eu sortei numeros de 0 � 100 com a est� fun��o:

for i:=1 to 9 do
aMat[i]:=Randon(101)

Eu gostaria que os n�meros n�o se repitam no Array.
Como eu faria isso?

Paullsoftware · Answer

A fun��o Random(x) retorna um n�mero aleat�rio entre 0 e x - 1. Mas n�o h� como evitar repeti��es. Para isso, voc� deve armazenar os n�meros gerados numa tabela. Ao chamar a fun��o, se o n�mero retornado j� existe na tabela, gera mais um n�mero, sen�o, adiciona-o � tabela. espero ter ajudado :wink:

Ola inclua a chamada [b:60b93662cd]Randomize[/b:60b93662cd], ao entrar no form, e os numeros nao se repetiram no array.

espero que ajude.

Caezar · Answer

Obrigado,Vou tentar construir essa function....

Henry.fartura · Answer

vc pode tamb�m ao inv�s de utilizar um array utilizar um [b:f367b9dd9b]Set[/b:f367b9dd9b], ja que ao contrario do array o [b:f367b9dd9b]Set [/b:f367b9dd9b]n�o permite dados duplicados.
O help do delphi tem alguns exemplos, � s� adapta-los.

[]�s
Fabio

Macario · Answer

[quote:60b93662cd=�PaullSoftware�]A fun��o Random(x) retorna um n�mero aleat�rio entre 0 e x - 1. Mas n�o h� como evitar repeti��es. Para isso, voc� deve armazenar os n�meros gerados numa tabela. Ao chamar a fun��o, se o n�mero retornado j� existe na tabela, gera mais um n�mero, sen�o, adiciona-o � tabela. espero ter ajudado :wink:[/quote:60b93662cd]Ola inclua a chamada [b:60b93662cd]Randomize[/b:60b93662cd], ao entrar no form, e os numeros nao se repetiram no array.espero que ajude....

Beppe · Answer

[quote:91e4c79575=�Macario o Aspone�]Ola inclua a chamada [b:91e4c79575]Randomize[/b:91e4c79575], ao entrar no form, e os numeros nao se repetiram no array.
[/quote:91e4c79575]
Claro que se repetir�o, mais cedo ou mais tarde, isto pq Randomize apenas inicializa uma vari�vel apenas. Se por acaso ela iniciar com 0, � como se nenhuma chamada a ela tivesse sido feita.

Pode fazer algo assim:

const
  N = 10;
var
  I, T, P: Integer;
  Num: array[0..N - 1] of Integer;
begin
  ListView1.Clear;
  for I := 0 to N - 1 do
    Num[I] := I;
  for I := N - 1 downto 0 do
  begin
    P := Random(I + 1);
    T := Num[I];
    Num[I] := Num[P];
    Num[P] := T;
  end;
  ...
end;

F�rum N�meros Aleat�rios sem repeti��o #288573