VB.Net: Correction des exercices tableaux et matrices 5_6_7

Rappel

• Les tableaux sont comme les variables soit locales, soit globales et obéissent aux mêmes
  règles. Dans VB, il existe deux types de tableaux : les tableaux de taille fixe et les tableaux
  dynamiques.
• Les tableaux peuvent être des tableaux de nombres, de chaînes, de booléens…
• Quand on crée un tableau, soit on sait d’avance combien d’éléments il va englober, soit on veut qu’il soit dynamique
• Un tableau déclaré dynamique engendre une perte de rapidité à l’exécution.
• Tout tableau doit obligatoirement être déclaré, quel que soit le réglage de l’option de déclaration des variables (option explicit).

Enoncé Exercice 5_6_7

Correction Exercice 5_6_7

Exercice 5

Module exercice5_6_7
    Sub Main()
        exercice5()
    End Sub
    Private Sub exercice5()
        Dim tab As Integer() = New Integer(21 - 6) {}
        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 - 6
            tab(i) = rnd.Next(5, 21)
        Next
        'affichage des valeurs du tableau
        For i As Integer = 0 To 21 - 6
            Console.WriteLine(tab(i) & " ")
        Next
        Console.ReadLine()
    End Sub
End Module

Exercice 6

Module exercice5_6_7
    Sub Main()
        exercice6()
    End Sub
    Private Sub exercice6()
        Dim min As Integer = 101
        Dim max As Integer = 0
        Dim somme As Integer = 0
        Dim taille As Integer
        'Saisie du nombre des apprenants dans un groupe
        System.Console.WriteLine("Saisir le nombre des apprenants dans un groupe")
        taille = Convert.ToInt16(System.Console.ReadLine())
        'Déclaration et initialisation du tableau
        Dim tableau As Integer() = New Integer(taille - 1) {}
        'Saisie des notes      
        For i As Integer = 0 To taille - 1
            System.Console.WriteLine("Saisir la note de l'apprenant numéro: {0}", i + 1)
            tableau(i) = Convert.ToInt16(System.Console.ReadLine())
        Next
        'Affichage du tableau des notes
        For i As Integer = 0 To taille - 1
            Console.WriteLine("La note de l'apprenant numéro: {0} est : {1}", i + 1, tableau(i))
        Next
        'Calcul du somme des notes
        For i As Integer = 0 To taille - 1
            somme += tableau(i)
        Next
        Console.WriteLine("La somme des notes est : " & somme & " ")
        'Recherche de maximum
        For i As Integer = 0 To taille - 1
            If max < tableau(i) Then
                max = tableau(i)
            End If
        Next
        Console.WriteLine("La note la plus grande est: " & max & " ")
        'Recherche de minimum
        For i As Integer = 0 To taille - 1
            If min > tableau(i) Then
                min = tableau(i)
            End If
        Next
        Console.WriteLine("La note la plus bas est: " & min & " ")
        'Moyenne des notes
        Console.WriteLine("La moyenne est: " & (somme \ taille))
    End Sub
End Module

Exercice 7

Module exercice5_6_7
    Sub Main()
        exercice7()
    End Sub
    Private Sub exercice7()
        Dim tableau As Integer() = New Integer(9) {}
        Dim somme As Integer = 0
        'Saisie des entiers      
        For i As Integer = 0 To 9
            System.Console.WriteLine("Saisir l'entier numéro: {0}", i + 1)
            tableau(i) = Convert.ToInt16(System.Console.ReadLine())
        Next
        'Calcul du somme des entiers
        For i As Integer = 0 To 9
            somme += tableau(i)
        Next
        'Moyenne des entiers
        Console.WriteLine("La moyenne est: " & (Convert.ToDouble(somme / 10)))
    End Sub


End Module