VB.Net: Correction des exercices tableaux et matrices 12

VB.Net: Correction des exercices tableaux et matrices 12





  1. Enoncé Exercice 12
  2. Buts:
  3. VB.Net: Trier des tableaux et des matrices

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

  4. 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.

  5. Correction Exercice 12
  6. 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
    
    
    

Abonnez vous à notre chaîne YouTube gratuitement