Exercice VB: La transposition d'une matrice de dimensions N
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 |
\ /
1234567891011121314151617181920212223242526272829 | Module Module1Dim i, j, N, M As IntegerSub Main()Console.Write(" N : ")N = Console.ReadLineConsole.Write(" M : ")M = Console.ReadLineDim tA(N, M) As StringDim A(M, N) As StringFor i = 0 To N - 1For j = 0 To M - 1Console.Write("tA(" & i + 1 & " ; " & j + 1 & ") = ")tA(i, j) = Console.ReadLineNextNextFor i = 0 To N - 1For j = 0 To M - 1A(j, i) = tA(i, j)NextNextFor i = 0 To M - 1For j = 0 To N - 1Console.Write(A(i, j) & " ")NextConsole.WriteLine(" ")NextConsole.ReadLine()End SubEnd Module |