Реферат: Множини 3

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.

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

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

Всі значення множини представляються в пам’яті послідовностями бітів однакової довжини. За кожне значення базового типу “відповідає” один біт. Якщо множина вміщує деякий елемент, в “відповідальному” за нього біті зберігається 1, якщо не вміщує – зберігається 0.

Приклад.

Var X: set of 1..15;