SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: michael en Lunes 9 de Diciembre de 2002, 21:20
-
hola me gustaria saber como lleno una matriz de nxn con 0 y 1 de forma RANDOM, la idea es que debo trabajar con matrices de 2x2, 5x5, 10x10, 50x50 y 100x100, no se como llenarlas en forma random.
graaaaaaaaaaaciassssssssss..
michael.
-
'Inicializa la funcion aleatoria
Randomize
'Obtiene un numero cualquiera
n = CInt(Rnd(100) * 100)
'Recorre las filas
For i = 1 To n
'Recorre las columnas
For j = 1 To n
'Flag para encontrar un 0 o 1
sigue = 1
While sigue = 1
Randomize
x = CInt(Rnd * 10)
'Consulta si es 0 o 1
If x = 0 Or x = 1 Then
'Si es 0 o 1, lo visualiza
sigue = 0
End If
Wend
Print x
Next j
Next i
-
en el codigo que escribieron lo unico que no me quedo claro fue el como inicializar la funcion aleatoria??
'Inicializa la funcion aleatoria
Randomize
'Obtiene un numero cualquiera
n = CInt(Rnd(100) * 100)
'Recorre las filas
For i = 1 To n
'Recorre las columnas
For j = 1 To n
'Flag para encontrar un 0 o 1
sigue = 1
While sigue = 1
Randomize
x = CInt(Rnd * 10)
'Consulta si es 0 o 1
If x = 0 Or x = 1 Then
'Si es 0 o 1, lo visualiza
sigue = 0
End If
Wend
Print x
Next j
Next i