Autor
|
Tema: Ayuda numero aletorio no repetirse (Leído 7,269 veces)
|
x64core
Desconectado
Mensajes: 1.908
|
holas buenas compañeros de foro quisiera saber si me pueden ayudar a resolver este problema: quiero crear una funcion que genere numeros aleatoreos de entre 1 a 10 pero no quiero q se repita un numero ya mostrado digamos q al final me tiene q mostrar el intervalo de entre los 10 numeros pero en orden aleatoreo y sin repeticion y si podria con un codigo muy simplificado y sin tantas variables posibles esa es mi idea porq podria usar muchas variables pero eso es lo q no quiero :p creo q me doy a entender amigos de ante mano gracias!
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
No te daremos el codigo, al menos ya lo pensaste como hacer?
|
|
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
jeje sii tengo para generar numero entre 1 a 10: randomize T = Int((10 * Rnd) + 1)
luego noc como hacer para verificar si ese numero ya lo e mostrado talvez asignarlo a una variable y verificar con un if noce
|
|
« Última modificación: 23 Mayo 2011, 03:07 am por raul338 »
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!
Bueno, te digo, primero para verificar que no lo mostraste tenes que guardar todos los numeros mostrados, recomiendo un vector.
Luego, generas el numero aleatorio y verificas con un bucle que no este en el vector, si estaba, lo generas de nuevo, si no estaba lo guardas y lo mostras.
Espero que entiendas lo que digo.
GRACIAS POR LEER!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Mejor pseudocodigo que el de 79137913 no vas a encontrar, asique esperamos tu codigo
|
|
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
trate de hacer lo que dijo 79137913 pero creo q no lo logre porq en el vector apareces algunos numero repetidos :/ noce en que estoy fallando este es el codigo que hice Dim n As Integer Dim a(9) As Integer Dim m As Integer Dim z As Integer For z = 1 To 10 ' generar 10 numero aleatoreos Randomize n = Int((10 * Rnd) + 1) ' genero el numero aleatoreo = n For m = 0 To 9 If a(m) <> n Then a(z - 1) = n Next Next
|
|
« Última modificación: 23 Mayo 2011, 03:07 am por raul338 »
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Mmm esque no es asi, usa el Do-While para que guarde todos los numeros generados mientras no sea igual a uno que ya se guardo, es decir, podrias crear una funcion, Repetido() as Boolean para que sea la verificacion en el while
|
|
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
Mmm esque no es asi, usa el Do-While para que guarde todos los numeros generados mientras no sea igual a uno que ya se guardo, es decir, podrias crear una funcion, Repetido() as Boolean para que sea la verificacion en el while
es q yo pensaba en generar el numero aleatoreo y guardarlo en el vector luego generar el otro y verificar si ya existia en el vector con el bucle for pero pana tu idea no la entiendo
|
|
|
En línea
|
|
|
|
_katze_
|
generas el numero en primera medida...y la guardas en una variable termporal...en una iteracion recorres el vector si esta salis de la iteracion y generas de nuevo...y si esta lo guardas y lo mostras
|
|
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Mira, leelo y entendelo, no te lo tendria que dejar pero bueno: Option Explicit Public Sub Form_Load() Dim n As Integer Dim a(9) As Integer Dim m As Integer Dim i As Integer For i = 0 To 9 Do Randomize m = Int((Rnd * 10) + 1) Loop While (Existe(m, a())) a(i) = m Next i For i = 0 To 9 MsgBox a(i) Next End Sub Function Existe(m As Integer, a() As Integer) As Boolean Dim num For Each num In a() If (m = num) Then Existe = True Next End Function
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Guardar contenido de un textbox en un archivo .txt con nombre aletorio
Programación Visual Basic
|
hepy_92
|
2
|
4,226
|
15 Abril 2007, 20:15 pm
por hepy_92
|
|
|
[RETO] Comprobar si un numero dado es un numero de la suerte
« 1 2 ... 5 6 »
Programación Visual Basic
|
Karcrack
|
53
|
23,559
|
17 Agosto 2010, 23:58 pm
por Dessa
|
|
|
Ayuda numero de serie
« 1 2 »
Ingeniería Inversa
|
wconejo
|
11
|
13,160
|
11 Octubre 2010, 18:19 pm
por wconejo
|
|
|
Ayuda con número de dígitos.
Programación C/C++
|
Jaraysedal
|
1
|
3,201
|
2 Noviembre 2010, 20:32 pm
por Littlehorse
|
|
|
AYUDA CON UN FOR DE NUMERO
Desarrollo Web
|
daniel010
|
1
|
1,967
|
13 Septiembre 2013, 00:25 am
por #!drvy
|
|