Algoritmos y Programación en Pascal

12.3. Matrices 265
begin
for i:= 1 to N do
for k:= 1 to N do begin
resul[i,k]:= 0;
for j:= 1 to N do
resul[i,k]:= resul[i,k] + m1[i,j] * m2[j,k]
end {for k}
end; {MultiplicarMat}
procedure EscribirMatProd(m: tMatriz);
{Efecto: escribe en la pantalla los elementos de la matriz m}
var
i, j: 1..N;
begin
for i:= 1 to N do
for j:= 1 to N do
{Escribe mij}
WriteLn(’m(’, i, ’,’, j, ’) = ’, m[i,j]);
end; {EscribirMatProd}
begin
WriteLn(’Lectura de la matriz A’);
LeerMatriz(a);
WriteLn(’Lectura de la matriz B’);
LeerMatriz(b);
MultiplicarMat(a,b,prod);
EscribirMatProd(prod)
end. {MultiplicacionDeMatrices}
Un ejemplo completo
El siguiente ejemplo utiliza todos los tipos de datos definidos por el programador
vistos hasta ahora, es decir, los tipos enumerado, subrango y array.
Se trata de construir un almanaque del siglo xx, asignando en una matriz
con tres índices correspondientes a los días del mes (1 al 31), meses (ene, feb,
etc.), y años desde el 1901 al 2000, los días de la semana.
El punto de partida es el día 31 de diciembre de 1900 que fue lunes. A
partir de esta fecha se van recorriendo consecutivamente todos los días del siglo
asignándoles el día de la semana correspondiente, teniendo especial cuidado en
determinar cuántos días tiene cada mes, para lo cual se ha de comprobar si el año
es bisiesto. En un primer nivel de refinamiento podríamos escribir el siguiente
seudocódigo: