Exercice VB: Opérations sur un tableau à 1 seul Dimension
Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Jeudi, 15 Décembre 2022 23:03Objectif:
Travailler avec Les tableaux à une seule dimension
Travail à Faire :
1. Ecrire un Programme qui renverse un tableau (Si le tableau est trié en ordre croissant, il devient trié par ordre décroissant).
2. Ecrire un Programme qui insère un élément donné X à la position K d'un tableau.
3. Soit T un tableau rangés dans l'ordre croissant. Ecrire un Programme qui insère un élément donné X dans le tableau T en respectant l'ordre croissant?
4. Donner un Programme pour supprimer un élément donné d'un tableau d'entiers.
6. Donner un Programme qui prend en argument un tableau d'entiers de taille n et qui le modifie de tels sorts que tous les entiers pairs se retrouvent avant les entiers impairs.
Exemple :
Au départ : T = 7 4 7 8 4 6 3 9 4.
Après modification : T = 4 8 4 6 6 7 7 3 9.
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 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 |
1. Module Module1 Dim i, n As Integer Sub main() Console.Write("Entrez la taille du Tableau : ") n = Console.ReadLine Dim t(n), tcopy(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 tcopy(i) = t(n - 1 - i) Console.Write(tcopy(i) & " ") Next Console.ReadLine() End Sub End Module 2. Module Module1 Dim n, i, x, pos, temp As Integer Sub Main() 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 n = n + 1 Console.Write("Entre l'élément à ajouter : ") x = Console.ReadLine Console.WriteLine(" ") Console.Write("Entre sa position : ") pos = Console.ReadLine For i = pos To n - 1 temp = t(i) t(i) = x x = temp Next For i = 0 To n - 1 Console.Write(t(i) & " ") Next Console.ReadLine() End Sub End Module 3. Module Module1 Sub Main() Dim i, n, x, j, temp As Integer 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 n += 1 Console.Write("Entrez le numero à ajouter : ") x = Console.ReadLine t(i) = x For i = n - 1 To 1 Step -1 For j = 1 To i If t(j - 1) > t(j) Then temp = t(j) t(j) = t(j - 1) t(j - 1) = temp End If Next Next For i = 0 To n - 1 Console.Write(t(i) & " ") Next Console.ReadLine() End Sub End Module 4. Module Module1 Sub Main() Dim i, pos, n, x As Integer 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 Console.Write("Entrez l'élément à supprimé : ") x = Console.ReadLine For i = 0 To n - 1 If x = t(i) Then pos = i End If Next For i = pos To n - 1 t(i) = t(i + 1) Next For i = 0 To n - 2 Console.Write(t(i) & " ") Next Console.ReadLine() End Sub End Module 6. Module Module1 Dim n, c, i As Integer Sub Main() Console.Write("Entrez la taille du Tableau : ") n = Console.ReadLine Dim t(n), taff(n) As Integer For i = 0 To n - 1 Console.Write("t(" & i + 1 & ") = ") t(i) = Console.ReadLine Next c = 0 For i = 0 To n - 1 If t(i) Mod 2 = 0 Then taff(c) = t(i) If Next For i = 0 To n - 1 If t(i) Mod 2 0 Then taff(c) = t(i) c += 1 End If Next For i = 0 To n - 1 Console.Write(taff(i) & " ") Next Console.ReadLine() End Sub End Module |