Тема: Множества.

Множество – совокупность однотипных элементов, рассматриваемых как единое целое. Примеры множеств: [ 3, 4, 7, 9, 12] [ ] [ a, b, c] [A..Z,!,?] [ ]

Описание множества в разделе описания переменных Var : Set of ; Var F: Set of integer; d : Set of A..Z;

Описание множества в разделе описания констант Type = Set of ; Var : ; Type Vr= Set of char; Var A: Vr;

[ 1, 2, 3] [ 3, 2, 1] [ 1, 2, 3, 4][ 1..4] Эквивалентные множества

:= ; x:= [1, 2, 3]; n:= [true, false];

Операции над множествами Объединение А+В

Операции над множествами Пересечение А*В

Операции над множествами Разность А-В

Операции над множествами Операции отношения Отношениеtruefalse A=B А и В совпадают В противном случае A<>B А и В не совпадают A<=B Все элементы А принадлежат В A>=B Все элементы В принадлежат А

Var М: Set of integer; Begin M:=[3, 4, 7, 9];

Операции над множествами Операция вхождения x In M

Множества Критерий Общий вид Пример ОписаниеVar : Set of ; Var F: Set of integer; d : Set of A..Z; Задание множества := ; x:= [1, 2, 3]; n:= [true, false]; Операции над множествами 1. Объединение А+В 2. Пересечение А*В 3. Разность А-В 4. Вхождение х in A [1,2]+[3,4]=[1,2,3,4] [1,2,3,4]*[1,3,5,6]=[1,3] [1,2,3,4]*[1,3]=[2,4] A:= [1,2,3,4]; 3 in A; {true} 7 in A; {false}

Дан текст на русском языке. Найти количество гласных букв. program zadacha; var glasn: Set of char; stroka:string; i,k: integer; begin glasn:=['а','е','и','о','у','ы','э','ю','я']; readln(stroka); k:=0; for i:=1 to length(stroka) do if stroka[i] in glasn then k:=k+1; writeln(k); end.