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

Ads Blocker Image Powered by Code Help Pro

Ads Blocker Detected!!!

En Programador Novato vivimos de los anuncios, hemos detectado que está utilizando extensiones para bloquear anuncios. Ayudanos deshabilitando tu bloqueador de anuncios. :)