Algoritmos y Programación en Pascal

264 Capítulo 12. Arrays
En el siguiente ejemplo, que calcula el producto de dos matrices reales, se utilizan
las operaciones permitidas a los arrays, haciendo uso del hecho de que las
matrices se pueden pasar como parámetros en funciones y procedimientos. En
un primer nivel de diseño se tiene:
Leer matrices a y b
Multiplicar matrices a y b, hallando la matriz producto prod
Mostrar la matriz prod
Dada la simplicidad y familiaridad de los subprogramas a implementar, no
se considera necesario un nivel inferior de diseño, razón por la cual se presenta
directamente la codificación en Pascal:
Program MultiplicacionDeMatrices (input,output);
{El programa lee dos matrices cuadradas de dimensión N y de
componentes reales y las multiplica, mostrando la matriz
producto en la pantalla}
const
N = 10;
type
tMatriz = array[1..N, 1..N] of real;
var
a, b, prod: tMatriz;
procedure LeerMatriz(var mat : tMatriz);
{Efecto: Este procedimiento lee del input una matriz
cuadrada mat ∈ MN ( IR), componente a componente}
var
fil, col: 1..N;
begin
for fil:= 1 to N do
for col:= 1 to N do begin
Write(’Introduzca la componente ’, fil, ’,’, col,
’ de la matriz: ’);
ReadLn(mat[fil,col])
end
end; {LeerMatriz}
procedure MultiplicarMat(m1, m2: tMatriz; var resul: tMatriz);
{Efecto: resul:= m1 * m2}
var
i, j, k: 1..N;
{i recorre las filas de m1 y de resul, j recorre las columnas
de m1 y las filas de m2 y k recorre las columnas de m2 y las
de resul}