Множини, Детальна інформація

Sets: = Sets + [S];

Read (S)

end

Readln

End

for I: = ‘+’ to ‘[‘ do

if I in Sets

then Write (I) else; writeln end.

Приклад №2 Написати програму, яка друкує всі прості числа з відрізку 2..N діючи по методу “решета Ератосорена”

“Решето Ератосорена”

Program Rach;

Coust

N = 15

Var

S: set of 2..N

{початкова множина чисел}

i, k: integer;

begin

S: = [2..N];

for i: = 2 to N do

if i in Sthen begin

writeln (i);

{виводимо найменше із елементів S}

{забираємо із S числа, крайні і}

for k: = 1 to N div i do

S: = S – [k*i];

end {if }

end.

Внутрішнє представлення множин

Знайомство з внутрішнім представленням множин допоможе нам зрозуміти особливості і обмеження, властиві цьому типові даних.