Gerar Números Aleatório
07/08/2004
0
obs : Este campo é tipo string e seu tamanho é 5
Obrigado
[b:6e59bb29b2]Texto editado.[/b:6e59bb29b2]
Estava com a fonte no tamanho [size=18:6e59bb29b2]18[/size:6e59bb29b2].
Pellegrini,
Não utilize tamanho de fontes além do normal, pois torna-se cansativo para leitura; é desagradável e dá a impressão que você está gritando.
Por favor, releia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.
Sandra/Moderação
Pellegrini
Posts
07/08/2004
Oscar Candido
Random(1000);
vai retornar numeros aleatórios entre 0 e 1000
espero te ajudado
08/08/2004
Sonec2004
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
09/08/2004
Deryck
So minha opiniao!
jordano.soares@csnet.com.br
Clique aqui para fazer login e interagir na Comunidade :)