Exercice VB: Parcour de tableau à une seule dimension

Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00
Participez au vote ☆☆☆☆☆★★★★★

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.
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