Реферат: Файлы

CHIS 16:=[‘0’..’9’, ‘ A ’..’ F ’];

RMN:=CHIS * CHIS16; {[‘0’..’9’]}

LET:=[‘A’..’F’];

RMN:=CHIS * LET; {[ ] - пустое множество }

Разность множеств

S1-S2

Результирующее множество содержит те элементы множества S 1 , которые не принадлежат S 2 .

CHIS :=[‘0’..’9’];

CHIS 16:=[‘0’..’9’, ‘ A ’..’ F ’];

RMN:=CHIS16 - CHIS; {[‘A’..’F’]}

Равенство - неравенство множеств

S1=S2 S1<>S2

Множества S 1= S 2 тогда и только тогда, когда все элементы множества S 1 равны элементам множества S 2 ,иначе S 1<> S 2 . Результат операции Boolean .

CHIS:=[‘0’..’9’];

LET:=[‘A’..’F’];

B:=CHIS = LET; { False }

B:=CHIS<>LET; { True }

Включение множества

S1<=S2

Результат операции True , когда все элементы множества S 1 входят в множество S 2, в остальных случаях результат операции False .

CHIS:=[‘0’..’9’];

LET:=[‘A’..’F’];

CHIS16:=[‘0’..’9’, ‘A’..’B’];

B:=CHIS<=CHIS16; { True }

B:=LET<=CHIS; { False }

Проверка принадлежности

X in S1

Результат операции True , если Х принадлежит множеству S 1 и False в противном случае. Тип Х должен совпадать с типом элементов множества S 1.

X:=’C’;

CHIS:=[‘0’..’9’];

LET:=[‘A’..’F’];

B:= X in CHIS; { False }

B:= X in LET; { True }

Пример:

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

Var LET : set of ‘ A ’..’ Z ’;

C : char ;

Begin

LET :=[ ]; {множество букв, встречающихся в тексте}