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

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

RMN:=CHIS + LET; {[‘0’..’9’, ‘A’..’F’]}
Пересечение множеств

S1*S2

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

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

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

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

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

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

S1-S2

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

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

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

RMN:=CHIS16 - CHIS; {[‘A’..’F’]}
Равенство - неравенство множеств

S1=S2 S1S2

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

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

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

B:=CHIS = LET; { False }

B:=CHIS<>LET; { True }
Включение множества

S1S2

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

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

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

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

B:=CHIS<=CHIS16; { True }

B:=LET<=CHIS; { False }
Проверка принадлежности

X in S1

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

X:=’C’;

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

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

B:= X in CHIS; { False }

B:= X in LET; { True }

Пример:

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

---

VarLET : setof ‘A’..’Z’;

C : char;

Begin

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

Read(C);

WhileC <> ‘.’ do{ цикл до конца текста}

Begin

if not (C in LET) then { первоевхождение}

Begin

Write(C);

LET:=LET + [C]

end;

Read(C)

end;

Writeln;

end.

Заключение
В процессе выполнения работы мы ознакомились:

- с описанием типизированных файлов;

- с принципами работы с файлами;

- с созданием и открытием на запись нового файла;

- с чтением из файла;

- с открытием существующего файла на чтение;

- с распознаванием конца файла;

- с определением имени файла;

- с закрытием файла;

- с описанием текстовых файлов;

- с чтением из текстовых файлов;

- с записью в текстовый файл;

- с множествами и описанием множества;

- с операциями над множествами;

- приведено множество примеров.
Литература

1. 
   Абрамов С.А., Зима Е.В. Начала программирования на языке Паскаль. - М.: Наука, 1987;
   
2. 
   Абрамов С.А., Зима Е.В. Начала информатики. - М.: Наука, 1988;
   
3. 
   Довгаль С.И., Литвинов Б.Ю., Сбитнев А.И. Персональные ЭВМ: Турбо-Паскаль V7.0, Объектное программирование, Локальные сети. (Учебное пособие).- Киев, «Информсистема сервис», 1993;
   
4. 
   Епанешников А.М., Епанешников В.А. Программирование в среде Turbo-Pascal 7.0 .- М.:, Диалог МИФИ, 1993;
   
5. 
   Йенсен К., Вирт Н. Паскаль: Руководство для пользователя. /Пер. с англ. М.Л.Сальникова, Ю.В.Сальниковой. - М.:, Компьютер, 1993;
   
6. 
   Перминов О.Н. Программирование на языке Паскаль. - М.: Радио и связь, 1988;
   
7. 
   Поляков Д.Б., Круглов Н.Ю. Программирование в среде Турбо-Паскаля. - изд.МАИ., М.:, 1992;
   
8. 
   Прайс Д. Программирование на языке Паскаль. Практическое руководство. /Пер. с англ. - М.:, Мир, 1987;
   
9. 
   Семашко Г.Л., Салтыков А.И. Программирование на языке Паскаль. - М.: Наука. Гл. ред. физ.-мат. лит.,1993;
   
10. 
    Фаронов В.В. Турбо-Паскаль. Начальный курс – 1 кн. Практика программирования –2 кн. Учебное пособие. - М.: «Нолидж»,1997;
    
11. 
    Эрбс Х.-Э., Штольц О. Введение в программирование на языке Паскаль./Пер. с нем. - М.:, Мир, 1989;
    

---

Смотрите также файлы

• административного правонарушения.docx

• Разработка стратегии выхода компании на новый товарный рынок.docx

• С. Н. Коробкин 2023 г. Планконспект.doc

• .docx

• Ответ для двух аргументов для трёх аргументов для n аргументов.docx