Exercice VB: Traitement un peut plus complexe sur Les tableaux à une seule dimension
Objectif:
Travailler avec Les tableaux à une seule dimension
Travail à Faire :
7. Faire un programme qui calcule le produit scalaire de deux vecteurs d'entiers U et V (de même dimension).
Exemple :
/ \ / \
| 3 2 -4 | * | 2 -3 5| = 3 * 2 + 2 * (-3) + (-4) * 5 = -20
\ / \ /
8. Soit T un tableau d'entiers de taille n. Un plateau dans T est une suite d'éléments consécutifs et égaux de T. Le problème consiste à trouver le plus long plateau dans le tableau T.
Exemple :
Pour le tableau contenant les valeurs (2; 2; 6; 6; 6; 6; 3; 3; 6; 3; 3; 3; 2; 3; 3), le plus long plateau commence à l'indice 3 et il est de longueur 4.
Ecrire un Programme qui permet de résoudre le problème énoncé.
9. Trier les éléments d'un tableau par les méthodes suivantes :
- Tri à bulles.
- Tri par sélection.
- Tri par insertion.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139 | 7.Module Module1Dim n, P, i As IntegerSub Main()Console.Write("Entrez la taille du Tableau : ")n = Console.ReadLineDim U(n), V(n) As IntegerFor i = 0 To n - 1Console.Write("U(" & i + 1 & ") = ")U(i) = Console.ReadLineNextFor i = 0 To n - 1Console.Write("V(" & i + 1 & ") = ")V(i) = Console.ReadLineNextFor i = 0 To n - 1P += U(i) * V(i)NextConsole.WriteLine("Le produit scalaire : " & P)Console.ReadLine()End SubEnd Module8.Module Module1Sub Main()Dim i, n, pos, max, c As IntegerConsole.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.ReadLineNextmax = 0c = 1For i = 1 To n - 1If t(i) = t(i - 1) Thenc = c + 1Elsec = 1End IfIf c > max Thenmax = cpos = i - c + 2End IfNextConsole.WriteLine("Le plus long plateau commence à l'indice : " &pos)Console.Write("Il est de longueur : " & max)Console.ReadLine()End SubEnd Module9.a.Module Module1Sub Main()Dim i, n, j, temp As IntegerConsole.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 = n - 1 To 1 Step -1For j = 1 To iIf t(j - 1) > t(j) Thentemp = t(j)t(j) = t(j - 1)t(j - 1) = tempEnd IfNextNextFor i = 0 To n - 1Console.Write(t(i) & " ")NextConsole.WriteLine(" ")Console.ReadLine()End SubEnd Moduleb.Module module1Sub main()Dim i, j, n, m, temp As IntegerConsole.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 - 2m = iFor j = i + 1 To n - 1If t(j) (m) Thentemp = t(m)t(m) = t(j)t(j) = tempm = iEnd IfNextNextFor i = 0 To n - 1Console.Write(t(i) & " ")NextConsole.ReadLine()End SubEnd Modulec.Module Module1Dim i, j, n, elt As IntegerSub Main()Console.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 = 1 To n - 1elt = t(i)j = iWhile t(j - 1) > elt And j > 0t(j) = t(j - 1)j = j - 1If j = 0 ThenExit WhileEnd IfEnd Whilet(j) = eltNextFor i = 0 To n - 1Console.Write(t(i) & " ")NextConsole.ReadLine()End SubEnd Module |