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

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





  1. 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).

  2. Enoncé Exercice 5_6_7
  3. Correction Exercice 5_6_7
  4. Exercice 5
  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
    

  6. Exercice 6
  7. 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
    

  8. Exercice 7
  9. 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
    
    

Abonnez vous à notre chaîne YouTube gratuitement