Programación en Pascal

end;
Procedimientos y funciones
En el caso anterior hemos resuelto el problema realizando un programa. Sin embargo los
programas reales tienden a ser bastante más grandes. Para que se facilite la tarea de
programar sería adecuado dividir el problema en módulos, de modo que el programa no se
construyera con innumerables líneas de código sino con una serie de llamadas a
subalgoritmos, con las ventajas de la mejora de la claridad en los programas, la reutilización de
código y el mantenimiento de los programas.
Recordaremos que existen dos tipos de subalgoritmos, procedimientos y funciones. Para
decantarnos en utilizar un tipo u otro tendremos en cuenta la siguiente tabla.
Salida Simple Salida Estructurada
1 Salida Función Procedimiento
Más de una salida Procedimiento Procedimiento
Se considera un valor de salida a aquel que se obtiene dentro del subalgoritmo a partir de otros
de entrada. El tipo de dato de salida se considera simple cuando es un tipo definido por el
propio lenguaje, como los enteros, reales, lógicos, etc. Los tipos estructurados los suele crear
el usuario a partir de otros tipos de datos simples, por ejemplo un polígono, una lista de notas
de alumnos, etc. Existen otros datos definidos por el usuario que sin embargo pueden
considerarse simples, puestos que están compuestos de un número muy pequeño de
elementos, un punto, un número complejo, etc. Sin embargo nosotros lo consideraremos
estructurados para simplificar.
Por ejemplo la suma de tres valores enteros es una función porque independientemente del
número de elementos que entran sólo sale un valor y éste es simple
a
b
c
suma
Sin embargo un subalgoritmo que intercambie los contenidos de dos variables o que devuelva
un polígono, será un procedimiento. En el primer caso porque salen dos variables y en
segundo porque el tipo de dato de salida es estructurado.
a
b
Recordaremos brevemente los procedimientos y funciones en seudocódigo y sus equivalencias
en Pascal.
FUNCION Suma (a,b,c:entero):entero
ENTRADA; a,b,c
SALIDAD: a+b+c
VARIABLES:
INICIO
Suma ← a+b+c
FIN
b
a
FUNCTION Suma (a,b,c:integer):interger;
BEGIN
Suma := a+b+c;
END;
5