Exercice VB: produire un tableau contenant l'intersection de deux ensembles
Travail à Faire:
1. On considère deux ensembles d'entiers représentés dans les tableaux, Chaque entier n'apparaît qu'en un exemplaire dans une séquence.
Ecrire un Programme qui produit un tableau contenant l'intersection des deux ensembles.
Exemple :
- Tableau 1 : 10 5 12 7 19 28 6.
- Tableau 2 : 5 14 19 2 10 6 29 3 7.
- Tableau résultat : 10 5 7 19 6
1234567891011121314151617181920212223242526272829303132333435363738 | 1.Module Module1Dim i, j, n, s, c, m As IntegerSub Main()Console.Write("Entrez la taille du Tableau 1 : ")n = Console.ReadLineDim t1(n) As IntegerFor i = 0 To n - 1Console.Write("t(" & i + 1 & ")=")t1(i) = Console.ReadLineNextConsole.Write("Entrez la taille du Tableau 2 : ")m = Console.ReadLineDim t2(m) As IntegerFor i = 0 To m - 1Console.Write("t(" & i + 1 & ")=")t2(i) = Console.ReadLineNextDim t(c) As Integers = 0c = 0For i = 0 To n - 1For j = 0 To m - 1If t1(s) = t2(j) Thent(c) = t1(s)c = c + 1ReDim Preserve t(c)End IfNexts = s + 1NextFor i = 0 To c - 1Console.Write(t(i) & " ")NextConsole.ReadLine()End SubEnd Module |