[VB.NET] Nombre palindrome

Voir le sujet précédent Voir le sujet suivant Aller en bas

[VB.NET] Nombre palindrome

Message par Skynyrd777 le Sam 26 Juin 2010 - 12:47

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().
avatar
Skynyrd777
Admin

Messages : 216
Date d'inscription : 02/06/2010

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum