💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Then .

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

Если S1 и S2 — константы или переменные множественного типа, то S1 + S2 будет их объединением, S1 * S2 – пересечением, S1 - S2 — разностью.

Объединением математических множеств S1 и S2 называется множество, состоящее из элементов, принадлежащих или множеству S1, или множеству S2, или обоим множествам (соответствует союзу or). Обозначается знаком

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

Разностью называется множество, состоящее из элементов, принадлежащих первому но не принадлежащих второму множеству.

Мощностью множества называется число различных элементов данного множества.

Операции отношений = (равенство) < > (неравенство), < = (является подмножеством), > = (является надмножеством) к множествам применяются, а отношения строгого включения < и > — не применяются.

Иногда в операторе if гораздо удобнее использовать множественный тип:

if ch in alphabet

then... чем, например, пару операций сравнения:

if ((ch> =’A’) and (ch< =’Z’)) or ((ch> =’a’) and (ch< =’z’))

then …

Чтобы добавить в множество какой-нибудь элемент, можно либо добавить множество, состоящее из единственного элемента, либо использовать процедуру Include.

Следующий фрагмент программы формирует множество всех заглавных букв с нечетными кодами [‘A’, ’C’, …, ’Y’]:

Var s: set of 'A'..'Z';

Ch: char;

Begin

s: =[];

Ch: ='A';

Repeat

S: =s+[ch];

Inc(ch, 2);

Until ch> ='Z';

for ch: ='A' to 'Z' do

if ch in s

Then

write(ch, ' ');

End.

Альтернативой оператору S: = S + [ch]; является оператор Include (S, ch). Имеется и обратная процедура Exclude исключения элемента из множества. У этой процедуры два параметра, первый указывает множество, а второй на исключаемый элемент..

Практическая работа

Варианты заданий.

1. Составить программу, определяющую к какому регистру (латинскому или русскому) относится вводимый с клавиатуры символ.

2. Составить программу определяющую, принадлежит ли введенное число множеству всех четырехзначных чисел.

3. Составить программу, определяющую мощность множества. Считать, что множество символов вводится с клавиатуры, признаком конца множества считать символ «точка».

4. Даны три множества Х₁, Х₂, Х₃, содержащие целые числа из диапазона 1..100. Известно, что мощность каждого из этих множеств равна 10. Сформировать новое множество (где знак ^ - это исключающие или, обозначается в Паскале xor) из которого выделить подмножество нечетных чисел. На экран вывести исходные и полученные множества. Значения исходных множеств ввести с клавиатуры.