Краткое изложение теоретического материала

Множество – этонеупорядоченный набор однотипных элементов.

Количество элементов в множестве – от 0 до 256.

Пустое множество – это множество, которое не содержит ни одного элемента.

Два множества эквивалентны, если все их элементы одинаковы.

Первое множество включено во второе, если все элементы первого множества являются также элементами второго.

Пустое множество включено в любое другое.

Описание множественного типа:

Type <имя типа> = Set Of <базовый тип>;

В качестве базового типа может использоваться любой порядковый тип, мощность которого не больше 256. Из стандартных – это Char, Boolean. Integer напрямую в качестве базового типа для множества использовать нельзя. Сначала нужно описать тип-диапазон (не более 256 чисел).

Например:

Type digit = Set Of 0..9;

setchar = Set Of Char;

Var d1, d2 : digit;

c : setchar;

Для задания множества (т.е. присваивания ему некоторых значений) используется конструктор множества – это список элементов множества, разделенных запятыми. Список ограничен квадратными скобками.

В качестве элементов могут быть:

- константы

- выражения базового типа

- диапазоны

Например:

d1 := [ 0..3 , 6 ];

d2 := [ ];

c := [‘a’ .. ‘z’ , ‘A’ .. ‘Z’ ];

Операции над множествами:

Стандартные процедуры:

Include ( S , i ); включает элемент i в множество S;

Exclude ( S , i ); исключает элемент i из множества S.

Процедуры исполняются быстрее, чем операции + и - .

Примеры решаемых задач

Пример 1. Составить программу, которая выведет на экран числа от 1 до 9 в случайном порядке.

Алгоритм: Будем использовать множество для хранения тех чисел, которые уже выведены на экран. Сначала это множество пустое. Затем девять раз должны повторяться следующие действия: выбор случайного числа (функция Random) осуществляется до тех пор, пока не будет выбрано число, которого нет в множестве; после чего это число выводится на экран и включается в множество.

Программа:

Program S1;

Uses Crt;

Type Numbers = 1..9; { тип-диапазон }

SetNumbers = Set Of Numbers; { тип–множество чисел (от 0 до 9) }

Var Sn : SetNumbers;

I, N : Numbers;

Begin

Clrscr;

Randomize; { инициализируем датчик случайных чисел }

Sn := [ ]; { множество выбранных чисел – сначала пустое }

For I := 1 To 9 Do { девять раз повторяем следующие действия: }

Begin

Repeat { повторяем формирование }

N := random(9) + 1 { целого числа из интервала от 1 до 9}

Until not (N in Sn); {пока не получим число, которого нет в множестве Sn }

Writeln ( N ); { выводим полученное число на экран }

Include(Sn, N) { включаем это число в множество Sn }

End;

Readln

End.