type Mn=set of char;
var M1:Mn;
Ch:char;
begin
M1:=[];
Writeln(Rus('Введите символ'));
ReadLn(Ch);
Ch:=RusIn(Ch);
while Ch<>'?' do
begin
M1:=M1+[Ch];
writeln(Rus('Введите символ'));
readLn(Ch);
Ch:=RusIn(Ch);
end;
for Ch:=Chr(0) to Chr(255) do
If Ch in m1 then Write(Rus(Ch));
end.
В приведенном фрагменте ввод символов (элементов множества) производится до тех пор, пока не будет введен символ вопросительного знака. В качестве символа-признака окончания ввода можно выбрать любой символ, вводимый с клавиатуры. Можно при вводе каждый раз выводить пользователю запрос о продолжении ввода, но это неудобно, так как вместо одного символа требуется вводить два символа – ответ на запрос и сам вводимый символ.
repeat
writeln(Rus('Введите символ'));
readLn(Ch);
Ch:=RusIn(Ch);
M1:=M1+[Ch];
writeln(Rus('Продолжить ввод (Y/N)'));
Ch:=RusIn(Ch);
until UpCase(Ch)<>’Y’;
Поскольку множество может содержать максимально 256 элементов, то сфера применения этого типа данных достаточно ограничена. Наиболее удачной сферой применения множеств является использование их при обработке символьных и строковых данных.
Пример 1 использования множеств.Найти в строке все символы, которые встретились в ней ровно по два раза. Найденные символы распечатать в алфавитном порядке, алгоритм упорядочения не использовать.
При написании программы будем использовать три множества. Первое множество будут образовывать все символы, которые присутствуют в строке. Второе множество будет содержать только те символы, которые встретились не менее двух раз. В третьем множестве будут присутствовать те символы, которые встретились в строке более, чем по два раза. Во второе множество очередной символ строки заносится только в том случае, если он присутствует в первом множестве и отсутствует во втором. Если анализируемый символ строки уже присутствует во втором множестве, это означает, что он встретился более, чем во второй раз, и заносится в третье множество. Результирующее множество символов получается в результате вычитания третьего множества из второго.
programmnosh2;
{$APPTYPECONSOLE}
uses
SysUtils;
type Mn=set of char;
Var A,B,C:Mn;
Ch:char;
S:string;
I,n:integer;
function Rus(S:String):String;
var I:Byte;
begin
Result:='';
for I:=1 to Length(S) do
case S[I] of
'А'..'п': Result:=Result+Chr(Ord(S[I])-64);
'р'..'я': Result:=Result+Chr(Ord(S[I])-16);
'Ё': Result:=Result+Chr(240);
'ё': Result:=Result+Chr(241);
else
Result:=Result+S[I];
end;
end;
function RusIn(S:String):String;
var I:Integer;
begin
Result:='';
for I:=1 to Length(S) do
case Ord(S[I]) of
128..175: Result:=Result+Chr(Ord(S[I])+64);
224..239: Result:=Result+Chr(Ord(S[I])+16);
240: Result:=Result+Chr(168);
241: Result:=Result+Chr(184);
else
Result:=Result+S[I];
end;
end;
begin
A:=[];
B:=[];
C:=[];
WriteLn(Rus('Введите строку'));
ReadLn(S);
S:=RusIn(S);
N:=Length(S);
for I:=1 to N do
begin
if S[I] in A then
if not(S[I] in B) then B:=B+[S[I]]
else C:=C+[S[I]]
else A:=A+[S[I]];
end;
B:=B-C;
WriteLn(Rus('Символы, встретившиеся ровно по два раза в строке'));
for Ch:=Chr(0) to Chr(255) do
if Ch in B then Write(Rus(Ch));
Readln;
end.
Пример 2 использования множеств.Во втором примере рассмотрим использование множеств для работы с числовыми (целыми) значениями. Задача состоит в том, чтобы определить все простые числа из заданного диапазона целых чисел, причем максимальное число не должно превышать 3000.
Для определения простых чисел можно использовать алгоритм, названный решетом Эратосфена. Для этого сначала следует сформировать множество всех целых чисел в диапазоне от 1 до n, гдеn– максимальное число. Во второе множество заносятся простые числа. Для этого в него сначала помещаются два первых простых числа 1 и 2. Из исходного множества исключаются эти числа и все другие числа, кратные двум. Затем в исходном множестве находится минимальное число, которое является следующим простым числом. Это число включается в результирующее множество, а из исходного множества опять исключаются все числа, кратные найденному, включая само это число. Описанная процедура повторяется до тех пор, пока исходное множество не станет пустым.
Для решения поставленной задачи необходимо использовать массив множеств, так как все исходные числа не могут быть представлены в одном множестве. Если в одном множестве будут представлены mmчисел, то всего потребуется ]3000/mm[ элементов (множеств) массива. В этом случаеj-ый элементi-го множества будет соответствовать числу (i-1)*mm+j.