При работе с множествами немаловажным является вопрос вывода на экран элементов множества. Отметим, что в большинстве версий языка в операторах WRITE нельзя называть переменные типа ARRAY. Например, нельзя вывести множество таким образом:
VAR A : SET OF 1..9;
...................
WRITE (A).
Здесь нет ничего удивительного, так как даже если А есть массив, то его тоже нельзя распечатать сразу с помощью одного оператора WRITE (А). Для вывода элементов массива организуются циклы.
Для вывода элементов множества также нужно организовать цикл (однократный), внутрь которого вводится некоторая переменная, пробегающая все возможные значения этого множества, а перед оператором WRITE в рамках конструкции IF проверяется, входит ли этот элемент в конкретное множество:
if K in SET1 then write (K).
Как правило, для целей распечатки элементов множеств организуются свои процедуры. Пусть мы имеем дело с множествами, состоящими из целых чисел в границах NIZ и VERH. Зададим множественный тип TS для этих границ:
type INT = NIZ..VERH; TS = set оf INT.
Тогда можно написать процедуру, содержащую в качестве параметра множество:
procedure PRINTSET (OS : TS);
var M: INT;
begin
¦ for M := NIZ to VERH do
¦ if M in OS then writeln (M);
end.
Теперь можно обращаться к этой процедуре для печати множеств, если только они состоят из элементов, не выходящих из интервала NIZ …VERH. Пусть в разделе констант было описано:
const NIZ = 0; VERH = 10.
Тогда можно вывести на экран элементы множества, обратившись к процедуре:
а) PRINTSET ([5, 6, 7]);
б) PRINTSET ([2]);
в) PRINTSET ([3..8]).
Обращение к процедуре можно организовать также в виде:
var SET1, SET2 : TS;
..................
SET1:= [...]; SET2 := [...]
PRINTSET (SET1); PRINTSET (SET1 + SET2); и т.д.
П р и м е р . В заключение рассмотрим пример целиком, где продемонстрируем все те действия, которые определены над множествами.
Примечание. В программе определяются множества A, B, C типа BROSOK, элементами которых являются целые числа из диапазона [1..6], и процедура вывода на экран элементов таких множеств.
Затем задаются множества A и B, находятся различные значения множества C и выводятся его элементы.
Замечание 1. Если множество задано перечислимым типом, то его элементы напечатать нельзя. На печать можно вывести элементы только ординального типа: INTEGER, CHAR, BOOLEAN, интервальный.
Замечание 2. Один и тот же набор данных можно организовать в виде линейного массива ARRAY, в виде множества SET и в виде строки типа STRING. Какой из этих видов предпочтительнее? Если над элементами (числами) производятся действия, то лучше ARRAY. Если же стоит задача о взаимосвязи элементов нескольких множеств или вопрос о вхождении каких-то объектов в множество, то лучше SET.
Например, проверить, входит ли некоторая буква в заданный текст, можно двумя способами:
var TX : set of 'a'..'z';
BW : char;
----------------
TX := [‘a’..’m’];
Readln (BW);
1-й с п о с о б 2-й с п о с о б
OTWET := 'нет';
for k := 1 to 20 do if BW in TX then writeln ('да').
if BW = TX [k] then OTWET := ‘да’;
writeln (ОTWET);
Из приведенных фрагментов программ видно, что 2-й способ в данном случае предпочтительнее, так как здесь для определения вхождения буквы в текст достаточно однократного использования оператора IF, тогда как в первом случае для этого используется многократное применение того же оператора IF в операторе цикла FOR.
Контрольные вопросы
1. Величины каких типов данных можно объединять во множество?
2. Чем отличается объединение элементов множества от массива?
3. Можно ли во множестве узнать число элементов множества по его объявлению?
4. Какие операции возможны над множествами?
5. Как определить принадлежность элемента множеству?
6. Как можно добавлять новые элементы к множеству?
7. Как удалить из множества A элементы, содержащиеся в другом множестве B?
8. Какая операция и какой оператор используются для вывода элементов множества?
