Глава 36

Множества в Паскале

полного множества учеников, получим множество уклонившихся. Вот и все решение! На Паскале это запишется так:

Подчеркнутое выражение в скобках — это множество учеников, состоящих хотя бы в одном кружке. Итак, решение задачи вместилось в одну строчку! Нет, не зря мы терпели математика и корпели над множествами!

Показанное выше решение — это работающая программа, которую можно запустить в пошаговом режиме, и через отладчик увидеть результат. Сделайте это. А как быть с вводом и выводом множеств? Ведь исходные данные хранятся в файле, а результат — переменную R — тоже надо вывести в файл или на экран. Вот этим мы и займемся в следующей главе.

Итоги

∙Множества – это инструмент, взятый в Паскаль из математики.

∙В Паскале применяют конечные множества, элементами которых могут быть числа, символы и булевы значения. Мощность множеств в Паскале не превышает 256.

∙В Паскале предусмотрен ряд операций с множествами: объединение,

пересечение, вычитание, сравнение, а также проверка на вхождение

элемента в множество.

∙Сравнение двух множеств дает булев результат, который используют в условных и циклических операторах.

∙Операция IN – удобное средство для проверки вхождения одного элемента в множество, она тоже дает булев результат.

260

Глава 36

Множества в Паскале

А слабо?

А) Найдите ошибки в следующих операторах.

type TNumbers = set of 1..300; TChars = set of char; TBytes = set of byte;

var c1, c2 : TChars; b1, b2 : TBytes;

begin

c1:= [1..9]; c2:= ['1'..'9']; c2:= c2 + ’0’; c2:= c2 + [0]; b1:= c1;

b2:= b1 + [1,7,3]; Writeln(b1=b2); Writeln(1 in b2); Writeln([1] in b2); Writeln(b1 in b2);

end.

Б) Напечатайте 20 случайных чисел в диапазоне от 1 до 50 так, чтобы каждое число встретилось в распечатке лишь по разу. Подсказка: после генерации числа функцией Random проверьте его на вхождение в множество уже напечатанных чисел.

В) Введите программу решения директорской задачи (см. предыдущую страницу), а затем запустите её в пошаговом режиме (клавишей F7). Перед запуском вставьте все переменные в окно обзора переменных «Watch» и проследите за их изменением. Напомню, что о средствах отладки рассказано в главе 21.

261