• Miércoles 6 de Noviembre de 2024, 04:24

Autor Tema:  Re: como lleno una matriz...  (Leído 1252 veces)

michael

  • Miembro activo
  • **
  • Mensajes: 43
    • Ver Perfil
Re: como lleno una matriz...
« en: Lunes 9 de Diciembre de 2002, 21:20 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: como lleno una matriz...
« Respuesta #1 en: Lunes 9 de Diciembre de 2002, 22:28 »
0
'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

  • Miembro activo
  • **
  • Mensajes: 43
    • Ver Perfil
como lleno una matriz...
« Respuesta #2 en: Martes 10 de Diciembre de 2002, 00:22 »
0
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