56

Demostrar que una matriz es simétrica en Visual Basic.NET [56]

Una matriz es simétrica en Visual Basic.NET es una matriz de orden n con el mismo número de filas y columnas donde su matriz traspuesta es igual a la matriz original.

En este tutorial vamos a:

  • Pedir al humano que ingrese la cantidad de filas y de columnas de la matriz.
  • Pedir al humano que llene los valores de una matriz.
  • Validar que la matriz ingresada sea cuadrada (que el número de filas seal el mismo que el número de columnas)
  • A partir de la matriz original crear una matriz transpuesta y compararla para ver si es simétrica.
  • Decirla al humano si la matriz que ingreso es simétrica o no.

Codigo de una matriz es simétrica en Visual Basic.NET: https://github.com/programadornovato/VisualBasic/commit/bbcdfc422d87fdf55619b960b1ba763121c797a7

Imports System

'Autor: Programador Novato
'Fecha: 01/01/2021
'Este modulo sirve para ense�ar como funciona Visual Basic.NET
Module Program
    'Este codigo escribe un texto en amarillo con fondo azul
    Public Sub Main(args As String())
        Console.WriteLine("Humano cuantas filas tiene tu matriz")
        Dim fil = Integer.Parse(Console.ReadLine())
        Console.WriteLine("Humano cuantas columnas tiene tu matriz")
        Dim col = Integer.Parse(Console.ReadLine())
        If fil = col Then
            Dim matriz = New Integer(fil - 1, col - 1) {}
            For i = 0 To fil - 1
                For j = 0 To col - 1
                    Console.WriteLine("Matriz(" & i + 1 & "," & j + 1 & ")")
                    matriz(i, j) = Integer.Parse(Console.ReadLine())
                Next
            Next
            Dim esSimetrica = True
            For i = 0 To fil - 1
                For j = 0 To col - 1
                    If matriz(i, j) <> matriz(j, i) Then
                        esSimetrica = False
                        Exit For
                    End If
                Next
                If esSimetrica = False Then
                    Exit For
                End If
            Next
            If esSimetrica = True Then
                Console.WriteLine("Felicidades humano tu matriz si es simetrica")
            Else
                Console.WriteLine("Humano estupido tu matriz no es simetrica")
            End If
        Else
            Console.WriteLine("Humano las filas y las columnas deben ser iguales tambien")
        End If
        Console.Read()
    End Sub
End Module

Curso de VB.NET⛓️: https://www.youtube.com/watch?v=aiquJHzxNWw&list=PLCTD_CpMeEKSFwAFjvrfpvSwxmbs2maMo&ab_channel=programadornovato
[CURSO] C##️⃣: https://www.youtube.com/watch?v=NKPMGY6NCko&list=PLCTD_CpMeEKQSOU8Vf9VHXrZa2rc8X0X5&index=1&t=3s&ab_channel=programadornovatoprogramadornovato
[CURSO] C# CON FORMULARIOS#️⃣: https://www.youtube.com/watch?v=l0_U4oyOuns&list=PLCTD_CpMeEKTBih1VgeunCjc83ZQ6UBMI&index=1&ab_channel=programadornovatoprogramadornovato
[Curso] C# MYSQL#️⃣: https://www.youtube.com/watch?v=-5CXNXHIzWk&list=PLCTD_CpMeEKR_4q0-7BxGHXqH0bgpqw5q&ab_channel=programadornovato
[CURSO] C++ DE 0 A HEROE 🦸: https://www.youtube.com/watch?v=APN8aCyPvww&list=PLCTD_CpMeEKTofxs7iottRxJ5YPM7BOcc&ab_channel=programadornovato
[Curso] Java Netbeans GUI Completo☕: https://www.youtube.com/watch?v=18UA7X2ss8g&list=PLCTD_CpMeEKThfXo8D-RXOGu5FarO7_qv&ab_channel=programadornovato

Anterior tutorial Siguiente tutorial

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Salir de la versión móvil