Matrices - Ejercicios Resueltos

*
* Este programa realiza la suma de todos los
* elementos de una matriz cargada aleatoriamente
*
*/
programa suma
var
mat:matriz[*,*]numerico
m,n,i,j,suma:numerico
inicio
cls()
leer(m)
leer(n)
dim (mat,m,n)
//cargar la matriz con valores aleatorios
desde i=1 hasta m
{
desde j=1 hasta n
{
mat[i,j]=random(100)
}
}
//calcular la suma e imprimir la matriz completa
suma = 0
desde i=1 hasta m
{
desde j=1 hasta n
{
suma = suma + mat[i,j]
imprimir(mat[i,j],"\t")
}
imprimir("\n")
}
imprimir("La suma es: "+str(suma)+"\n")
fin
/*
* Este programa genera una matriz B a partir de otra A
* eliminando una fila y una columna que se ingresan por
* teclado.
*/
programa eliminar_fila_columna
var
M,N,i,j,i_b,j_b,fila,columna:numerico
A,B:matriz[*,*]numerico
inicio
cls()
leer(M)
leer(N)
dim (A,M,N)
dim (B,M-1,N-1)
//cargar la matriz con valores aleatorios
desde i=1 hasta M
{
desde j=1 hasta N
{
A[i,j]=random(100)
}
}
leer(fila)
leer(columna)
//eliminar fila y columna leidas
i_b = 0
desde i=1 hasta M
{
si(ifila)
{
i_b = i_b + 1
j_b=0
desde j=1 hasta N
{
si(jcolumna)
{
j_b = j_b + 1
B[i_b,j_b] = A[i,j]
}

fin
}
}
}
//imprimir matrices
imprimir("\nMATRIZ A:\n")
desde i=1 hasta M
{
desde j=1 hasta N
{
imprimir(A[i,j],"\t")
}
imprimir("\n")
}
imprimir("\nMATRIZ B:\n")
desde i=1 hasta M-1
{
desde j=1 hasta N-1
{
imprimir(B[i,j],"\t")
}
imprimir("\n")
}
//codigo para imprimir la matriz B con la fila y columna sustraidas en blanco
//para verificar el correcto funcionamiento del algoritmo
imprimir("\nMATRIZ B con espacios para comprobar:\n")
i_b=0
desde i=1 hasta M
{
si(ifila)
{
i_b = i_b + 1
j_b=0
desde j=1 hasta N
{
si(jcolumna)
{
j_b = j_b + 1
imprimir(B[i_b,j_b],"\t")
sino
imprimir("--\t")
}
}
sino
desde j=1 hasta N
{
imprimir("--\t")
}
}
imprimir("\n")
}
/*
* Los datos del censo de una población se almacenan en una matriz CENSO[M,N], donde
* cada elemento representa la población de una manzana [m y n son pares]. Se pide
* formar una nueva matriz RESUMEN donde cada elemento represente la población de un cuadro
* de 2 * 2 manzanas de la matriz CENSO.
*/
programa matrices
var
m,n,i,j,ic,jc:numerico
CENSO,RESUMEN:matriz[*,*]numerico
inicio
cls()
//m,n deben ser pares segun enunciado del ejercicio
leer(m)
leer(n)
dim (CENSO,m,n)
dim (RESUMEN,m/2,n/2)
//cargar CENSO con valores aleatorios
desde i=1 hasta m
{
desde j=1 hasta n
{
CENSO[i,j]=random(100)

fin
}
}
//calcular RESUMEN
ic=1
desde i=1 hasta m/2
{
jc=1
desde j=1 hasta n/2
{
RESUMEN[i,j] = CENSO[ic,jc]+CENSO[ic+1,jc]+CENSO[ic,jc+1]+CENSO[ic+1,jc+1]
jc = jc + 2
}
ic = ic + 2
}
//imprimir matrices
imprimir("\nMATRIZ CENSO: \n")
desde i=1 hasta m
{
desde j=1 hasta n
{
imprimir(CENSO[i,j],"\t")
}
imprimir("\n")
}
imprimir("\nMATRIZ RESUMEN: \n")
desde i=1 hasta m/2
{
desde j=1 hasta n/2
{
imprimir(RESUMEN[i,j],"\t")
}
imprimir("\n")
}
/*
* Encontrar la suma de todos los elementos que se encuentran por debajo
* de la diagonal principal en una matriz cuadrada de NxN
*/
programa suma_elementos
var
n,i,j,suma:numerico
m:matriz[*,*]numerico
inicio
cls()
leer(n)
dim(m,n,n)
//cargar matriz con valores aleatorios
desde i=1 hasta n
{
desde j=1 hasta n
{
m[i,j]=random(100)
}
}
//calcular la suma de los elementos por debajo de la diagonal
suma = 0
desde i=2 hasta n
{
desde j=1 hasta i-1
{
suma = suma + m[i,j]
}
}
//imprimir matriz y la suma
imprimir("\nMATRIZ M: \n")
desde i=1 hasta n
{
desde j=1 hasta n
{
imprimir(m[i,j],"\t")
}
imprimir("\n")
}
imprimir("\nLa suma de los elementos debajo de la diagonal es: ",suma)
fin