VB.Net: Correction des exercices tableaux et matrices 9_10_11

VB.Net: Correction des exercices tableaux et matrices 9_10_11





  1. Enoncé Exercice 8
  2. Buts:
    • Cet exercice a pour but de vérifier les points techniques suivants :
    • VB.Net: Correction des exercices tableaux et matrices 9_10_11

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

  3. Rappel
    1. Types tableau en VB.Net
      • Tableaux statiques : Taille et contenu fixés à la compilation
          •  Déclaration :Dim identifiant(dimension)As type = {énumération des valeurs,…};
      • Tableaux dynamiques : Taille et valeurs définies à l’exécution
        • Quand la taille exacte d’un tableau n’est pas connue, il est possible de créer des tableaux sans
          spécifier leurs dimensions. IL s’agit alors de tableaux dynamiques
          • Déclaration : Dim nom_de_variable() As type_de_donnée
          • Initialisation :Dim nom_de_variable = new type_de_donnée (taille);

    2. Tableau à 2 dimensions en VB.Net
      • Un tableau à deux dimensions se déclare de la manière suivante : Dim nom(,) As type = new type(n, m); n est le nombre de lignes et m le nombre de colonnes.

    3. Boucles en VB.Net
      • Une boucle est une instruction, ou un ensemble d’instructions, qui sont répétées un nombre spécifié de fois ou jusqu’à ce qu’une condition soit rencontrée.
      • Le type de boucle que vous utilisez dépend de votre tâche de programmation et de vos préférences personnelles en matière de codage.
      • Le langage VB.Net se distingue essentiellement d’autres langages (comme C++) par la boucle foreach, qui est conçue pour simplifier l’itération sur les tableaux ou les collections.

  4. Correction Exercice 9,10 et 11
  5. Exercice 9
  6. Module exercice9_10_11
    
        Sub Main(args As String())
            System.Console.WriteLine("Exercice 9------------------------------------")
            exercice9()
        End Sub
    
        Private Sub exercice9()
            Dim taille As Integer
            'Saisie du nombre des apprenants dans un groupe
            System.Console.WriteLine("Saisir un nombre entier n ")
            taille = Convert.ToInt16(System.Console.ReadLine())
            'Déclaration et initialisation du tableau
            Dim tableau As String() = New String(taille - 1) {}
            'Saisie des notes      
            For i As Integer = 0 To taille - 1
                System.Console.WriteLine("Saisir le caractère numéro: {0}", i + 1)
                tableau(i) = System.Console.ReadLine()
            Next
            'Affichage du tableau des notes
            For i As Integer = 0 To taille - 1
                Console.WriteLine("La case : {0} est remplie par : {1}", i + 1, tableau(i))
            Next
        End Sub
    End Module
    

  7. Exercice 10
  8. Module exercice9_10_11
        Sub Main(args As String())
            System.Console.WriteLine("Exercice 10------------------------------------")
            exercice10()
        End Sub
    
        Private Sub exercice10()
            Dim taille As Integer = 10
            'Déclaration et initialisation du tableau
            Dim tableau As String() = New String(taille - 1) {}
            'Saisie des caractères      
            For i As Integer = 0 To taille - 1
                System.Console.WriteLine("Saisir le caractère numéro: {0}", i + 1)
                tableau(i) = System.Console.ReadLine()
            Next
            'Affichage du tableau des notes
            For i As Integer = 0 To taille - 1
                Console.WriteLine("La case : {0} est remplie par : {1}", i + 1, tableau(i))
            Next
            'Recherche des nombres et des majuscules
            Dim lettreMaj As Integer = 0
            Dim lettreMin As Integer = 0
            Dim chiffre As Integer = 0
            For i As Integer = 0 To taille - 1
                Dim ch As String = tableau(i)
                If Char.IsLetter(Convert.ToChar(ch)) Then
                    If ch.Equals(ch.ToUpper()) Then
                        'Console.WriteLine("Le nombre des majuscules est : {0}", lettreMaj);
                        lettreMaj += 1
                    Else
                        'Console.WriteLine("Le nombre des minuscules est : {0}", lettreMin);
                        lettreMin += 1
    
                    End If
                Else
                    'Console.WriteLine("Le nombre des chiffres est : {0}", chiffre);
                    chiffre += 1
                End If
            Next
            Console.WriteLine("Le nombre des majuscules est : {0}", lettreMaj)
            Console.WriteLine("Le nombre des minuscules est : {0}", lettreMin)
            Console.WriteLine("Le nombre des chiffres est : {0}", chiffre)
        End Sub
    End Module
    

  9. Exercice 11
  10. Module exercice9_10_11
    
        Sub Main(args As String())
            System.Console.WriteLine("Exercice 11------------------------------------")
            exercice11()
        End Sub
    
        Private Sub exercice11()
            Dim nbr As Integer = 0
            Dim entier As Integer = 0
            Dim tab As Integer() = New Integer(21 - 13) {}
            Dim rnd As New Random()
            ' affectation de valeurs entières, pris au hasard entre 5 et 10, au tableau
            For i As Integer = 0 To 21 - 13
                tab(i) = rnd.Next(12, 21)
            Next
            'affichage des valeurs du tableau
            For i As Integer = 0 To 21 - 13
                Console.WriteLine(tab(i) & " ")
            Next
            System.Console.WriteLine("Saisir un entier")
            entier = Convert.ToInt16(System.Console.ReadLine())
            For i As Integer = 0 To 21 - 13
                If tab(i) = entier Then
                    nbr += 1
                End If
            Next
            Console.WriteLine(" L'entier :{0} se répète : {1} fois", entier, nbr)
        End Sub
    
    
    End Module
    
    

Abonnez vous à notre chaîne YouTube gratuitement