Exercice VB: Calcule dans un tableau à une seule dimension

Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Jeudi, 15 Décembre 2022 23:01
Participez au vote ☆☆☆☆☆★★★★★

Objectif:

Travailler avec Les tableaux à une seule dimension

Travail à Faire :

  1. Soit T un tableau de N réels. Ecrire le programme qui permet de calculer le nombre des occurrences d’un nombre X (c'est-à-dire combien de fois ce nombre X figure dans le tableau T).
  2. Ecrire un algorithme qui calcule le nombre d'entiers pairs et le nombre d'entiers impairs d'un tableau d'entiers.
  3. Soit un tableau T(n), écrire un algorithme qui calcule VMEP (valeur moyenne des éléments positifs), VMEN (valeur moyenne des éléments négatifs) et NEM (nombre d'éléments nuls).
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


1.
Module Module1
Dim i, Cpt, n As Integer
Dim X As Integer
Sub Main()
Cpt = 0
Console.Write("Entrez le nombre X : ")
X = Console.ReadLine
Console.Write("Entrez la taille du tableau : ")
n = Console.ReadLine
Dim T(n) As Double
For i = 1 To n
Console.Write("Entrez l'élément n° " & i & " : ")
T(i) = Console.ReadLine
If T(i) = X Then
Cpt += 1
End If
Next
Console.WriteLine("Le nombre d’occurrences de X est : " & Cpt)
Console.ReadLine()
End Sub
End Module

2.
Module Module1
Dim n, i, nbP, nbImp As Integer
Sub Main()
nbImp = 0
nbP = 0
Console.Write("Entrez la taille du tableau : ")
n = Console.ReadLine
Dim T(n) As Integer
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ") = ")
t(i) = Console.ReadLine
Next
For i = 0 To n - 1
If T(i) Mod 2 = 0 Then
nbP += 1
Else
nbImp += 1
End If
Next
Console.WriteLine("Le nombre d'entiers impairs est: " & nbImp)
Console.WriteLine("Le nombre d'entiers pairs est: " & nbP)
Console.ReadLine()
End Sub
End Module

3.
Module Module1
Dim n, i, nbPos, nbNeg, Vmoy_Pos, Vmoy_Neg, nbNull, Som_Pos, Som_Neg
As Double
Sub Main()
nbPos = 0
nbNeg = 0
nbNull = 0
Som_Pos = 0
Som_Neg = 0
Console.Write("Entrez la taille du tableau : ")
n = Console.ReadLine
Dim T(n) As Double
For i = 0 To n - 1
Console.Write("t(" & i + 1 & ") = ")
t(i) = Console.ReadLine
Next
For i = 0 To n - 1
If T(i) = 0 Then
nbNull += 1
ElseIf T(i) > 0 Then
nbPos += 1
Som_Pos += T(i)
Else
nbNeg += 1
Som_Neg += T(i)
End If
Next
Vmoy_Pos = Som_Pos / nbPos
Vmoy_Neg = Som_Neg / nbNeg
Console.WriteLine("Le nombre d'éléments nuls est : " & nbNull)
Console.WriteLine("La valeur moyenne des éléments positifs est: "
& Vmoy_Pos)
Console.WriteLine("La valeur moyenne des éléments négatifs est: "
& Vmoy_Neg)
Console.ReadLine()
End Sub
End Module