programas de matrices

Programa de matriz en diagonal izquierda

Module Module1

    'variable de matriz es de tipo entero los numeros en el paréntesis significan filas y columnas para llenarlas con números '

    Dim matriz (2, 4) As Integer

    Sub Main ()

        'se utilizan dos ciclos for uno para las filas y otra para las colunmas'

        For i As Integer = 0 To 2 Step 1

            For j As Integer = 0 To 4 Step 1

                'ingresamos los valores de las posiciones de 0,1 etc'

                Console.WriteLine ("ingrese valor de la posición {0}, {1}", i, j)

                Matriz (i, j) = Console.ReadLine

            Next

        Next

        For i as Integer = 0 To 2 Step 1

            For j As Integer = 0 To 2 Step 1

                If (i = j) Then

                    'foreground color nos pinta los números de la matriz de color verdeen forma de diagonal izquierda'

                    Console.ForegroundColor = ConsoleColor.Green

                    Console.Write ("{0}  ", matriz (i, j))

                Else

                    'el color blanco es para diferenciar los numeros que forman la diagonal izquierda'

                    Console.ForegroundColor = ConsoleColor.White

                    Console. Write("{0}  ", matriz(i, j))

                End If

            Next

            Console.WriteLine ()

        Next

        Console.ReadLine ()

    End Sub

End Module

 

Diagonal derecha

Module Module1

    Dim matriz (2, 4) As Integer

    Sub main ()

        For i As Integer = 0 To 2 Step 1

            For j As Integer = 0 To 4 Step 1

                Console.WriteLine ("ingrese valor de la posición {0}, {1}", i, j)

                Matriz (i, j) = Console.ReadLine

            Next

        Next

        For i as Integer = 0 To 2 Step 1

            For j As Integer = 0 To 2 Step 1

                If (i + j = 2) Then

                    Console.ForegroundColor = ConsoleColor.Green

                    Console. Write ("{0}  ", matriz(i, j))

                Else

                    Console.ForegroundColor = ConsoleColor.White

                    Console. Write ("{0}  ", matriz (i, j))

                End If

            Next

            Console.WriteLine ()

        Next

        Console.ReadLine ()

    End Sub

End Module

 Diagonal en forma de Cruz

Module Module1

    Dim matriz (2, 4) As Integer

    Sub main ()

        For i as Integer = 0 To 2 Step 1

            For j as Integer = 0 To 4 Step 1

                Console.WriteLine ("ingrese valor de la posición {0}, {1}", i, j)

                Matriz (i, j) = Console.ReadLine

            Next

        Next

        For i as Integer = 0 To 2 Step 1

            For j as Integer = 0 To 2 Step 1

                If (i = 1 Or j = 1) Then

                    Console.ForegroundColor = ConsoleColor.Red

                    Console. Write("{0}  ", matriz(i, j))

                Else

                    Console.ForegroundColor = ConsoleColor.White

                    Console. Write ("{0}  ", matriz(i, j))

                End If

            Next

            Console.WriteLine ()

        Next

        Console.ReadLine ()

    End Sub

End Module

Diagonal izquierda y derecha

Module Module1

    Dim matriz (2, 4) As Integer

    Sub main ()

        For i As Integer = 0 To 2 Step 1

            For j As Integer = 0 To 4 Step 1

                Console.WriteLine ("ingrese valor de la posición {0}, {1}", i, j)

                Matriz (i, j) = Console.ReadLine

            Next

        Next

        For i as Integer = 0 To 2 Step 1

            For j as Integer = 0 To 2 Step 1

                If (i = j) Then

                    Console.ForegroundColor = ConsoleColor.Blue

                    Console. Write ("{0}", matriz(i, j))

                Elsie (i + j = 2) Then

                    Console.ForegroundColor = ConsoleColor.Blue

                    Console. Write ("{0}  ", matriz(i, j))

                Else

                    Console.ForegroundColor = ConsoleColor.White

                    Console. Write ("{0}  ", matriz(i, j))

                End If

            Next

            Console.WriteLine ()

        Next

        Console.ReadLine ()

    End Sub

End Module