Algoritmos y Programación en Pascal

262 Capítulo 12. Arrays
Así, haremos referencia al número de pasajeros del vagón i-ésimo mediante
vagon[i], mientras que el total de viajeros en el tren será
15
i=1
que en Pascal se calcula como sigue:
total:= 0;
for i:= 1 to 15 do
total:= total + vagon[i]
vagon[i]
Como todo array, un vector se puede pasar como parámetro en procedimientos
y funciones:
const
Tamanno = 5;
type
tVector = array[1..Tamanno] of real;
function Norma(vec: tVector) : real;
{Dev.
T amanno
i=1 vec 2 i }
var
i: 1..Tamanno;
sumaCuad: real;
begin
sumaCuad:= 0.0;
for i:= 1 to Tamanno do
sumaCuad:= sumaCuad + Sqr(vec[i]);
Norma:= SqRt(sumaCuad)
end; {Norma}
La función anterior devuelve la norma de un vector de IR Tamanno . Supongamos
ahora que queremos desarrollar una función tal que, dado un vector, devuelva
el vector unitario de su misma dirección y sentido. En este caso no podremos
utilizar una función, ya que un vector no puede ser el resultado de una función.
Por esta razón tendremos que utilizar un procedimiento cuyo código podría ser
el siguiente:
procedure HallarUnitario(v: tVector; var uni: tVector);
{PostC.: para todo i, si 1 ≤ i ≤ Tamanno, entonces uni[i] = vi
Norma(v) }
var
norm: real;
i: 1..Tamanno;