Algoritmos y Programación en Pascal

224 Capítulo 10. Introducción a la recursión
En el caso en que se encuentre en el input un paréntesis o un corchete
abierto, hay que seguir leyendo caracteres hasta encontrar (si es que existe) el
correspondiente símbolo de cierre. En caso de encontrarlo se dará un mensaje
de éxito, y en caso contrario, dependiendo del símbolo encontrado, se tomará la
acción correspondiente:
• si es un símbolo de cierre equivocado, se dará un mensaje de error.
• si es un paréntesis o corchete abierto, se hará una llamada recursiva.
• si es el fin del input, también se dará un mensaje indicándolo.
Teniendo en cuenta estas indicaciones, el siguiente nivel de refinamiento de
Cerrar paréntesis puede ser:
Repetir
Leer carácter c
en caso de que c sea
‘(‘: Cerrar paréntesis
‘)‘: Dar mensaje de éxito
‘[‘: Cerrar corchete
‘]‘: Dar mensaje de error
hasta c = ‘)’ o fin de la entrada
Si fin de la entrada entonces
Dar mensaje de error
Y simplemente cambiando los corchetes por paréntesis y viceversa, puede el
lector obtener el siguiente nivel de Cerrar corchete.
Ya en este nivel de diseño se puede observar que las tareas Cerrar paréntesis
y Cerrar corchete son mutuamente recursivas, y como tales deben ser tratadas
en la codificación en Pascal que se da a continuación:
Program Equilibrado (input, output);
{Estudia el equilibrado de paréntesis y corchetes en secuencias de
caracteres}
var
c: char;
procedure CierraCorchete; forward;
procedure CierraPar;
{PreC.: se ha leído un carácter ‘(‘ y no EoLn}
{Efecto: se ha recorrido la entrada hasta encontrar un carácter ‘)’
o el fin de la entrada, dando los mensajes adecuados si se ha leído
un símbolo inapropiado}