40

Ejercicio 11.- Identificar un palindromo en Visual Basic.NET [40]

En este tutorial vamos a Identificar un palindromo en Visual Basic.NET, por si no lo sabes, un palíndromo es una palabra o frase que se puede leer igual al derecho y alreves. En este tutorial vamos a identificar si una frase es un palíndromo o no con los siguientes pasos:

  • Pedir al humano que ingrese un texto.
  • Convertimos el texto a minúsculas.
  • Quitaremos espacios en blanco.
  • Obtener la longitud del texto.
  • Crear un ciclo inverso con la longitud del texto donde.
  • Compararemos la primer letra con la última.
  • Compararemos la segunda letra con la penúltima y así sucesivamente.
  • Si alguna comparación es falsa no es palindromo de lo contrario si es.
  • Mostrará la humano si el texto introducido es palindromo o no.
  • Un ejemplo de palíndromo es: “anita lava la tina”

Codigo para identificar un palindromo en Visual Basic.NET: https://github.com/programadornovato/VisualBasic/commit/33ddc66c658e5b926cdc74f44ad4cf5cba021512

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 ingresa un palindromo")
        Dim texto = Console.ReadLine()
        Dim textoCopia = texto
        If texto IsNot Nothing Then
            texto = texto.ToLower()
            texto = texto.Replace(" ", "")
            Dim longitud = texto.Length
            Dim igual = True
            Dim cont = 0
            For indice = longitud - 1 To 0 Step -1
                If (texto(indice) <> texto(cont)) Then
                    igual = False
                    Exit For
                End If
                cont = cont + 1
            Next
            If igual = True Then
                Console.WriteLine("Felicidades humano el texto " & textoCopia & " si es palindromo")
            Else
                Console.WriteLine("Humano estupido el texto " & textoCopia & " no es palindromo")
            End If
        Else
            Console.WriteLine("humano estupido te pedi que ingresarar un palindo y no escribiste nada")
        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 *