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:01Participez au vote ☆☆☆☆☆★★★★★
Objectif:
Travailler avec Les tableaux à une seule dimension
Travail à Faire :
- 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).
- Ecrire un algorithme qui calcule le nombre d'entiers pairs et le nombre d'entiers impairs d'un tableau d'entiers.
- 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 |