Algoritmos y Programación en Pascal

6.2. Instrucciones de selección 93
7,8: WriteLn(’NOTABLE’);
9: WriteLn(’SOBRESALIENTE’);
10: WriteLn(’MATRICULA de HONOR’)
end {case}
Otra situación en la que es frecuente el uso de la instrucción case es cuando
algunos programas se controlan mediante menús, es decir, aparecen en pantalla
las diferentes acciones que se pueden ejecutar dentro del programa y el usuario
elige, mediante un número o una letra, aquélla que quiere utilizar.
Por ejemplo, supongamos un programa de gestión de una biblioteca. Tal
programa proporcionaría en pantalla un menú con las siguientes acciones:
B. Búsqueda.
P. Petición préstamo.
D. Devolución préstamo.
S. Salir.
En un primer nivel de refinamiento, el programa podría escribirse de la siguiente
forma:
var
opcion: char;
...
Mostrar el menú
Leer opcion
case opcion of
’B’: Búsqueda.
’P’: Petición Préstamo.
’D’: Devolución Préstamo.
’S’: Salir.
end
Si las acciones son complejas, pueden aparecer submenús donde se seleccionan
ciertas características de la acción. Por ejemplo, al elegir la opción de búsqueda
puede aparecer un segundo menú con las distintas opciones disponibles:
A. Búsqueda por Autores.
M. Búsqueda por Materias.
I. Búsqueda por ISBN.
S. Salir.