Exercice VB: Parcour de tableau à une seule dimension
Objectif:
travailler avec Les tableaux à une seule dimension:
Travail à Faire :
- 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.
- Soit T un tableau de N entiers. Ecrire le programme qui détermine le plus grand élément de ce tableau.
- Ecrire un programme qui permet de lire 100 notes et de déterminer le nombre de celles qui sont supérieures à la moyenne.
- 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.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091 | 1.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 |