ALGORITMO QUE MULTIPLICA DOS MATRICES
Matriz - Matrices - Vector Bidimensional
Multiplicar 2 matrices en PSeInt
💻 Multiplicación de 2 matrices con dimensión de n x n, dónde n es un valor ingresado por teclado.
PSeInt Estricto :
Algoritmo programacion_work
Definir n, matrix1, matrix2, f, z, c, multi como Entero;
Dimension matrix1[100,100], matrix2[100,100];
Escribir "13. MULTIPLICACIÓN DE MATRICES";
Escribir Sin Saltar "DIMENSION n x n : ";
Leer n;
// CARGANDO MATRIZ 1 Y 2 CON NÚMEROS ALEATORIOS DEL 1 al 9.
Para f <- 0 Hasta n con Paso 1 Hacer
Para c <- 0 Hasta n con Paso 1 Hacer
matrix1[f,c] <- ALEATORIO(1,9);
matrix2[f,c] <- ALEATORIO(1,9);
FinPara
FinPara
Escribir "";
Escribir "MATRIZ 1 MATRIZ 2";
Para f <- 0 Hasta n-1 con Paso 1 Hacer
Para c <- 0 Hasta n-1 con Paso 1 Hacer
Escribir Sin Saltar matrix1[f,c], " ";
FinPara
Escribir Sin Saltar " ";
Para c <- 0 Hasta n-1 con Paso 1 Hacer
Escribir Sin Saltar matrix2[f,c], " ";
FinPara
Escribir "";
FinPara
Escribir "";
Escribir "MULTIPLICACIÓN DE MATRICES";
Para z <- 0 Hasta n-1 con Paso 1 Hacer
Para f <- 0 Hasta n-1 con Paso 1 Hacer
multi <- 0;
Para c <- 0 Hasta n-1 con Paso 1 Hacer
multi <- multi + (matrix1[z,c] * matrix2[c,f]);
FinPara
Escribir Sin Saltar multi, " ";
FinPara
Escribir "";
FinPara
FinProceso
.
.
.
.