СОДЕРЖАНИЕ
Введение
1 Описание типизированных файлов
2 Принципы работы с файлами
3 Создание и открытие на запись нового файла
4 Чтение из файла
5 Открытие существующего файла на чтение
6 Распознавание конца файла
7 Определение имени файла
8 Закрытие файла
9 Описание текстовых файлов
10 Чтение из текстового файла
11 Запись в текстовый файл
12 Множества. Описание множества
13 Операции над множествами
Заключение
Литература
Введение
файл чтение запись открытие множество
Тема реферата «Файлы» по дисциплине «Вычислительная техника и основы программирования».
Цель работы – ознакомиться с описанием типизированных файлов; принципами работы с файлами; созданием и открытием на запись нового файла; чтением из файла; открытием существующего файла на чтение; распознаванием конца файла; определением имени файла; закрытием файла; описанием текстовых файлов; чтением из текстовых файлов; записью в текстовый файл; множествами и их описанием; операциями над множествами.
1 Описание типизированных файлов
Файл
- последовательность компонент, являющихся объектами одного типа. Количество компонент в файле заранее не оговаривается, компоненты файла не имеют индекса. Доступ к компонентам файла возможен только последовательным путем
(т.е. перебрав по очереди все предыдущие компоненты).
Определение типа
Type
F
=
file
of
<тип компонент>;
Var X: F;
илиVar X: file of
<
тип
компонент
>;
где F
- новое имя типа;
<тип компонент> -
любой кроме файлового или записи, поле которой содержит файловую компоненту.
Пример
:
Type VECT = array [1..10] of real;
COMPLEX= record
Re,Im: real
end;
Var Inf: file of integer;
{
файл
,
содержащий
целые
компоненты
}
Mas
:
file
of
VECT
;
{файл, состоящий из массивов}
Chis
:
file
of
COMPLEX
;
{файл, состоящий из записей}
2 Принципы работы с файлами
Обозначения:
-
признак конца файла;
- компонента файла;
F
- имя файла;
A
-
файловая переменная, которая имеет тот же тип, что и компоненты файла;
- головка записи/чтения.
Пример:
файл из трех компонент пустой файл
Запись в файл
Использование процедуры записи возможно, когда файл открыт для записи, т.е. головка записи/чтения совмещена с признаком конца файла (новые элементы помещаются в конец файла).
3 Создание и открытие на запись нового файла
Rewrite
(
F
);
Если имя файла F
связано с уже существующим файлом, то данные его уничтожаются, а признак конца помещается в начало файла - создается пустой файл.
Пример
:
Var F: file of integer;
I
,
J
:
integer
;
...
{Запись в файл квадратов первых 100 натуральных чисел}
Rewrite (F);
for I:= 1 to 100 do
begin J:= Sqr(I);
Write
(
F
,
J
)
end
;
4 Чтение из файла
Процедура чтения из файла возможна только тогда, когда файл открыт для чтения, т.е. головка записи/чтения совмещена с искомой компонентой файла.
5 Открытие существующего файла на чтение
Если файл не пустой, то после выполнения процедуры открытия файла для чтения, головка записи/чтения будет совмещена с первой компонентой файла. Если файл пуст, то головка записи/чтения указывает на признак конца файла.
6 Распознавание конца файла
Распознавание конца файла осуществляется с помощью функции:
Пример
:
Var F: file of integer;
S
,
I
:
integer
;
...
{Чтение из непустого файла всех его компонент и
вычисление суммы их квадратов}
Reset
(
F
);
S
:=0;
While not Eof(F) do
begin
Read(F,I); S:=S+Sqr(I)
end
;
7 Определение имени файла
Определение имени файла осуществляется с помощью процедуры, которая связывает имя файла, определенное в программе с реально существующим файлом на физическом носителе информации.
Assign
(
F
,
Name
);
где F
- имя файла, определенное в программе;
Name
- переменная типа String
или строка символов, указывающая путь к файлу на физическом носителе информации.
Пример
:
Var F1,F2:file of real;
Name:string;
...
Assign (F1, ‘A:Myfile.Dat’);
{
исходный
файл
находится
на
диске
A
под
именем
Myfile
.
Dat
}
Name:=’B:File2.Dat’;
Assign
(
F
2,
Name
);
{исходный файл находится на диске
B
под
именем
File
2.
Dat
}
8 Закрытие файла
Close
(
F
);
Процедура закрывает открытый (с помощью процедур Rewrite
или Reset
)файл.
Настройка на требуемую компоненту файла
Seek
(
F
,
Nom
)
;
где F
- любой файл, кроме Text
;
Nom
- номер текущей компоненты файла (переменная типа Longint
).
Процедура осуществляет настройку на требуемую компоненту файла, который предварительно был открыт процедурами Rewrite
или Reset
.
Номер текущей компоненты файла можно получить с помощью функции FilePos
(Nom
:=
FilePos
(
F
);
).
Размер файла в компонентах может быть получен с помощью функции FileSize
(
F
).
9 Описание текстовых файлов
Особую роль в обмене информацией с внешними носителями в среде Turbo
-
Pascal
7.0
играют текстовые файлы, компоненты которых рассматриваются как последовательность символов.
Определение типа
Var
CHF
:
Text
;
{это эквивалентно описанию
Var CHF: file of char;}
10 Чтение из текстового файла
Для чтения данных из файла он должен быть предварительно открыт для чтения с помощью процедуры Reset
(
CHF
).
Чтение осуществляется с помощью процедур:
Read
(
CHF
,
<
список переменных>);
или
Readln
(
CHF
,
<список переменных>);
Процедура Readln
по окончании чтения обеспечивает переход к новой строке файла CHF
(Readln
без параметров обеспечивает только переход на новую строку файла).
При чтении из текстового файла CHF
данных, их значения присваиваются переменным, указанным в списке переменных
в соответствии с их типом:
- целые
читаются с текущего символа, пропуская начальные пробелы, до первого символа отличного от цифры (или конца строки/файла);
- вещественные
читаются с текущего символа, пропуская начальные пробелы, до символа синтаксически несовместимого с представлением вещественного числа (или конца строки/файла);
- символьные
принимают значение текущего символа файла;
- строки
читаются с текущего символа до конца строки (файла).
Пример:
Путь к исходному файлу: A
:
File
1.
Dat
Содержимоефайла: 36 25+
PASCAL
16.5
Var CHF : Text;
S : real:
I,J : integer;
ST : string;
C : char;
...
Assign(CHF, ‘A:File1.Dat’);
Reset(CHF);
Readln(CHF, I,J,C,ST);
{I:=36; J:=25; C:=’+’; ST:=’PASCAL’}
Read
(
CHF
,
S
);
(
S
:=16.5}
11 Запись в текстовый файл
Для записи значений в файл он должен быть предварительно открыт для записи с помощью процедуры Rewrite
(
CHF
).
Запись осуществляется с помощью процедур:
Write
(
CHF
,
<список переменных (функц
или
Writeln
(
CHF
,
<список переменных (функций, выражений)>);
Процедура Writeln
после записи значений в файл обеспечивает переход на новую строку файла (Writeln
без параметров осуществляет только переход на новую строку файла).
Каждый элемент списка переменных (функций, выражений)
может снабжаться характеристикой длины, то есть элементы списка, X
,
могут быть представлены в одном из трех видов:
XX
:
wX
:
w
:
d
где w
-общая длина поля записи;
d
-количество цифр в дробной части для элементоввещественного типа.
Пример:
Путь к файлу с результатами: A
:
File
2.
Dat
Макет расположения Файл с результатами
результатов в файле: I
= 36
J
= 25
ST= PASCAL
Var CHF : Text;
I,J : integer;
ST : string;
...
I:=36; J:=25; ST:=’PASCAL’;
Assign(CHF,’A:File2.Dat’);
Rewrite(CHF);
Writeln(CHF,’
Файл
с
результатами
’);
Writeln(CHF,’ I=’, I:3, ‘ J=’, J:3);
Writeln(CHF,‘ ST= ’, ST);
Close
(
CHF
);
С процедурами, обеспечивающими чтение и запись информации в файлы, тесно связаны две функции:
12 Множества. Описание множества
Множество
- произвольный набор однотипных элементов, понимаемых как единое целое ([1, 3, 5, 7, 9] - множество нечетных цифр). В среде Turbo
-
Pascal
7.0
существует ряд ограничений на тип и количество элементов составляющих множество:
- тип элементов может быть любой ординальный, но целый задается диапазоном значений;
- количество элементов в множестве не более 256, а порядковые номера лежат в диапазоне 0..255.
Определение типа
Type
MN
=
set
of
<тип компонент>;
где Х
– идентификатор множества;
Var
X
:
MN
;
MN
- новое имя типа;}
Пример:
Var
LET
1 :
set
of
char
;
{множество символов в диапазоне 0..255}
LET
2:
set
of
‘
A
’..’
Z
’;
{множество заглавных латинских букв}
DAY
:
set
of
1..31;
{множество целых чисел, заданных диапазоном}
MONTH: set of (FEB, MAR, APR, MAY);
{
множество
,
заданное
перечислением элементов}
...
LET
1:=[‘0’, ‘2’, ‘
A
’, ‘
C
’];
LET2:=[‘A’, ‘B’, ‘C’, ‘D’];
MONTH:=[MAR,MAY];
DAY
:=[ ];
{
пустое
множество
}
13 Операции над множествами
Рассмотрим допустимые в среде Turbo
-
Pascal
7.0
операции над множествами, воспользовавшись следующим описанием:
Type MN=set of (‘0’..’9’, ‘A’..’F’);
Var CHIS, CHIS16, LET, RMN : MN;
B: boolean;
X: ‘A’..’F’;
...
Объединение множеств
S1+S2 | Результат объединения - множество, которое содержит элементы, либо принадлежащие множеству S
1, либо S 2 либо тому и другому. |
CHIS:=[‘0’..’9’];
LET:=[‘A’..’F’];
RMN:=CHIS + LET;
{[‘0’..’9’, ‘A’..’F’]}
Пересечение множеств
S1*S2 | Результирующее множество содержит элементы, которые принадлежат как множеству S
1 ,так и множеству S 2 . |
CHIS
:=[‘0’..’9’];
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
:=[ ];
{множество букв, встречающихся в тексте}
Read
(
C
);
While
C
<> ‘.’
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;