Programacion

4. Funciones y Procedimientos en Pascal
Un programa en Pascal consiste de uno o más módulos, los cuales a su vez también pueden estar constituídos
por otros módulos, y así sucesivamente. Estos módulos serán llamados, en términos generales,
SUBPROGRAMAS, y en particular PROCEDIMIENTOS y FUNCIONES.
Un subprograma es un bloque de programa que realiza una tarea determinada, y que al llamársele oinvocársele puede necesitar que se le pasen PARAMETROS.
Los parámetros son identificadores que proveen un mecanismo para pasar información hacia los
subprogramas invocados.
Los parámetros que se utilizan en la declaración de subprogramas se llaman PARAMETROS FORMALES.
Un subprograma puede ser invocado desde cualquier punto del programa, por medio de una instrucción
INVOCADORA, la cualpuede contener una lista de parámetros llamados PARAMETROS ACTUALES.

Procedimientos
Un procedimiento es un subprograma que realiza alguna de las tareas del programa, y que no devuelve
ningún valor al subprograma que lo invocó.
Un procedimiento está compuesto de un grupo de sentencias a las que se asigna un nombre (identificador) y
constituye una unidad del programa. La tarea asignada alprocedimiento se ejecuta siempre que Pascal
encuentra el nombre del procedimiento.
En Turbo Pascal resulta obligatorio declarar los procedimientos antes de ser referenciados en el cuerpo del
programa.
. Declaración de un procedimiento
La sintaxis para declarar un procedimiento es :
Formato 1 :
procedure nombre_procedimiento;
declaraciones locales
begin
cuerpo del procedimiento
end;
Formato2:
procedure nombre_procedimiento(parámetros formales);
declaraciones locales
begin
cuerpo del procedimiento
end;

Página 45 de 45

La existencia de parámetros_formales dependerá de la naturaleza del procedimiento, esto es, de la tarea que
va a realizar y de la forma en que lo ha estructurado su creador.
Invocación al procedimiento
Para invocar a un procedimiento, la sintaxis es :(parámetros_actuales) ;
donde la existencia de parámetros_actuales dependerá de que en la declaración del procedimiento se hayan
utilizado parámetros formales.
Para ejemplificar el uso de procedimientos, diseñaremos un programa que resuelva el problema de SUMAR
y MULTIPLICAR MATRICES.
PSEUDOCODIGO
{PROGRAMA PARA SUMAR Y MULTIPLICAR MATRICES}
INICIO
IMPRIME encabezado.
LEE las dimensionesde las matrices A y B.
SI las matrices no son compatibles para la suma,
ENTONCES
IMPRIME mensaje_1.
SI las matrices no son compatibles para la mult.,
ENTONCES
IMPRIME mensaje_2.
SI son compatibles para la suma o para la mult. ,
ENTONCES
INICIO
LEE las matrices A y B.
IMPRIME las matrices A y B.
SI son compatibles para la suma, ENTONCES
INICIO
SUMA las matrices A y B.
IMPRIME lamatriz resultado C.
FIN
SI son compatibles para la multiplicacion, ENTONCES
INICIO
MULTIPLICA las matrices A y B.
IMPRIME la matriz resultado D.
FIN
FIN
FIN.

CODIFICACION :
Program Opera_matrices;
{Programa para sumar y multiplicar matrices de orden
hasta de dim_max por dim_max }
Uses Crt;
Const
dim_max = 10;
Type
mat = array [1..dim_max , 1..dim_max] of real;
Varmat_a,mat_b,mat_c
: mat;
bandera_suma,bandera_mult:boolean;
ren_a,ren_b,col_a,col_b :integer;
procedure inicio;
Var
contador : integer;
begin ClrScr;
gotoxy(23,2);
WriteLn('SUMA Y MULTIPLICACION DE MATRICES');
for contador := 1 to 80 do
Write('=');
Página 46 de 46

WriteLn
end;
{Lee las dimensiones de las matrices}
procedure dim ;
begin
WriteLn('DIMENSIONES DE LA MATRIZ A');
WriteLn;Write('Número de renglones ==> ');
ReadLn(ren_a);
Write('Numero de columnas ==> ');
ReadLn(col_a);
WriteLn;
WriteLn;
WriteLn('DIMENSIONES DE LA MATRIZ B');
WriteLn;
Write('Número de renglones ==> ');
ReadLn(ren_b);
Write('Número de columnas ==> ');
ReadLn(col_b)
end;
{Verifica la compatibilidad para la suma}
procedure compat_suma (ren_f_a,ren_f_b,col_f_a,col_f_b:integer;
Var...