Exercice VB: Parcour de tableau à une seule dimension
Rédigé par , Publié le 02 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00Participez au vote ☆☆☆☆☆★★★★★
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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 |
1. Module Module1 Dim i, Somme As Integer Dim T(19) As Integer Sub Main() Somme = 0 For i = 0 To 19 Console.Write("Entrez l'élément n° " & i + 1 & " : ") T(i) = Console.ReadLine Somme = Somme + T(i) Next Console.Write("La somme des éléments de ce tableau est : " & Somme) Console.ReadLine() End Sub End Module 2. Module Module1 Dim i, Max, n As Integer Sub Main() Console.Write("Entrez la taille du tableau : ") n = Console.ReadLine Dim T(n) As Integer For i = 0 To n - 1 Console.Write("Entrez l'élément n° " & i + 1 & " : ") T(i) = Console.ReadLine Next Max = T(0) For i = 1 To n - 1 If T(i) > Max Then Max = T(i) End If Next Console.Write("Le plus grand élément de ce tableau est : " & Max) Console.ReadLine() End Sub End Module 3. Module Module1 Dim i, Moyenne, Somme, NoteSup As Double Dim Note(99) As Integer Sub Main() Somme = 0 NoteSup = 0 For i = 0 To 99 Console.Write("Entrez la note n° " & i + 1 & " : ") Note(i) = Console.ReadLine Somme = Somme + Note(i) Next Moyenne = Somme / 100 For i = 0 To 99 If Note(i) > Moyenne Then NoteSup = NoteSup + 1 End If Next Console.Write("Le nombre de notes supérieures à la moyenne est : " & NoteSup) Console.ReadLine() End Sub End Module 4. Module Module1 Dim i, Max, Min, Pmax, Pmin, n As Integer Sub Main() Console.Write("Entrez la taille du tableau : ") n = Console.ReadLine Dim T(n) As Integer For i = 1 To n Console.Write("Entrez l'élément n° " & i & " : ") T(i) = Console.ReadLine Next Max = T(1) Min = T(1) Pmax = 1 Pmin = 1 For i = 2 To n - 1 If T(i) > Max Then Pmax = i ElseIf T(i) < Min Then Pmin = i End If Next Console.WriteLine("La position du plus grand élément : " & Pmax) Console.WriteLine("La position du plus petit élément : " & Pmin) Console.ReadLine() End Sub End Module |