Números Aleatórios
Estou precisando gerar números aleatórios, porém que não se repitam.
Eu passo o número máximo e a função terá que me retornar os números.
ESTOU FAZENDO ASSIM:
Numeros : array of integer;
Begin
setlength(Numeros,<Parametro a ser recebido>);
randomize; numeros[x] := randorange(1,<parametro a ser recebido>
End;
É ALGO ASSIM , PORÉM SEMPRE VEM NUMEROS REPETIDOS...
Eu passo o número máximo e a função terá que me retornar os números.
ESTOU FAZENDO ASSIM:
Numeros : array of integer;
Begin
setlength(Numeros,<Parametro a ser recebido>);
randomize; numeros[x] := randorange(1,<parametro a ser recebido>
End;
É ALGO ASSIM , PORÉM SEMPRE VEM NUMEROS REPETIDOS...
Rômulo Barros
Curtidas 0
Respostas
Japa
31/10/2003
Amigo mesmo fazendo o randomize vc vai ter o azar de pegar o mesmo numero... para que isso nawn ocorra pegue o numero pelo randon e percorra o seu array para ver se encontra o numero, no caso afirmativo tente denovo com outro numero...
Amigo descupe-me mas como estou sem o delphi aqui.. nanw posso passar a função.. e tambem sou novo no pascal por isso nawn sei de cabeça os laços... por isso boa sorte amigo... :wink:
Amigo descupe-me mas como estou sem o delphi aqui.. nanw posso passar a função.. e tambem sou novo no pascal por isso nawn sei de cabeça os laços... por isso boa sorte amigo... :wink:
GOSTEI 0