Exercice VB: Calcule dans un tableau à une seule dimension
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).
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788 | 1.Module Module1Dim i, Cpt, n As IntegerDim X As IntegerSub Main()Cpt = 0Console.Write("Entrez le nombre X : ")X = Console.ReadLineConsole.Write("Entrez la taille du tableau : ")n = Console.ReadLineDim T(n) As DoubleFor i = 1 To nConsole.Write("Entrez l'élément n° " & i & " : ")T(i) = Console.ReadLineIf T(i) = X ThenCpt += 1End IfNextConsole.WriteLine("Le nombre d’occurrences de X est : " & Cpt)Console.ReadLine()End SubEnd Module2.Module Module1Dim n, i, nbP, nbImp As IntegerSub Main()nbImp = 0nbP = 0Console.Write("Entrez la taille du tableau : ")n = Console.ReadLineDim T(n) As IntegerFor i = 0 To n - 1Console.Write("t(" & i + 1 & ") = ")t(i) = Console.ReadLineNextFor i = 0 To n - 1If T(i) Mod 2 = 0 ThennbP += 1ElsenbImp += 1End IfNextConsole.WriteLine("Le nombre d'entiers impairs est: " & nbImp)Console.WriteLine("Le nombre d'entiers pairs est: " & nbP)Console.ReadLine()End SubEnd Module3.Module Module1Dim n, i, nbPos, nbNeg, Vmoy_Pos, Vmoy_Neg, nbNull, Som_Pos, Som_NegAs DoubleSub Main()nbPos = 0nbNeg = 0nbNull = 0Som_Pos = 0Som_Neg = 0Console.Write("Entrez la taille du tableau : ")n = Console.ReadLineDim T(n) As DoubleFor i = 0 To n - 1Console.Write("t(" & i + 1 & ") = ")t(i) = Console.ReadLineNextFor i = 0 To n - 1If T(i) = 0 ThennbNull += 1ElseIf T(i) > 0 ThennbPos += 1Som_Pos += T(i)ElsenbNeg += 1Som_Neg += T(i)End IfNextVmoy_Pos = Som_Pos / nbPosVmoy_Neg = Som_Neg / nbNegConsole.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 SubEnd Module |