Programación General > Visual Basic 6.0 e inferiores

 Re: como lleno una matriz...

(1/1)

michael:
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.

Jose Arriagada:
'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

michael:
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

Navegación

[0] Índice de Mensajes