Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: llegaraprogramador en 1 Mayo 2010, 12:41 pm



Título: Matrices bidimensionales
Publicado por: llegaraprogramador en 1 Mayo 2010, 12:41 pm
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 



Título: Re: Matrices bidimensionales
Publicado por: BlackZeroX en 2 Mayo 2010, 18:53 pm
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
  1.  
  2. dim ancho as integer, NewAncho as integer
  3. dim alto as integer, NewAlto as integer
  4. dim matrix() as long
  5.  
  6. ancho = val(inputbox("Ancho").tostring)
  7. alto = val(inputbox("Alto").tostring)
  8.  
  9. NewAncho = ancho - ancho
  10. NewAlto = alto - ancho
  11.  
  12. Try
  13.    Redim matrix(NewAncho,NewAlto)
  14.    msgbox ("Sin Sumar los valres:" & vbcrlf &  _
  15. vbtab & "matrix(" & newancho & "," & newalto & ")" & vbcrlf & vbcrlf & _
  16.        "Sumando valores:" & vbcrlf & vbcrlf & _
  17.        vbtab & "matrix(" & newancho + ancho & "," & newalto + ancho& ")")
  18. Catch ex As Exception
  19.    msgbox ("Valores para la matrix Incorrectos." & vbcrlf & ex.message)
  20.    return
  21. End try
  22.  
  23.