Exercice VB: L'addition de deux matrices A et B de mêmes dimensions N et M

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

Objectif :

Travailler avec les Tableaux à deux dimensions.

Travail à Faire :

Ecrire un programme qui réalise l'addition de deux matrices A et B de mêmes dimensions N et M.

Exemple :

/           \        /            \       /                                     \

| a b c d |      | a' b' c' d |     | a + a' b + b' c + c' d + d |

| e f g h | +    | e' f' g' h'| =   | e + e' f + f' g + g' h + h' |

| i j k l    |        | i' j' k' l'   |      |    i + i' j + j' k + k' l + l'     |

\          /         \          /          \                                  /

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

Module Module1
Dim i, j, N, M As Integer
Sub Main()
Console.Write(" N : ")
N = Console.ReadLine
Console.Write(" M : ")
M = Console.ReadLine
Dim A(N, M) As String
Dim B(N, M) As String
Dim A_B(N, M) As String
For i = 0 To N - 1
For j = 0 To M - 1
Console.Write("A(" & i + 1 & " ; " & j + 1 & ") = ")
A(i, j) = Console.ReadLine
Next
Next
Console.WriteLine(" ")
For i = 0 To N - 1
For j = 0 To M - 1
Console.Write("B(" & i + 1 & " ; " & j + 1 & ") = ")
B(i, j) = Console.ReadLine
Next
Next
For i = 0 To N - 1
For j = 0 To M - 1
A_B(i, j) = A(i, j) & " + " & B(i, j)
Next
Next
For i = 0 To N - 1
For j = 0 To M - 1
Console.Write(A_B(i, j) & " ")
Next
Console.WriteLine(" ")
Next
Console.ReadLine()
End Sub
End Module