Matrices bidimensionales

Iniciado por llegaraprogramador, 1 Mayo 2010, 12:41 PM

0 Miembros y 1 Visitante están viendo este tema.

llegaraprogramador

Como se trabaja con ellas, por ejemplo en el siguiente ejericio, pedir al usuario el número de filas y de columnsas de una matriz bidimensional y asignar a cada posición el valor resultante de sumar la fila y columna en la que se encuentran.

por ejemplo
una matriz 3 de alto y 2 de ancho, 3x2
       0               1

0 - 0+0 =0  - 0+1=1
1 - 1+0 =1  - 1+1 =2
2 - 2+0 =2  - 2+1=3
     

como se trabaja con esta clase de matrices. Quizas asi:
dim ancho as string= inputbox("ancho")
dim alto as string= inputbox("alto")
dim matriz(,) as long
redim matriz(largo-1, ancho-1) ' trabajo con basic 8 y las matrices comienzan por 0
dim i as inter
for i= 0 to ((alto-1) * (ancho-1))


next

¿Que se trabajaria de esta manera usando despues, bucles del tipo variable= variable + 1?


Un saludo Gracias 


BlackZeroX

#1
antes que nada esto no es .NET

lo de las matrices si deseas hacerlas des de X a Y es decir algo asi

Array(10,20)

tendrias que hacerlo asi

Código (vbnet) [Seleccionar]


dim ancho as integer, NewAncho as integer
dim alto as integer, NewAlto as integer
dim matrix() as long

ancho = val(inputbox("Ancho").tostring)
alto = val(inputbox("Alto").tostring)

NewAncho = ancho - ancho
NewAlto = alto - ancho

Try
   Redim matrix(NewAncho,NewAlto)
   msgbox ("Sin Sumar los valres:" & vbcrlf &  _
vbtab & "matrix(" & newancho & "," & newalto & ")" & vbcrlf & vbcrlf & _
       "Sumando valores:" & vbcrlf & vbcrlf & _
       vbtab & "matrix(" & newancho + ancho & "," & newalto + ancho& ")")
Catch ex As Exception
   msgbox ("Valores para la matrix Incorrectos." & vbcrlf & ex.message)
   return
End try

The Dark Shadow is my passion.