50386 (Файлы), страница 2
Описание файла
Документ из архива "Файлы", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "50386"
Текст 2 страницы из документа "50386"
Пересечение множеств
| 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 S1S2 | Множества S1=S2 тогда и только тогда, когда все элементы множества S1 равны элементам множества S2, иначе S1<>S2. Результат операции Boolean. |
CHIS:=[‘0’..’9’];
LET:=[‘A’..’F’];
B:=CHIS = LET; { False }
B:=CHIS<>LET; { True }
Включение множества
| S1S2 | Результат операции 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 }
Пример:
{Дан текст из заглавных латинских букв, за которым следует точка. Напечатать первые вхождения букв в текст, сохраняя порядок}
Var LET : set of ‘A’..’Z’;
C : char;
Begin
LET:=[ ]; {множество букв, встречающихся в тексте}
Read(C);
While C <> ‘.’ do { цикл до конца текста}
Begin
if not (C in LET) then { первое вхождение}
Begin
Write(C);
LET:=LET + [C]
end;
Read(C)
end;
Writeln;
end.
Заключение
В процессе выполнения работы мы ознакомились:
- с описанием типизированных файлов;
- с принципами работы с файлами;
- с созданием и открытием на запись нового файла;
- с чтением из файла;
- с открытием существующего файла на чтение;
- с распознаванием конца файла;
- с определением имени файла;
- с закрытием файла;
- с описанием текстовых файлов;
- с чтением из текстовых файлов;
- с записью в текстовый файл;
- с множествами и описанием множества;
- с операциями над множествами;
- приведено множество примеров.
Литература
-
Абрамов С.А., Зима Е.В. Начала программирования на языке Паскаль. - М.: Наука, 1987;
-
Абрамов С.А., Зима Е.В. Начала информатики. - М.: Наука, 1988;
-
Довгаль С.И., Литвинов Б.Ю., Сбитнев А.И. Персональные ЭВМ: Турбо-Паскаль V7.0, Объектное программирование, Локальные сети. (Учебное пособие).- Киев, «Информсистема сервис», 1993;
-
Епанешников А.М., Епанешников В.А. Программирование в среде Turbo-Pascal 7.0 .- М.:, Диалог МИФИ, 1993;
-
Йенсен К., Вирт Н. Паскаль: Руководство для пользователя. /Пер. с англ. М.Л.Сальникова, Ю.В.Сальниковой. - М.:, Компьютер, 1993;
-
Перминов О.Н. Программирование на языке Паскаль. - М.: Радио и связь, 1988;
-
Поляков Д.Б., Круглов Н.Ю. Программирование в среде Турбо-Паскаля. - изд.МАИ., М.:, 1992;
-
Прайс Д. Программирование на языке Паскаль. Практическое руководство. /Пер. с англ. - М.:, Мир, 1987;
-
Семашко Г.Л., Салтыков А.И. Программирование на языке Паскаль. - М.: Наука. Гл. ред. физ.-мат. лит.,1993;
-
Фаронов В.В. Турбо-Паскаль. Начальный курс – 1 кн. Практика программирования –2 кн. Учебное пособие. - М.: «Нолидж»,1997;
-
Эрбс Х.-Э., Штольц О. Введение в программирование на языке Паскаль./Пер. с нем. - М.:, Мир, 1989;
Размещено на Allbest.ru
