Множества

Множество – это структурированный тип данных, представляющий собой набор взаимосвязанных по какому-либо признаку объектов. В отличие от массивов порядок расположения элементов во множестве не важен.

В выражениях на языке Pascal значения элементов множества указываются в квадратных скобках: [1, 6, 3, 7, 2, 4], [‘a’..’z’]. Множество, не имеющее элементов, называется пустым и обозначается [].

Формат записи множественного типа:

Type <имя типа>=set of <элемент1,…, элементN>;

Var <идентификатор>:<имя типа>;

Допустимыми операциями над множествами являются: «=», «<>», «>=», «<=», объединения (+), пересечения (*), разности (-) множеств и операция включения (in). Операция in позволяет проверить принадлежность значения множеству.

Задача: Посчитать количество гласных и согласных букв в предложении.

program Glasn_Sogl;

Type mnoj= set of 'A'..'я'; {Задаем множество букв русского алфавита}

var glasn, sogl: mnoj;

sr: string; {строковая переменная sr хранит вводимый текст}

i: byte; {параметр цикла}

g, s: byte; {переменные накапливающие количество гласных и согласных букв соответственно}

begin

{Задаем множества гласных букв перечислением, а множество согласных вычитанием из всего алфавита гласных букв, мягкого и твердого знаков}

glasn:=['A','a','O','o','E','e', 'И','и','Ё','ё','У','у', 'Ы','ы','Э','э','Я','я','Ю','ю'];

sogl:=['A'..'я'] – glasn - 'Ъ' - 'ъ' - 'Ь' - 'ь';

write('Введите предложение: ');

readln(sr);

{Обнуляем счетчики количества}

g:=0;

s:=0;

{Просматриваем все элементы предложения и смотрим, содержаться ли они во множествах glasn и sogl}

For i:=1 to Length(sr) do begin

if sr[i] in glasn then g:=g+1;

if sr[i] in sogl then s:=s+1;

end;

writeln('В данном предложении ',g,' гласных и ',s,' согласных букв');

end.