Sortear Numeros em ASP

[cfaria 0]

Boas Pessoal

 

Necessito de umas dicas para criar um script em ASP que gere conjuntos de numeros aleatorios.

 

Tenho um total de 50 numeros (1 ao 50) e preciso gerar todas as combinações possiveis de 3 numeros (Ex. 4-18-36) não repetindo as combinações.

 

Se alguem tiver algo parecido para adaptar agradeço,

 

Cpts

Carlos

[Ted k' 126]

mais podem ser ex: 50-50-50??

[xanburzum 169]

um simples exemçlo de cria numero aleatórios

 

<% Randomize
Variable = (rnd * 4)
Response.write(Variable)
%>

você pode gera-los e armazenar em um array ou bd

 

e da uma olhada nesta function, números aleatórios e sem repetição.

 

Function GerarN(ByVal Qtd, ByVal Min, ByVal Max)
Dim Vetor()
Redim Vetor(Qtd)
Randomize
For i = 0 To Qtd
N = Int(Min+(Rnd*(Max-Min)))
Tem = False
For y = 0 To Qtd
If Vetor(y) = N Then
Tem = True
Exit For
End If
Next
If Not Tem Then
Vetor(i) = N
Else
i = i - 1
End If
Next
GerarN = Vetor
End Function

[cfaria 0]

mais podem ser ex: 50-50-50??

Não pode repetir o mesmo numero nas combinações Ex: 50-50-50 ou 10-50-50

[Mário Monteiro 179]

vao ser bastane combinações

 

ao todo 50*49*48 = 117600

 

onde irá armazenar isso

[cfaria 0]

vao ser bastane combinações

 

ao todo 50*49*48 = 117600

 

onde irá armazenar isso

Cada combinação vai buscar os respectivos valores que são inseridos num formulario, depois de efectuar o calculos so armazena as que o resultado for <= 1.

 

Vou ter 50 valores que são inseridos no formulario, preciso de um script que faça o sorteio das combinações para depois ir pegar o valor respectivo.

 

Alguem tem um script que faça algo parecido????

[hargon 64]

Acho que você não foi claro que queria.

 

Você precisa que seja gerado apenas 3 números aleatórios sem se repetir (que foi o que eu entendi) ou precisa que seja gerado todas combinações possíveis por 3 números, entre os números 1 a 50 (que foi o que todo mundo entendeu)?

[cfaria 0]

Acho que você não foi claro que queria.

 

Você precisa que seja gerado apenas 3 números aleatórios sem se repetir (que foi o que eu entendi) ou precisa que seja gerado todas combinações possíveis por 3 números, entre os números 1 a 50 (que foi o que todo mundo entendeu)?

Preciso que seja gerado todas as combinações possiveis de 3 numeros entre 1 e 50, excepto aquelas em que se repete o mesmo numero Ex: 50-50-50 ou 10-50-50.

[Vagner Bucioli Scala 0]

Esta lógica não ajudaria?

 

IF n2 = n1 or n2 = n3 Then

n2= n2 + 1

End if

Daí fica a seu critério, tipo se repetir acrescenta + 1, ou + 2, ou + 10 / 2....Desde que os valores ficam na faixa de 1 a 50.

 

Agora realizar todas as combinações possíveis de uma só vez, como o Mário citou é combinação pra caramba! vai gerar um laço gigantesco, acredito eu!