•Array como parametros•

En este tema usaremos una instruccion nueva en pascal la instruccion TYPE, basicamente se usa para crear un tipo de dato nuevo que no exista dentro del estandar de pascal, por ejemplo;

TYPE

Meses = (ene, feb, mar, abr);

Pares = (2,4,6,8);

VAR

Mes:Meses;

Num:Pares

Como se observa se crearon dos tipos de datos nuevos y se declararon dos variables de ese tipo.

Para pasar un arreglo completo como parametro a un procedimiento a una funcion solo se manda el nombre del arreglo sin corchetes e indices.

En el procedimiento o funcion que recibe solo se declara un arreglo del mismo tipo.

Recordar tambien que el arreglo se podra mandar POR VALOR o POR REFERENCIA en este ultimo caso mas util ( evitamos gastar memoria duplicando el arreglo ) cambios que se le hagan a los datos del arreglo que recibe realmente se esta haciendo al arreglo original como lo muestra el siguiente ejemplo:

program prog14;

uses crt;

type

rango = array[1..3] of integer;

var

vector:rango; r1:integer;

PROCEDURE listas(var lista:rango);

var r

:integer;

begin for r:=1 to 3 do

lista[r] := lista[r] + 1000;

end;

begin

clrscr; (* cargando vector *)

vector[1]:=50;vector[2]:=100;vector[3]:=200;

(* pasandolo a procedimiento *)

listas(vector);

for r1:=1 to 3 do

writeln(vector[r1]);

readln;

end.

Es de recordar que los cambios que le hagan al arreglo dentro de la funcion se reflejaran en el arreglo original, es por esto que si se quiere modificar un arreglo en una funcion no hay necesidad de regresar ningun valor.