VB.Net: Correction des exercices tableaux et matrices 15

VB.Net: Correction des exercices tableaux et matrices 15





  1. Enoncé Exercice 15
  2. Buts:
  3. VB.Net: Correction des exercices tableaux et matrices 13

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

  4. Rappel:
      1. Déclaration d’un tableau de taille fixe
        • Tableau à une seule dimension

          • Syntaxe : Dim nomtableau(dimension) As type
          • Exemple : Dim table(4) As integer
          • On déclare un tableau nommé table de 5 éléments : de 0-> 4
          • On peut spécifier les limites inférieures et supérieures d’un tableau
          • Syntaxe : Dim nomtable (nbr_ligne-1 to nbr_col-1) As type
          • Exemple : Dim table(1 to 5) As integer „table commence de l‟indice 1 à 5

          Tableau à n dimensions

          • Syntaxe : Dim nomtableau(dimension1,dimension2, , dimension n) As type

      2. Déclaration d’un tableau dynamique
        • 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
        • Syntaxe : Dim nomtableau() As type
        • Redim nomtableau(x)
        • Exemple : dim tab() as integer
        • On peut dimensionner un tableau dynamique déclaré en utilisant l’instruction Redim. Elle
          n’est utilisée que dans le corps de la procédure.
        • Exemple:

        • Dim Dynarray() As Integer „on déclare un tableau dynamique Dynarray
        • Sub Calcul()
          Redim Dynarray(5) „maintenant Dynarray possède 5 éléments
          End Sub

  5. Correction Exercice 15
  6. Module exercice15
        Dim tableau As Integer(,) = New Integer(9, 7) {}
        Sub Main(args As String())
            remplirTableau()
            AffichageTab()
            tabMini()
            tabMax()
            'TriTab();
            Console.WriteLine("La somme est: " & tabSomme() & " ")
            Console.WriteLine("La moyenne est: " & (tabSomme() / tableau.Length))
        End Sub
        Private Sub remplirTableau()
            Dim rnd As New Random()
            ' affectation de valeurs entières, pris au hasard entre 1 et 100, au tableau
            For i As Integer = 0 To 9
                For j As Integer = 0 To 7
                    tableau(i, j) = rnd.Next(1, 101)
                Next
            Next
        End Sub
        Private Sub AffichageTab()
            'affichage des valeurs du tableau
            For i As Integer = 0 To 9
                For j As Integer = 0 To 7
                    Console.WriteLine("Contenu de la case [{0},{1}] est : {2}", i, j, tableau(i, j))
                Next
            Next
        End Sub
        Private Sub tabMini()
            Dim min As Integer = 101
            'Recherche de minimum
            For i As Integer = 0 To 9
                For j As Integer = 0 To 7
                    If min < tableau(i, j) Then
                        min = tableau(i, j)
                    End If
                Next
            Next
            Console.WriteLine("Le minimum est: " & min & " ")
        End Sub
        Private Sub tabMax()
            Dim max As Integer = 0
            'Recherche de maxmimum
            For i As Integer = 0 To 9
                For j As Integer = 0 To 7
                    If max < tableau(i, j) Then
                        max = tableau(i, j)
                    End If
                Next
            Next
            Console.WriteLine("Le maximum est: " & max & " ")
        End Sub
       allez à suite........................
    End Module
    

  7. Suite
  8.  Private Function tabSomme() As Double
            Dim somme As Integer = 0
            For i As Integer = 0 To 9
                For j As Integer = 0 To 7
    
                    somme += tableau(i, j)
                Next
            Next
            Return somme
        End Function
    

Abonnez vous à notre chaîne YouTube gratuitement