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

Enoncé Exercice 8

Buts:

• Cet exercice a pour but de vérifier les points techniques suivants :



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

Rappel

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);

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); où n est le nombre de lignes et m le nombre de colonnes.

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.

Correction Exercice 9,10 et 11

Exercice 9

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

Exercice 10

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

Exercice 11

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