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:22
Participez 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