Gerar N�meros Aleat�rio

Question

Ola Galera da lista preciso de um grande favor de vcs, e que eu tenho um programa de Cadastro de Matriculas com o Campo N� de matricula e queria que esse campo recebesse um numero aleatorio sem repeti...

Oscar Candido · Answer

Para gerar numeros aleat�rios vc pode usar a fun��o Random, exemplo:[code:1:9a55960027] Random(1000);[/code:1:9a55960027]vai retornar numeros aleat�rios entre 0 e 1000espero te ajudado...

Sonec2004 · Answer

Uma vez tive esse problema e usei o seguinte:

Procedure AleatorioDiferente;
Var
Universo : Array[1..1000] of integer
Aleatorios : Array[1..1000] of integer;
i, j , n, w: Integer;
Begin
  n:= 1000;
  For i:=1 to 1000 do
    Universo[i]:=i;   {Gera 1000 numeros em ordem crescente}
  Randomize;
  For i:=1 to 1000 do
  Begin
    w :=(Random(n)+1);   {w fica valendo um numero de 1 at� n}
    Aleatorios[i]:=Universo[w];    {w fica na posi��o i de Aleatorios}
    For j:=w to n do
      Universo[j]:=Universo[j+1];  {O valor w sai do vetor Universo}
    n:=n-1;    {n vai decrementando}
  End;
End;  {Os valores ficarm armazenados desordenadamente em Aleatorios}

Espero ter ajudado.

sonec2004@itelefonica.com.br

Deryck · Answer

Cara , ja entendi o que vc deseja , mas posso te dar uma opiniao, o lance � que sua palica��o esta pequena agora, e pra voc� ,numeros aleatorios seria bom, mas se voce ter uma aplica��o maior , seria bom voc� terum incrementador, pois busca em n�meros ordenados, se caso vc precisasse fazer um consulta em determinada matricula, seria bem mais facil que se for com numero aleatorio, isso melhoraria a performace da sua aplica��o.na meu ver , seria ideal voc� colocar um auto incremnto ou coisa assim,

So minha opiniao!

jordano.soares@csnet.com.br

F�rum Gerar N�meros Aleat�rio #245954