Algoritmos y Programación en Pascal

10.5. Recursión mutua 225
var
c: char;
begin
repeat
Read(c);
case c of
’(’: CierraPar;
{Llamada recursiva para tratar una pareja de paréntesis
anidados}
’)’: WriteLn(’cuadra el paréntesis’);
’[’: CierraCorchete;
{Llamada recursiva para tratar una pareja de corchetes
anidados}
’]’: WriteLn(’error: cierra paréntesis con corchete’)
end {case}
until (c = ’)’) or EoLn;
if EoLn and (c ’)’) then
{Se llega al fin de la entrada sin encontrar el cierre de
paréntesis}
WriteLn(’error: se queda un paréntesis abierto’)
end; {CierraPar}
procedure CierraCorchete;
{PreC.: se ha leído un carácter ‘[‘ y no EoLn}
{Efecto: se ha recorrido la entrada hasta encontrar un caracter ‘]’
o el fin de la entrada, dando los mensajes adecuados si se ha leído
un símbolo inapropiado}
var
c: char;
begin
repeat
Read(c);
case c of
’(’: CierraPar;
{Llamada recursiva para tratar una pareja de paréntesis
anidados}
’)’: WriteLn(’error: cierra corchete con paréntesis’);
’[’: CierraCorchete;
{Llamada recursiva para tratar una pareja de corchetes
anidados}
’]’: WriteLn(’cuadra el corchete’)
end {case}
until (c = ’]’) or EoLn;
if EoLn and (c ’]’) then
{Se llega al fin de la entrada sin encontrar el cierre de
corchete}
WriteLn(’error: se queda un corchete abierto’)