Algoritmos y Programación en Pascal

248 Capítulo 11. Tipos de datos simples y compuestos
procedure LeerConjunto(var conj: tConjuntoLetras);
{Efecto: conj contiene las letras leídas del input}
var
car: char;
begin
conj:= [];
WriteLn(’Escribe las letras que forman el conjunto: ’);
while not EoLn do begin
Read(car);
if car in [’A’..’Z’]
then conj:= conj + [car]
end; {while}
ReadLn
end; {LeerConjunto}
El primer procedimiento muestra en la pantalla todos los elementos de un
conjunto formado por letras mayúsculas. Para ello recorre los valores del
tipo base y comprueba la pertenencia de cada uno de ellos al conjunto,
escribiéndolo en su caso.
El segundo procedimiento lee del input los elementos de un conjunto de
letras mayúsculas. Para ello recorre los caracteres de una línea (hasta
la marca ← ), incluyendo en el conjunto los del tipo base (’A’..’Z’) e
ignorando los demás.
11.3.3 Un ejemplo de aplicación
Es conveniente concretar todas estas ideas mediante un ejemplo. En este
caso vamos a utilizar el tipo de datos conjunto para implementar un programa
que escriba los números primos menores que 256 (esta cota viene dada por la
limitación del cardinal de un conjunto en Pascal) usando el conocido método
de la criba de Eratóstenes. 4 La idea de esta implementación es disponer de un
conjunto inicial con todos los enteros positivos menores que 256 e ir eliminando
del conjunto aquellos números que se vaya sabiendo que no son primos (por ser
múltiplos de otros menores). De acuerdo con esta descripción, una primera etapa
de diseño del programa podría ser:
Calcular los números primos menores que 256
Escribir los números primos menores que 256
4 Eratóstenes, conocido astrónomo y geógrafo griego (siglo iii a. C.), es reconocido por haber
ideado este método para elaborar una tabla de números primos. El nombre de criba se debe a
que el algoritmo va eliminando los números que son múltiplos de otros menores, siendo los primos
aquellos que quedan tras realizar esta criba.