Algoritmos y Programación en Pascal

11.3. Conjuntos 249
Y en un segundo refinamiento de Calcular los números primos menores que
256 se obtendría: 5
Generar el conjunto inicial primos
para cada elemento elem mayor que 1 y menor o igual que 16
Eliminar del conjunto todos sus múltiplos
Y en un nivel de refinamiento inferior, Eliminar del conjunto todos sus múltiplos
se puede desarrollar así:
Dar valor inicial (igual a 2) al coeficiente k
repetir
Eliminar elem * k del conjunto primos
Incrementar k en una unidad
hasta que elem * k sea mayor o igual que 256
Desde este nivel de refinamiento es fácil pasar a una implementación en Pascal,
como puede ser la siguiente:
Program Criba (output);
{Halla y escribe los primeros números primos}
const
N = 255;
type
tConjuntoPositivos = set of 1..N;
var
primos: tConjuntoPositivos;
elem, k: integer;
procedure EscribirConjuntoPositivos(c: tConjuntoPositivos);
{Efecto: se muestran en la pantalla los elementos
del conjunto c}
var
i: integer;
begin
for i:= 1 to N do
if i in c then
WriteLn(i : 3, ’ es primo’)
end; {EscribirConjuntoPositivos}
5 Como se comentó en el apartado 8.2.1, basta con eliminar los múltiplos de los números naturales
menores o iguales que la raíz cuadrada de la cota (en nuestro ejemplo, los menores o iguales
que √ 256 = 16).