Algoritmos y Programación en Pascal

11.3. Conjuntos 247
case inicial of
’L’,’l’: dia:= lun;
’M’,’m’: dia:= mar;
’X’,’x’: dia:= mie;
’J’,’j’: dia:= jue;
’V’,’v’: dia:= vie;
’S’,’s’: dia:= sab;
’D’,’d’: dia:= dom
end {case}
end; {LeerDiaSemana}
Piense el lector cómo se complicaría el código de este procedimiento en caso
de no usar conjuntos.
11.3.2 Observaciones sobre el tipo conjunto
Además de lo anteriormente dicho sobre el tipo de datos conjunto, cabe
considerar las siguientes observaciones:
1. Podemos definir un conjunto de forma anónima, en el sentido explicado
anteriormente:
var
vocales, letras, numeros, simbolos, vacio: set of char;
2. Al igual que para el tipo de datos enumerado, los conjuntos no se pueden
leer o escribir directamente, por lo que se tendrán que desarrollar procedimientos
para tal fin como los que se muestran a continuación:
type
tLetrasMayusculas = ’A’..’Z’;
tConjuntoLetras = set of tLetrasMayusculas;
procedure EscribirConjunto(letras: tConjuntoLetras);
{Efecto: se muestran en la pantalla los elementos
del conjunto letras}
var
car: char;
begin
for car:= ’A’ to’Z’ do
if car in letras then
Write(car,’ ’)
end; {EscribirConjunto}