На сайте 100500 рефератов в 150 категориях	Искать реферат
Рефераты на 5 с плюсом С нашим сайтом написать реферат проще простого

Множества

Категория: Компьютерные науки

версия для печати

Страница: [1] [2] [3] [4]

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.

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

Знакомство с внутренним представлением множеств поможет нам понять особенности и ограничения, присущие этому типу данных.

Страница: [1] [2] [3] [4]

версия для печати