1.- Elabore un programa modular que lea una matriz de enteros de m renglones y n columnas y calcule la suma de los elementos de cada columna. INICIO Leer m, n Para1 (i = 1; i <= m; i++) Suma_columna[ i ] = 0 FinPara1 Para2 (j = 1; j <= n; j++) Para3 (i = 1; i <= m; i++) Leer M[ i, j ] Suma_columna[ i ] = Suma_columna[ i ] + M[ i, j ] FinPara3 FinPara2 FIN 2.- Elabore un programa modular que lea una matriz de m X n y la escriba poniendo las columnas como renglones y los renglones como columnas. Por ejemplo, si la matriz que da el usuario es: 4
7
1
3
5
2
0
6
9
7
3
1
2
6
4
entonces el programa debe escribir la matriz transpuesta:
INICIO
4
2
3
7
0
1
1
6
2
3
9
6
5
7
4
Leer m, n Para1 (i =1; i <= m; i++) Para2 (j = 1; j <= n; j++) Leer M[ i, j ] MT[ j, i ] = M[ i, j ] FinPara2 FinPara1 Para3 (i =1; i <= m; i++) Para4 (j = 1; j <= n; j++) Mostrar M[ i, j ], MT[ j, i ] FinPara4 FinPara3 FIN 3.- Una matriz cuadrada A se dice que es simétrica si A(i, j) = A(j, i) para todo i, j dentro de los límites de la matriz. Elabore una función que lea una matriz y regrese un 1 (uno) si es simétrica o un 0 (cero) no. INICIO Leer n Simetrica = 1 Para1 (i = 1; i <= n; i++) Para2 (j = 1; j <= n; j++) Leer A[ i, j ] FinPara2 FinPara1 Para3 (i = 1; i <= n; i++) Para4 (j = 1; j <= n; j++) Si1 (A[ i, j ] != A[ j, i ]) Simetrica = 0 i=n FinSi1 FinPara4 FinPara3 Si2 (Simetrica == 1) Mostrar Simetrica Sino2 Mostrar Simetrica FinSi2 FIN
4.- Elabore una función para calcular la matriz c(m,p) = a(m,n) * b(n,p).
INICIO Leer p, m, n, q Si1 (m == n) Suma = 0 Para1 (i = 1; i <= p; i++) Para2 (j = 1; j <= m; j++) Leer A[ i, j ] FinPara2 FinPara1 Para3 (i = 1; i <= n; i++) Para4 (j = 1; j <= q; j++) Leer B[ i, j ] FinPara4 FinPara3 Para5 (i = 1; i <= p; i++) Para6 (j = 1; j <= q; j++) C[ i, j ] = 0 Para7 (k = 1; k <= m; k++) C[ i, j ] = C[ i, j ] + (A[ i, k ] * B[ k, j ]) FinPara7 FinPara6 FinPara5 FinSi1 FIN