Распознавание конца файла

Распознавание конца файла осуществляется с помощью функции:

Пример :

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 ;

Определение имени файла

Определение имени файла осуществляется с помощью процедуры, которая связывает имя файла, определенное в программе с реально существующим файлом на физическом носителе информации.

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 ).

Описание текстовых файлов

 

Особую роль в обмене информацией с внешними носителями в среде Turbo - Pascal 7.0 играют текстовые файлы, компоненты которых рассматриваются как последовательность символов.

Определение типа

Var CHF : Text ; {это эквивалентно описанию

Var CHF: file of char;}

Чтение из текстового файла

 

Для чтения данных из файла он должен быть предварительно открыт для чтения с помощью процедуры 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}

 

Запись в текстовый файл

 

Для записи значений в файл он должен быть предварительно открыт для записи с помощью процедуры 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 :=[ ]; { пустое множество }