Exercice VB: Produit Matriciel

Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Vendredi, 16 Décembre 2022 23:24
Participez au vote ☆☆☆☆☆★★★★★

Objectif :

Travailler avec les Tableaux à deux dimensions.

 

Travail à Faire :

  1. Ecrire un programme qui calcule le produit de tous les éléments d'une matrice.
  2. Ecrire un programme qui calcule le produit d'une matrice avec un vecteur.
  3. Donner un programme pour calculer le produit matriciel.
  4. Donner un programme pour tester si une matrice carrée est symétrique.
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, j, n, m, P As Integer
Sub Main()
P = 1
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
P = P * T(i, j)
Next
Next
Console.Write("Le produit est : " & P)
Console.ReadLine()
End Sub
End Module

2.
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
Dim T(n, m), V(m, 1), R(m, 1) 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
Console.WriteLine(" ")
For i = 0 To m - 1
Console.Write("V(" & i + 1 & " , " & 1 & ") = ")
V(i, 0) = Console.ReadLine
Next
For i = 0 To n - 1
S = 0
For j = 0 To m - 1
S = S + (T(i, j) * V(j, 0))
Next
R(i, 0) = S
Next
For i = 0 To n - 1
Console.Write(R(i, 0) & " ")
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
Dim T(n, m), V(n, m), P(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
Console.WriteLine(" ")
For i = 0 To n - 1
For j = 0 To m - 1
Console.Write("V(" & i + 1 & " , " & j + 1 & ") = ")
V(i, j) = Console.ReadLine
Next
Next
For i = 0 To n - 1
For j = 0 To m - 1
P(i, j) = (T(i, j) * V(i, j))
Next
Next
For i = 0 To n - 1
For j = 0 To m - 1
Console.Write(P(i, j) & " ")
Next
Console.WriteLine(" ")
Next
Console.ReadLine()
End Sub
End Module

4.
Module Module1
Dim i, j, n, m, Cpt 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("Pas careé")
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
Cpt = 0
For i = 0 To n - 1
For j = 0 To m - 1
If T(i, j)  T(j, i) Then
Cpt = Cpt + 1
End If
Next
Next
If (Cpt  0) Or (m  n) Then
Console.Write("Pas careé et symétrique")
Else
Console.Write("careé et symétrique")
End If
Console.ReadLine()
End Sub
End Module