Algoritmos y Programación en Pascal

12.3. Matrices 263
function Norma(vec: tVector): real;
{Dev.
...
end; {Norma}
T amanno
i=1 vec 2 i }
begin
norm:= Norma(v);
for i:= 1 to Tamanno do
uni[i]:= v[i]/norm
end; {HallarUnitario}
12.3 Matrices
Como ya se dijo, los arrays multidimensionales reciben el nombre genérico
de matrices. En este apartado se presentan algunos ejemplos de utilización de
matrices.
Evidentemente, la forma de definir los tipos de datos para las matrices es la
misma de todos los arrays, así como el modo de declarar y manipular variables
de estos tipos. Así, por ejemplo:
type
tMeses = (ene, feb, mar, abr, may, jun, jul, ago, sep, oct,
nov, dic);
tDiasMes = 1..31;
tHorasDia = 0..23;
tFrase = array[1..30] of char;
tMCuadrada = array[1..5, 1..5] of real;
tFiestas95 = array[tDiasMes, tMeses] of boolean;
tAgenda95 = array[tDiasMes, tMeses, tHorasDia] of tFrase;
var
m: tMCuadrada;
festivos: tFiestas95;
agenda: tAgenda95;
begin
m[1,2]:= SqRt(2);
m[2,3-2]:= 2.43 * m[1,2];
festivos[25,dic]:= True;
festivos[28,dic]:= False;
agenda[18,mar,17]:= ’Boda de Jose Luis y Mavi. ’
...
end.