Exercice VB: Parcour de tableau à une seule dimension

Objectif:

travailler avec Les tableaux à une seule dimension:

Travail à Faire :

  1. Soit T un tableau de vingt éléments de types entiers. Ecrire le programme qui permet de calculer la somme des éléments de ce tableau.
  2. Soit T un tableau de N entiers. Ecrire le programme qui détermine le plus grand élément de ce tableau.
  3. Ecrire un programme qui permet de lire 100 notes et de déterminer le nombre de celles qui sont supérieures à la moyenne.
  4. Soit T un tableau de N entiers. Ecrire le programme qui détermine simultanément la position du plus grand élément et la position du plus petit élément du tableau.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990911.Module Module1Dim i, Somme As IntegerDim T(19) As IntegerSub Main()Somme = 0For i = 0 To 19Console.Write("Entrez l'élément n° " & i + 1 & " : ")T(i) = Console.ReadLineSomme = Somme + T(i)NextConsole.Write("La somme des éléments de ce tableau est : " &Somme)Console.ReadLine()End SubEnd Module 2.Module Module1Dim i, Max, n As IntegerSub Main()Console.Write("Entrez la taille du tableau : ")n = Console.ReadLineDim T(n) As IntegerFor i = 0 To n - 1Console.Write("Entrez l'élément n° " & i + 1 & " : ")T(i) = Console.ReadLineNextMax = T(0)For i = 1 To n - 1If T(i) > Max ThenMax = T(i)End IfNextConsole.Write("Le plus grand élément de ce tableau est : " &Max)Console.ReadLine()End SubEnd Module 3.Module Module1Dim i, Moyenne, Somme, NoteSup As DoubleDim Note(99) As IntegerSub Main()Somme = 0NoteSup = 0For i = 0 To 99Console.Write("Entrez la note n° " & i + 1 & " : ")Note(i) = Console.ReadLineSomme = Somme + Note(i)NextMoyenne = Somme / 100For i = 0 To 99If Note(i) > Moyenne ThenNoteSup = NoteSup + 1End IfNextConsole.Write("Le nombre de notes supérieures à la moyenne est :" & NoteSup)Console.ReadLine()End SubEnd Module 4.Module Module1Dim i, Max, Min, Pmax, Pmin, n As IntegerSub Main()Console.Write("Entrez la taille du tableau : ")n = Console.ReadLineDim T(n) As IntegerFor i = 1 To nConsole.Write("Entrez l'élément n° " & i & " : ")T(i) = Console.ReadLineNextMax = T(1)Min = T(1)Pmax = 1Pmin = 1For i = 2 To n - 1If T(i) > Max ThenPmax = iElseIf T(i) ThenPmin = iEnd IfNextConsole.WriteLine("La position du plus grand élément : " & Pmax)Console.WriteLine("La position du plus petit élément : " & Pmin)Console.ReadLine()End SubEnd Module
Article publié le 02 Janvier 2012