Entradas

Mostrando entradas de octubre 3, 2012

Números Capicua Visual Basic

Hallando números capicua de cualquier cifra (Utilizando la funcion de cadena )

        REM VAR
        Dim num, n As String
        Dim rpta As String
        REM LEER
        Console.Write("Ingrese Numero: ")
        num = Long.Parse(Console.ReadLine)
        REM PROCESO
        n = StrReverse(num)  'Devuelve una cadena en la que se ha invertido el orden de caracteres
        If n = num Then
            rpta = "ES UN NUMERO CAPICUA"
        Else
            rpta = "NO ES CAPICUA"
        End If
        REM ESCRIBIR
        Console.WriteLine(rpta)
        Console.ReadLine()

Numero Capicua Visual Basic

Obtener Numero Capicua de 3 Cifras en VISUAL BASIC 2010

        Dim num, uni, aux, dec, cen As Integer
        Dim rpta As String
        Console.Write("Ingrese Numero de 3 Cifras:")
        num = Console.ReadLine
        If num >= 100 And num <= 999 Then
            cen = num \ 100
            aux = num Mod 100
            dec = aux \ 10
            uni = aux Mod 10
            If cen = uni Then
                rpta = "Numero es Capicua"
            Else
                rpta = "Numero no es Capicua"
            End If
        Else
            rpta = "Numero fuera de intervalo"
        End If      
        Console.WriteLine(rpta)
        Console.ReadKey()

'Prof. jhonatan abal mejia