Проверка принадлежности

2.

1.

Проверка включения

Логические операции над множествами: проверка принадлежности элемента множеству, проверка включения элемента в множество, сравнение множеств.

Пересечение множеств

Определение. Пересечением множеств называется множество, содержащее элементы одновременно входящие в оба множества операндов. Операция обозначается знаком умножения.

Summer:= WarmSeason*Vacation;

Задание. В своей тетради опишите множества М1 и М2 произвольным образом. Получите результирующие множества (запишите какие элементы будут содержать эти множества).

а) М3=М1+М2;
б) М3=М1*М2;
в) М3=М1-М2.

Определение. Множества считаются равными, если все элементы, содержащиеся в одном множестве присутствуют в другом, и наоборот.

В соответствии с этим правилом определяется результат логических операций "=" и "<>".

Например,

If WarmSeason*Vacation=Summer Then Writeln ('Правильно');

Задание. Сравните множества М1 и М2, пользуясь рисунками. Результаты сравнения запишите в тетрадь.

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

Логические операции проверки вхождения одного множества в другое записываются через операции больше или равно:

if S1<=S2 then writeln ('S1 входит в S2'); if S1>=S2 then writeln ('S2 входит в S1');

Задание. Что напечатает оператор Write в каждом из случаев:

if Vacation>=Summer then writeln ('Правильно') else writeln ('Неправильно');

if Vacation<=Summer then writeln ('Правильно') else writeln ('Неправильно');

Логическая операция проверки принадлежности элемента множеству записывается через оператор in.

Например, выражение

May in WarmSeason

имеет значение True.

Использование множеств и операции in позволяет, в частности, сделать эффективнее проверку правильности вводимых символов.

Например, для проверки допустимости введенного символа можно использовать следующее условие:

(Reply='y') or (Reply='Y') or (Reply='n') or (Reply='N')

Но если ввести множество

Const AllowSymbol: set of char = ['Y', 'y', 'N', 'n'];

проверяемое условие можно записать в более компактной форме:

Reply in AllowSymbol

Примечание. Множественный тип данных не может быть использован для определения функции.

Рассмотрите пример.

Задача. Описать множество М(1..50). Сделать его пустым. Вводя целые числа с клавиатуры, заполнить множество 10 элементами.

В разделе описания переменных опишем множество целых чисел от 1 до 50, переменную Х целого типа будем использовать для считывания числа-кандидата в множество, целую переменную i используем для подсчета количества введенных чисел.

В начале программы применим операцию инициализации множества М:=[ ], так как оно не имеет элементов и является пустым.

Заполнение множества элементами произведем с использованием оператора цикла Repeat, параметр которого i будет указывать порядковый номер вводимого элемента. Операцию заполнения множества запишем оператором присваивания М:=M+[X]. Контроль заполнения множества запишем с использованием операции проверки принадлежности in. Если условие X in M выполняется, выведем сообщение о том, что число Х помещено в множество.

Текст программы описания и заполнения множества будет таким:

Program InputMno; Var M: set of 1..50; X, i: integer; Begin M:= [ ]; i:=1; repeat write('Введите ',i,'-й элемент множества'); readln(X); if (X in M) then begin write(Х, ' уже содержится в множестве'); i:= i-1; end else begin write(Х, ' помещен в множество'); M:= M+[X]; end; i:= i+1; until i>10; End.

Задание. Наберите рассмотренную программу, откомпилируйте ее. Проверьте работу программы, исполняя ее по шагам и наблюдая текущие значения переменных i, X, M в окне просмотра. Попробуйте задать значения числа большие 50, повторно задавать одинаковые значения Х и анализируйте значения множества М. Дополните программу выводом на экран содержимого полученного множества, сопровождая соответствующим сообщением. Откомпилируйте программу. Покажите учителю рабочую программу и ее листинг для оценки.

Решить задачи:

1. Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от D до I.
2. Описать функцию digist(n), подсчитывающую количество различных (значащих) цифр в десятичной записи натурального числа n.
3. Описать процедуру print(n), печатающую в возрастающем порядке все цифры не входящие в десятичную запись натурального числа n.
4. Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово.
   ( Примечание: гласные буквы - а, е, и, о, у, ы, э, ю, я; согласные - все остальные буквы, кроме й, ъ, ь)

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

Дата добавления: 2015-07-02