Exercice VB: Somme Matrice

Objectif :

Travailler avec les Tableaux à deux dimensions.

Travail à Faire :

  1. Ecrire un programme qui calcule la somme des éléments d'une matrice.
  2. Ecrire un programme qui calcule la somme des lignes d'une matrice.
  3. Ecrire un programme qui calcule la somme des éléments de la diagonale d'une matrice carrée.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384851.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
Article publié le 02 Janvier 2012