jueves, 6 de septiembre de 2007

MATRICES

Esta estructura esta dividida en filas y columnas.



Ejercicios:

1. Mostrar lo siguiente

Module Module1
Dim ma1(2, 2) As Integer
Dim x, y As Integer
Sub Main()
For x = 0 To 2
For y = 0 To 2
ma1(x, y) = 8
Next
Next
For x = 0 To 2
For y = 0 To 2
Console.Write(ma1(x, y))
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
End Module

2. Mostrar lo siguiente:

Module Module1
Dim ma1(2, 2) As Integer
Dim x, y As Integer
Sub Main()
For x = 0 To 2
For y = 0 To 2
ma1(x, y) = 4
Next
Next
For x = 0 To 2
For y = 0 To 2
Console.Write(ma1(x, y))
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
End Module

3.mostrar lo siguiente

Module Module1
Dim ma1(2, 2) As Integer
Dim x, y As Integer
Sub Main()
For x = 0 To 2
For y = 0 To 2
ma1(x, y) = 2
Next
Next
For x = 0 To 2
For y = 0 To 2
Console.Write(ma1(x, y))
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
End Module

No hay comentarios: