Lógica Para Números Aleatórios

[importado]

E aí galera, preciso de uma lógica para gerar números aleatórios dentro de um limite (tipo de 1 a 10).... como se fosse um sorteio da loto... sem números repetidos...

Se possível me ajudem por favor, estou precisando urgente....

Grato.

[sledgehammer]

Postado Originalmente por importado@02 mar 2004, 21:44

E aí galera, preciso de uma lógica para gerar números aleatórios dentro de um limite (tipo de 1 a 10).... como se fosse um sorteio da loto... sem números repetidos...

Se possível me ajudem por favor, estou precisando urgente....

Grato.

Depende, qual o nível que você quer de aleatoriedade?

O Delphi você tem a função Random que é pseudo-randômica. Existem algoritmos mais elaborados, com funções melhores. Uma fonte de pesquisas caso você precise é o Numerical Recipes.

Mas não entendi bem o que você quer. você quer sortear os números entre 1 e 10 em ordem aleatória?

você não pode evitar que eles se repitam no sorteio. você irá precisar olhar se aquele número já foi sorteado. Se já foi, sorteia outro, se não foi use ele.

[importado]

sim, é uma pesquisa aleatória entre um limite de de números quaisquer e sem repetição.... como se fosse sorteados entre 1 a 10: 5,8,7,2,6,3,1,4,10,9...

Mais ou menos isto e estou precisando de um algoritmo para que eu faça este sorteio.... ou até mesmo uma fórmula matemática...

"você quer sortear os números entre 1 e 10 em ordem aleatória?

você não pode evitar que eles se repitam no sorteio. você irá precisar olhar se aquele número já foi sorteado. Se já foi, sorteia outro, se não foi use ele. "

é bem isto que eu quero....

por favor me ajudem estou precisando urgentemente de um logaritmo pois não tenho nenhum pseudo-função de randomização...

grato...

[Nukem]

cara você pode fazer o seguinte, guarde os numeros sorteados em um vetor (pode ser de 10 posições já que sao 10 numeros a serem sorteados), e a cada sorteio você varre o vetor para ver se esse numero já não foi sorteado...

caso queira eu posso fazer a rotina em alguma linguagem de programaçao...

vb, pascal, etc...

T+

[Nukem]

Olha só sobro um tempinho aqui, e como não perco uma oportunidade de da uma programadinha eu fiz a rotina aqui pro sorteio dos seus 10 numeros... em VB..

Const tamanho = 10
Dim vet(tamanho) As Byte

Private Sub Command1_Click()

Randomize
Dim j, i, num As Byte
Dim sim As Boolean
sim = True
j = 1

While j <> tamanho + 1

    num = Int(Rnd * tamanho) + 1
    
    For i = 1 To tamanho
        If num = vet(i) Then
            sim = True
            Exit For
        Else
            sim = False
        End If
    Next i
    
    If sim = False Then
        vet(j) = num
        List1.AddItem vet(j)
        j = j + 1
    End If
    
Wend

End Sub

não deem bola pros nomes de variaveis porque eu nunca foi bom com isso heheh!

para alterar o tamanho do esquema de sorteio é só alterar a constante tamanho!