VB.Net: Correction des exercices tableaux et matrices 14

Enoncé Exercice 14

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 14

Module exercice14
    Sub Main(args As String())
        Dim n As Integer
        Dim somme As Integer = 0
        ' demande et saisie de nombre des chiffres à additionner
        Console.WriteLine("Combien de chiffres on veut additionner?")
        n = Convert.ToInt16(Console.ReadLine())
        'Déclaration et initialisation du tableau
        Dim tab As Integer() = New Integer(n - 1) {}
        'Saisie des éléments du tableau
        For i As Integer = 0 To n - 1
            Console.WriteLine("Sasir l'élément numéro{0}", i)
            tab(i) = Convert.ToInt16(Console.ReadLine())
        Next
        ' Affichage des éléments du tableau
        For i As Integer = 0 To n - 1
            Console.WriteLine("L'élément numéro{0} est : {1}", i, tab(i))
        Next
        'Calcul et affichage de la somme
        For i As Integer = 0 To n - 1
            somme += tab(i)
        Next
        Console.WriteLine("la somme des éléments est : " & somme)
    End Sub
End Module