Algoritmos y Programación en Pascal

8.2. Subprogramas con parámetros 163
begin
for i:= 1 to 10 do
Write (’-’);
WriteLn
end; {TrazarLinea}
La llamada al procedimiento sería:
TrazarLinea
El procedimiento anterior realiza siempre una acción fija y totalmente determinada;
traza una línea formada por diez guiones. La única relación existente
entre el programa y el procedimiento es la llamada.
Si se quisiera trazar una línea de 15 guiones habría que escribir un nuevo
procedimiento; en cambio, si añadimos un parámetro para determinar la longitud
en caracteres de la línea por trazar:
procedure TrazarLineaLong(longitud: integer);
{Efecto: traza una línea de guiones, con la longitud indicada}
var
i: integer;
begin
for i:=1 to longitud do
Write(’-’);
WriteLn
end; {TrazarLineaLong}
Al efectuar la llamada hay que indicar la longitud de la línea por trazar, por
ejemplo:
TrazarLineaLong(15)
que trazaría una línea formada por quince guiones. Otra posible llamada sería:
largo:= 10;
TrazarLineaLong(largo + 5)
que trazaría una línea idéntica a la anterior.
En resumen, mediante la inclusión de un parámetro, se ha pasado de un
procedimiento que traza una línea de longitud fija y determinada a otro que
puede trazar una línea de cualquier longitud aumentando la flexibilidad y el
grado de abstracción del procedimiento.