Exercice VB: produire un tableau contenant l'intersection de deux ensembles
Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Vendredi, 16 Décembre 2022 23:22Participez au vote ☆☆☆☆☆★★★★★
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
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 |
1. Module Module1 Dim i, j, n, s, c, m As Integer Sub Main() Console.Write("Entrez la taille du Tableau 1 : ") n = Console.ReadLine Dim t1(n) As Integer For i = 0 To n - 1 Console.Write("t(" & i + 1 & ")=") t1(i) = Console.ReadLine Next Console.Write("Entrez la taille du Tableau 2 : ") m = Console.ReadLine Dim t2(m) As Integer For i = 0 To m - 1 Console.Write("t(" & i + 1 & ")=") t2(i) = Console.ReadLine Next Dim t(c) As Integer s = 0 c = 0 For i = 0 To n - 1 For j = 0 To m - 1 If t1(s) = t2(j) Then t(c) = t1(s) c = c + 1 ReDim Preserve t(c) End If Next s = s + 1 Next For i = 0 To c - 1 Console.Write(t(i) & " ") Next Console.ReadLine() End Sub End Module |