VB.Net: Correction des exercices tableaux et matrices 12

Enoncé Exercice 12

Buts:

• Déclaration et initialisation de tableaux en VB.Net.
• Affichage des éléments du tableau
• Parcourir des tableaux en VB.Net.
• Comparer deux tables.

Rappel

• Un palindrome est un mot ou une phrase que l’on peut lire dans les deux sens (de droite à gauche ou de gauche à droite).
• Un palindrome est un mot qui se dit d’un mot, d’un vers, d’une phrase que l’on peut lire indifféremment de gauche à droite ou de droite à gauche. (Exemple : le mot ressasser ou la phrase Ésope reste ici et se repose.)
• Le principe du palindrome est très simple. Ce sont des lettres qui, peu importe qu’elles soient lues de gauche à droite ou de droite à gauche, donnent le même mot ou même groupe de mots. Ainsi la ville « Laval » peut se lire dans les deux sens, de même que l’expression « Elu par cette crapule ». Bien entendu, on admet que les accents et les espaces n’entrent pas en compte dans ce décompte particulier.

Correction Exercice 12

Module exercice12

    Dim mots As Char()
    Dim texte As String
    Dim texte_origine As String
    Sub Main(args As String())
        initialisationTableau()
        affichageTableau()
        If testPalindrome(texte) = True Then
            System.Console.WriteLine("La chaîne: {0} est un palindrome.", texte_origine)
        Else
            System.Console.WriteLine("La chaîne: {0} n'est pas un palindrome.", texte_origine)
        End If
    End Sub
    Public Sub affichageTableau()
        For i As Integer = 0 To mots.Length - 1
            System.Console.WriteLine(mots(i))
        Next
    End Sub
    Public Sub initialisationTableau()
        System.Console.WriteLine("Entrez une ligne de texte (max.100 caractères)")
        texte_origine = System.Console.ReadLine()
        texte = texte_origine.ToLower()
        texte = texte.Replace(" ", "")
        mots = texte.ToCharArray()
    End Sub
    Public Function testPalindrome(texte As String) As [Boolean]
        Dim resultat As [Boolean] = True
        Dim test_mots As Char() = texte.ToCharArray()
        For i As Integer = 0 To mots.Length - 1
            If mots(i) <> test_mots(test_mots.Length - i - 1) Then
                resultat = False
                Exit For
            End If
        Next
        Return (resultat)
    End Function


End Module