Exercice VB: La transposition d'une matrice de dimensions N
Rédigé par GC Team, Publié le 02 Janvier 2012, Mise à jour le Lundi, 02 Janvier 2012 22:48Participez au vote ☆☆☆☆☆★★★★★
Objectif :
Travailler avec les Tableaux à deux dimensions.
Travail à Faire :
Ecrire un programme qui effectue la transposition tA d'une matrice A de dimensions N et M en une matrice de dimensions M et N.
Exemple :
/ \ / \
| a b c d | | a e i |
tA = t | e f g h | = | b f j |
| i j k l | | c g k |
\ / | d h 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 |
Module Module1 Dim i, j, N, M As Integer Sub Main() Console.Write(" N : ") N = Console.ReadLine Console.Write(" M : ") M = Console.ReadLine Dim tA(N, M) As String Dim A(M, N) As String For i = 0 To N - 1 For j = 0 To M - 1 Console.Write("tA(" & i + 1 & " ; " & j + 1 & ") = ") tA(i, j) = Console.ReadLine Next Next For i = 0 To N - 1 For j = 0 To M - 1 A(j, i) = tA(i, j) Next Next For i = 0 To M - 1 For j = 0 To N - 1 Console.Write(A(i, j) & " ") Next Console.WriteLine(" ") Next Console.ReadLine() End Sub End Module |