[VB.NET] Nombre palindrome

[Skynyrd777]

Bonjour,

Un nombre est dit palindrome si la lecture de ses chiffres dans les deux sens donne le même résultat. Un nombre palindrome est donc un nombre symétrique. Notons que le terme "palindrome" existe aussi dans le vocabulaire du français avec des mots comme "kayak" qualifiés de palindromes. Ces nombres sont également appelés nombres de Schéhérazade car ce personnage imaginaire narrait les contes des 1001 nuits (1001 est un nombre palindrome).

Algorithme en VB.NET

Code:

    Sub Main()

        '' Nombre Palindrome (Nombre de Schéhérazade) ''

        For i As UInteger = 1 To 999
            If IsPalindrome(i) Then Console.Out.WriteLine(i & " est un nombre d'Armstrong")
        Next i
        Console.In.ReadLine()

    End Sub

    Function IsPalindrome(ByVal n As UInteger) as Boolean
        Dim cMiroir As String = ""
        For i As Integer = n.ToString.Length To 1 Step -1
            cMiroir &= Mid(n.ToString, i, 1)
        Next i
        If Val(cMiroir) = n Then Return True Else Return False
    End Function

Notes : L'algorithme à proprement parler se trouve dans le fonction booléenne IsPalindrome() qui renvoie vrai si le paramètre unique d'entrée est un nombre palindrome ; la fonction renvoie faux si le nombre d'entrée n'est pas un nombre palindrome. La procédure Main() test de façon itérative tous les entiers de 1 à 999 et n'affiche que ceux qui sont validés palindromes par la fonction IsPalindrome().