Función Random ???

[[BlueSteel]]

Hola...

tengo algunas dudas con respecto al uso de la función Ramdon. La estoy implementando para que me escoga el ganador de un concurso, en donde tiene que elegir un numero al azar de un universo de 1503.

La estoy utilizando de esta forma

Código Delphi [-]
 
sGanador.Text := IntToStr(Random(1503));

Si bien, el proceso lo realiza y me muestra valores aleatoreos que no sean mayores de 1503, el problema es el siguiente:

1.- cada vez que inicio el sistema, el primer valor que selecciona es 0, despues 47, despues 1294, despues 304... por lo cual, no me estaria sirviendo dicha función, ya que siempre que ingrese al sistema estarían eligiendo los mismos numeros y en el orden que los deje. Puede que sea un parametro que obvie, pero igual me causa extraseña

2.- necesito que la aplicación me seleccione los valores al azar, pero que no me salga favorecido un valor que ya ha sido seleccionado, es decir, si en el sorteo 1 salio de 15, que no se repita dicho numero en ninguno de los siguientes sorteos...

Bueno, el concurso consiste en regalar 300 camisetas del Club de Fútbol, 20 Televisores Plasta de 32" y un Auto 0 KM, por lo cual, y como es ante Notario, no pueden repetirse los numeros...

que me sugieren que realice...???

Salu2

[Black_Ocean]

Hola,

Antes de usar la función Random debes inicializarlo con el procedimiento Randomize para que no se repitan los números en forma seguida.

Ej:

Código Delphi [-]
Randomize;
Random(1503);

Por otra parte, te recomiendo que uses la función RandomRange de la librería Math en reemplazo de Random, ya que puedes definir el rango desde y hasta qué número deseas, y tambien por si no quieres considerar el 0, ya que Random considera de acuerdo a esta condición: 0 <= X < Rango

Saludos y buena suerte colega.

[[BlueSteel]]

Ok...

Muchas Gracias...

Ya me funciona tanto con el Ramdon (agregando el randomize...y con el RandomRange...

Salu2

[[BlueSteel]]

Bueno, para no hacer otro hilo, solo me falta ver la opción de que no seleccione un numero que ya se ha seleccionado...

Alguien sabes como se puede realizar esto ???

Salu2

[[eduarcol]]

pues para eso deberias tener una lista, y hacer algo asi:

Código Delphi [-]
while x in Lista do

[[BlueSteel]]

Empezado por eduarcol

pues para eso deberias tener una lista, y hacer algo asi:


Código Delphi [-]while x in Lista do

si estaba pensando algo parecido.... bueno, los favorecidos los voy metiendo en una tabla temporal.... donde tambien almaceno el numero sorteado.....

así que tendré que ir comparando si el numero esta dentro de los ya favorecidos.... lo que me da lata es que puede demorarse mucho en recorrer la tabla, ya que los registros de la tabla temporal se van insertando según posición de llegada, por lo que tendre que verificar toda la tabla cada vez que salga un numero nuevo.... y debo generar un listado de 300 ganadores....??

bueno, ahora es muy tarde....así que me voy a jugar unas mesitas de billar para relajarme.. y mañana veré como lo realizo...

Salu2