Ввод и вывод множеств

Следует помнить, что значения множественного типа нельзя вводить и выводить. Однако можно ввести значения элементов множества и добавить их к множеству, используя операцию объединения множеств, например:

S:=[]; {исходное множество пусто}

Read(n);

S: = S+[n]; {объединяем исходное множество и множество, содержащее введенный элемент}

Для того чтобы вывести элементы множества, используют специальный прием: в цикле проверяют вхождение во множество всех элементов базового типа и выводят те. которые входят во множество, например:

for i:='а' to ´z´ do

if i in S then Write(i:3);

Рассмотрим несколько примеров решения задач с использованием множеств.

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

Строим множество символов, которые допустимы в качестве первого: это строчные и прописные буквы латинского алфавита и символ подчеркивания:

['A'.. 'Z', 'a'.. 'z', '_'].

Аналогично определяем множество допустимых символов, которые моryт встретиться, начиная со второго символа слова:

['A'.. 'Z', 'a'.. 'z', '_', '0'.. '9'].

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

Var st: string;

key: boolean;

i: integer;

Begin

WriteLn('Введите строку');

ReadLn(st);

if st[1] in ['A'.. 'Z', 'a'.. 'z', '_'] then {проверка первого символа}

begin

i:= 2;

key:= true;

while (i<=length(st)) and key do

{проверка остальных символов}

if st[i] in ['A'.. 'Z', 'a'.. 'z', '_', '0'.. '9'] then inc(i) else key: = false;

if key then WriteLn('Строка', st,' идентификатор.')

else WriteLn('Строка ',st,' содержит недопустимые символы.');

end

else Writeln('Строка ',st,' начинается с недопустимого символа.');

End.

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

Для получения требуемого результата модуль введенного числа преобразуем в строку симколов, а затем сформируем множество из этих символов. Теперь проверим, входят ли во множество цифры от 0 до 9, и те, которые входят, выведем на экран.

Var n: longint;

st: string;

key: boolean;

i: integer;

Begin

WriteLn('Введите число:'); ReadLn(n);

Str(abs(n),st);

mnoj:=[]; {в исходном состянии множество пусто}

for i: =1 to length(st) do

mnoj:=mnoj + [st[i]]; {формируем множество}

WriteLn('Запись числа ',n,' содержит следующие цифры:');

For j:='0' to '9' do {выводим цифры, вошедшие вo множество}

if j in mnoj then Wrtie(f+' ');

End.

Пример. Разработать программу, которая для строки символов, введенной с клавиатуры и состоящей из нескольких слов, разделенных пробелами, определяет множество гласных которые:

- встречаются в каждом слове строки;

- встречаются только в одном слове строки;

- встречаются хотя бы в одном слове строки;

- встречаются более чем в одном слове строки.

Для решения задачи определим тип «множество символов ASCII». Множество гласных букв русского языка зададим с помощью типизированной константы множественного типа. Определим неременные множественного типа для храпения результатов и промежуточных значений:

§ resl - множество гласных, входящих в каждое слово.

§ res2 - множество гласных, входящих не более чем в одно слово,

§ res3 - множество гласных предложения,

§ rеs4 - множество гласных, входящих более чем в одно слово.

§ mnsl - множество гласных, встретившихся в текущем слове.

В программе введем строку и будем последовательно выделять из нее слова. Дня каждого слова построим множество встретившихся гласных букв mnsl.

Если в строке содержится одно слово, то rеsl - rеs2 - res3 = mnsl, а множество res4 пусто.

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

1) множество гласных, входящих в каждое слово, будет равно пересечению уже найденною множества гласных, входящих в каждое слово, и множества гласных слова: resl ∩ mnsl;

2) множество гласных, входящих более чем в одно слово, res4 увеличится (объединение) на повторяющиеся буквы нового слова: res4 U (rеs3 ∩ mnsl);

3) множество гласных в предложении res3 увеличится (объединение) на множество гласных слова: res3 ∩ mnsl.

Множество гласных, входящих только в одно слово, res2 будем определять после обработки всех слов как разность множества гласных букв предложения и множества гласных, входящих более чем в одно слово предложения: res3 \ res4.

Type setchar=set of char;

Const G: setchar = ['a', 'я', 'y', 'ю','э', 'e', 'o', 'ё', 'и', 'ы']; {типизированная константа «множество гласных букв»}

Var res1, {множество гласных, входящих в каждое слово}

res2, {множество гласных, входящих только в одно слово}

res3, {множество гласных в предложении}

res4, {множество гласных, входящих более чем в одно слово}

mnsl: setchar; {множество гласных текущего слова}

st,slovo: string; ch: char;

i, к: integer; first: boolean;

Begin

WriteLn('Введите исходную строку!');

ReadLn(st); {читаем исходную строку}

st:=st+ ' '; {добавляем в конец пробел для простоты обработки}

first:=true; {признак «первое слово»}

while st<> " do {цикл выделения и обработки слов}

begin k:=pos(' ',st);

slovo:=Copy(st, l, k-l); {выделяем слово}

Delete(st,l,k); {удаляем слово из строки}

{определяем множество гласных, входящих в данное слово}

mnsl:=[]; {исходное состояние «пустое множество»}

for i:=1 to k-1 do

if slovo[i] in G then {если гласная буква, то)

nmsl:=mnsl+[slovo[i]]; {добавляем к множеству}

{формируем множества результатов}

if first then {если первое слово, то}

begin

res1:=mnsl; {входят в каждое слово}

res2:=mnsl; {входят не более чем в одно слово}

res3:=mnsl; {встретившиеся гласные}

res4:=[]; {входят более чем и одно слово}

first:=false; {выключаем признак «первое слово»}

end

else {если не первое слово предложения, то}

begin

resl:=resl*mnsl; {входят в каждое слово}

res4:=res4+res3*mnst; {входят более чем в одно слово}

res3:=res3+nmst; {встретившиеся гласные}

end

end;

res2:=res3-res4; {входящие в одно слово}

{выводим результаты Анализа предложения}

WriteLn('Гласные, которые входят в каждое слово:');

For ch:=#0 tо #255 do if ch in resl then Write(ch:2);

WriteLn;

WriteLn('Гласные, входящие только в одно слово:');

For ch:=#0 to #255 do if ch in res2 then Write(ch:2);

WrileLn;

WriteLn('Глacныe, входящие хотя бы в одна слова:');

For ch:=#0 to #255 do if ch in res3 then Write(ch:2);

WriteLn;

WriteLn('Гласные, входящие более чем в одно слово:');

for ch:=#0 to #255 do if ch in res4 then Write(ch:2);

WriteLn;

End.

Лекция 17.Файловый тип данных(2 часа)