UNIDAD 4: PROGRAMACION PASCAL PROCEDIMIENTOS Y FUNCIONES

TEMA 6: ARREGLOS COMO PARAMETROS PROGRAMACION PASCAL

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:

Prog14.pas

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.

corrida:

image246.jpg

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.

TAREAS PROGRAMACION PASCAL

1.- Inicializar 10 edades en el principal mandar la lista a un procedimiento que la convierte a meses, desplegar en principal.

2.- Capturar un arreglo de 7 ciudades en principal, sortear u ordenar o alfabetizar (sorteo burbuja) en un procedimiento y desplegar en otro procedimiento tanto la lista original como la lista ordenada.

Politica de Privacidad