Ejemplo de Algoritmo en PseInt para calcular el Producto de Matrices

Proceso ProductoMatrices
Definir i como entero;
Definir j como entero;
Definir m como entero;
Definir n como entero;
Definir columnasA como entero;
Definir columnasB como entero;
Definir filasA como entero;
Definir A como real;
Definir B como real;
Definir C como real;

Escribir "Ingrese numero de columnas en la matriz A (debe ser igual al numero de filas de B):";
Leer columnasA;

Escribir "Ingrese el numero de filas en la matriz A:";
Leer filasA;

Escribir "Ingrese el numero de columans en la matriz B:";
Leer columnasB;

Dimension A [filasA,columnasA];
Dimension B [columnasa,columnasA];

Para i<-0 Hasta filasA - 1 Con Paso 1 Hacer
Para j<- 0 Hasta columnasA - 1 Con Paso 1 Hacer
Escribir "Ingrese elemento A[",i,",",j,"]";
Leer A [i,j];
FinPara
FinPara

Para i<-0 Hasta columnasA - 1 Con Paso 1 Hacer
Para j<- 0 Hasta columnasB - 1 Con Paso 1 Hacer
Escribir "Ingrese elemento B [",i,",",j,"]";
Leer B [i,j];
FinPara
FinPara

Dimension C [columnasA,columnasB];

Para n<-0 Hasta columnasB - 1 Con Paso 1 Hacer
Para m<-0 Hasta columnasA - 1 Con Paso 1 Hacer
C[m,n] <- 0;
Para i<-0 Hasta columnasA - 1 Con Paso 1 Hacer
C[m,n] <- C[m,n]+A[m,i]*B[i,n];
FinPara
FinPara
FinPara

Para n<-0 Hasta columnasB - 1 Con Paso 1 Hacer
Para m<-0 Hasta columnasA  - 1 Con Paso 1 Hacer
Escribir "C[",m,",",n,"] = ",C[m,n];
FinPara
FinPara


FinProceso