Файлы
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
* 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;