Exercice VB: Somme Matrice
Objectif :
Travailler avec les Tableaux à deux dimensions.
Travail à Faire :
- Ecrire un programme qui calcule la somme des éléments d'une matrice.
- Ecrire un programme qui calcule la somme des lignes d'une matrice.
- Ecrire un programme qui calcule la somme des éléments de la diagonale d'une matrice carrée.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485 | 1.Module Module1Dim i, j, n, m, S As IntegerSub Main()S = 0Console.Write("Entrez le nombre de lignes : ")n = Console.ReadLineConsole.Write("Entrez le nombre de colonnes : ")m = Console.ReadLineDim T(n, m) As IntegerFor i = 0 To n - 1For j = 0 To m - 1Console.Write("Entrez l'élément T(" & i + 1 & ";" & j + 1& ")" & " : ")T(i, j) = Console.ReadLine()NextNextFor i = 0 To n - 1For j = 0 To m - 1S = S + T(i, j)NextNextConsole.Write("La somme est : " & S)Console.ReadLine()End SubEnd Module 2.Module Module1Dim i, j, n, m, S As IntegerSub Main()Console.Write("Entrez le nombre de lignes : ")n = Console.ReadLineConsole.Write("Entrez le nombre de colonnes : ")m = Console.ReadLineDim T(n, m) As IntegerFor i = 0 To n - 1For j = 0 To m - 1Console.Write("Entrez l'élément T(" & i + 1 & ";" & j + 1& ")" & " : ")T(i, j) = Console.ReadLine()NextNextFor i = 0 To n - 1S = 0For j = 0 To m - 1S = S + T(i, j)NextConsole.WriteLine("La somme de linge " & i + 1 & " est : " &S)NextConsole.ReadLine()End SubEnd Module 3.Module Module1Dim i, S, n, m, j As IntegerSub Main()Console.Write("Entrez le nombre de lignes : ")n = Console.ReadLineConsole.Write("Entrez le nombre de colonnes: ")m = Console.ReadLineWhile (n m)Console.WriteLine("Impossible")Console.Write("Entrez le nombre de lignes : ")n = Console.ReadLineConsole.Write("Entrez le nombre de colonnes: ")m = Console.ReadLineEnd WhileDim T(n, m) As IntegerFor i = 0 To n - 1For j = 0 To m - 1Console.Write("T(" & i + 1 & ";" & j + 1 & ") = ")T(i, j) = Console.ReadLineNextNextS = 0For i = 0 To n - 1S = S + T(i, i)NextConsole.Write("La somme des éléments de la diagonale est : " & S)Console.ReadLine()End SubEnd Module |