VB.Net: Correction des exercices tableaux et matrices 15

Enoncé Exercice 15

Buts:

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

Rappel:

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

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

Correction Exercice 15

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

Suite

 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