Exercice VB: Somme Matrice

Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00
Participez au vote ☆☆☆☆☆★★★★★

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.
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

1.
Module Module1
Dim i, j, n, m, S As Integer
Sub Main()
S = 0
Console.Write("Entrez le nombre de lignes : ")
n = Console.ReadLine
Console.Write("Entrez le nombre de colonnes : ")
m = Console.ReadLine
Dim T(n, m) As Integer
For i = 0 To n - 1
For j = 0 To m - 1
Console.Write("Entrez l'élément T(" & i + 1 & ";" & j + 1
& ")" & " : ")
T(i, j) = Console.ReadLine()
Next
Next
For i = 0 To n - 1
For j = 0 To m - 1
S = S + T(i, j)
Next
Next
Console.Write("La somme est : " & S)
Console.ReadLine()
End Sub
End Module
 
2.
Module Module1
Dim i, j, n, m, S As Integer
Sub Main()
Console.Write("Entrez le nombre de lignes : ")
n = Console.ReadLine
Console.Write("Entrez le nombre de colonnes : ")
m = Console.ReadLine
Dim T(n, m) As Integer
For i = 0 To n - 1
For j = 0 To m - 1
Console.Write("Entrez l'élément T(" & i + 1 & ";" & j + 1
& ")" & " : ")
T(i, j) = Console.ReadLine()
Next
Next
For i = 0 To n - 1
S = 0
For j = 0 To m - 1
S = S + T(i, j)
Next
Console.WriteLine("La somme de linge " & i + 1 & " est : " &
S)
Next
Console.ReadLine()
End Sub
End Module
 
3.
Module Module1
Dim i, S, n, m, j As Integer
Sub Main()
Console.Write("Entrez le nombre de lignes : ")
n = Console.ReadLine
Console.Write("Entrez le nombre de colonnes: ")
m = Console.ReadLine
While (n  m)
Console.WriteLine("Impossible")
Console.Write("Entrez le nombre de lignes : ")
n = Console.ReadLine
Console.Write("Entrez le nombre de colonnes: ")
m = Console.ReadLine
End While
Dim T(n, m) As Integer
For i = 0 To n - 1
For j = 0 To m - 1
Console.Write("T(" & i + 1 & ";" & j + 1 & ") = ")
T(i, j) = Console.ReadLine
Next
Next
S = 0
For i = 0 To n - 1
S = S + T(i, i)
Next
Console.Write("La somme des éléments de la diagonale est : " & S)
Console.ReadLine()
End Sub
End Module