IV Выберите с учителем одну из предложенных ниже задач (тип record)

1. Составьте список группы спортсменов, участвовавших в гонках на спортивных машинах, включающей N человек. Для каждого гонщика укажите фамилию, имя, название страны, номер автомашины, наличие наград на предыдущих состязаниях, результаты гонки. Информацию о каждом спортсмене оформите в программе в виде записи. Совокупность записей объединить в файл. Составьте программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы, а также распечатайте анкетные данные спортсменов,

а) показавших лучший результат;

б) показавших три лучших результата,

в) не получивших ни одного призового места.

2. Составьте прайс-лист магазина "Техника", включающий в себя наименования товара, марку предприятия-производителя, страну-производитель, его цену, количество единиц товара на складе. Информацию о каждом виде товара оформите в программе в виде записи. Совокупность записей объедините в файл. Составьте программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы. Выведите на экран меню, а затем информацию о товаре в зависимости от запроса покупателя.

3. Составить список учебной группы, включающей N человек. Для каждого учащегося указать дату рождения, год поступления в техникум, курс, группу, оценки каждого года обучения. Информацию о каждом учащемся оформить в программе в виде записи. Совокупность записей объединить в файл. Составить программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы, а также распечатать список студентов, фамилии которых начинаются на буквы Б и В, и их оценки за последнюю сессию.

4. Составьте список учебной группы, включающей N человек. Для каждого учащегося укажите фамилию, имя, отчество, дату рождения, год поступления в ВУЗ, факультет, отделение, курс, группу. Информацию о каждом учащемся оформите в программе в виде записи. Совокупность записей объедините в файл. Составьте программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы, а также распечатать по выбору пользователя анкетные данные студентов нужного курса.

5. Составьте список учебной группы, включающей N человек. Для каждого учащегося укажите фамилию, имя, отчество, дату рождения, год поступления в ВУЗ, факультет, отделение, курс, группу. Информацию о каждом учащемся оформите в программе в виде записи. Совокупность записей объедините в файл. Составьте программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы, а также распечатайте по выбору пользователя анкетные данные студентов нужного факультета.

6. Составьте список учебной группы школы юного программиста, включающей N человек. Для каждого учащегося укажите фамилию, имя, отчество, название общеобразовательной школы, класс, год поступления в школу, количество сданных зачетов. Информацию о каждом учащемся оформите в программе в виде записи. Совокупность записей объединить в файл. Составьте программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы, а также распечатайте по выбору пользователя анкетные данные учащихся, сдавших нужное количество зачетов.

7. Составьте список учебной группы школы юного программиста, включающей N человек. Для каждого учащегося укажите фамилию, имя, название общеобразовательной школы, класс, количество сданных зачетов, оценку за итоговый экзамен. Информацию о каждом учащемся оформите в программе в виде записи. Совокупность записей объединить в файл. Составьте программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы, а также распечатайте анкетные данные учащихся, успешно сдавших экзамен.

8. Составьте список группы спортсменов, занимающихся легкой атлетикой, включающей N человек. Для каждого спортсмена укажите фамилию, имя, название общеобразовательной школы, класс, результаты по следующим дисциплинам:

• бег 100м,

• бег 3000м,

• прыжки в высоту,

• прыжки в длину,

• прыжки с шестом,

• метание ядра,

• метание копья,

• метание диска.

Информацию о каждом спортсмене оформить в программе в виде записи. Совокупность записей объединить в файл. Составить программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы, а также распечатать анкетные данные спортсменов, занявших 1 место по каждой дисциплине.

9. Составьте список группы спортсменов, участвовавших в соревнованиях по плаванию, включающей N человек. Для каждого пловца укажите фамилию, имя, название общеобразовательной школы, класс, результаты по следующим дисциплинам:

• кроль на груди,

• кроль на спине,

• баттерфляй,

• комплексное плавание.

Информацию о каждом спортсмене оформите в программе в виде записи. Совокупность записей объедините в файл. Составьте программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы, а также распечатайте анкетные данные спортсменов,

а) занявших 1 место по каждому стилю плавания;

б) показавших лучшее время по всем видам плавания,

в) не получивших ни одного призового места.

10. Составьте список группы спортсменов, участвовавших в соревнованиях по спортивной гимнастике, включающей N человек. Для каждого гимнаста указажите фамилию, имя, название общеобразовательной школы, класс, результаты по следующим видам:

• кольца,

• брусья,

• перекладина,

• вольные упражнения,

• прыжки на дорожке,

• прыжки через коня.

Информацию о каждом спортсмене оформить в программе в виде записи. Совокупность записей объединить в файл. Составьте программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы, а также распечатать анкетные данные спортсменов,

а) показавших лучший результат по каждому виду;

б) показавших лучший результат по всем видам многоборья,

в) не получивших ни одного призового места.

Задание. (на усмотрение учителя) Познакомившись с содержанием предыдущих задач придумайте свою интересную задачу и решите ее.

Решение задач. Процедуры и функции работы с файлами.

Изменение имени файла производится процедурой

  rename(МуFilе, FileName);

первый аргумент которой - переменная файлового типа, а второй аргумент - строкового типа - новое имя файла, которое может быть сокращенным или полным (с указанием пути). Действие этой процедуры эквивалентно действию аналогичной процедуры DOS.

Уничтожение части файла от текущего положения до конца производится процедурой

  truncate(МуFilе).

Уничтожение всего файла производится процедурой

  erase(МуFilе),

действие которой эквивалентно удалению файла в операционной системе DOS.

Примечание. Физические файлы на магнитных дисках и переменные файлового типа в программе на Паскале - объекты различные. Переменные файлового типа в Паскале соответствуют не только физическим файлам, но и логическим устройствам, связанным с вводом и выводом информации. Клавиатуре и экрану дисплея соответствуют файлы со стандартными именами Input и Output.

Задание. Рассмотрите предложенный ниже текст программы. Сформулируйте решенную задачу. Создайте расширенный вариант подобной задачи. результат покажите учителю для оценки.

Program Files; Uses   Crt; Var   F,Fnew : file of string;   Name,NewName : string[12];   Text : string;   Ch : char; Procedure ReadText; Begin   repeat     write('Введите имя файла>');     readln(Name);     assign(F,Name);     reset(F);     if IOresult<>0       then         begin           writeln('Ошибка чтения');           close(F);         end;   until IOresult=0;   writeln('Содержание файла ',Name,':');   while not Eof(F) do     begin       readln(F,Tеxt);       writeln(Tеxt);     end;   close(F); End; Procedure EraseFile; Begin   erase(F);   writeln('Файл удален'); End; Procedure ReNameFile; Begin   write('Введите новое имя файла:');   readln(NewName);   rename(F,NewName);   writeln('Файл ',Name,' переименован в файл ',NewName); End; Procedure CopyFile; Begin   write('Введите имя копии файла ',Name,'>');   readln(NewName);   reset(F);   assign(Fnew,NewName);   rewrite(Fnew);   while not Eof(f) do     begin       readln(F,Text);       writeln(Fnew,Text);     end;   close(F);   close(F_new);   writeln('Файл',Name,' скопирован в файл ',NewName); End; Begin   ClrScr;   readTеxt;   repeat     writeln('Удаление файла (D),переименование файла(R)');     writeln('Копирование файла (C), выход из программы (Е)');     write('Введите символ нужной операции - ');     readln(ch);     case ch of       'D','d': EraseFile;       'R','r': ReNameFile;       'C','c': CopyFile;     end;   until (ch='E') or (ch='e');   read; End.

Выберите с учителем одну из предложенных ниже задач.

1. Даны два отсортированных типизированных файла (тип выбрать произвольно). Получить новый типизированный файл слиянием двух исходных в отсортированном виде. Алгоритм слияния должен предусматривать, что исходные файлы могут содержать очень большое число элементов.

2. Проверить, является ли один типизированный файл частью другого. Если является, то его распечатать на принтере.

3. Сделать один типизированный файл частью другого, начиная с N-ой позиции (N задает пользователь).

4. Один типизированный файл вставить в другой, чередуя элементы обоих файлов. Элементы вставляемого файла начинайте вводить с конца файла.

5. Сравнить содержание файлов. Количество сравниваемых файлов задает пользователь.

Приготовьте листинги решенных и проверенных учителем задач. Проверьте свои знания, ответив на ниже следующие вопросы.

Контрольные вопросы

1. Что называется файлом? как его описать в программе?

2. Какие действия можно производить с файлами?

3. Как записать файл? Какие процедуры или функции надо применить? Как производится запись?

4. Как прочитать файл? Какие процедуры или функции используются? Как происходит чтение данных из файла?

5. Как закончить работу с файлом?

6. Как обратиться к компоненте с заданным номером?

7. Как подсчитать, сколько элементов в данном файле?

8. Верно ли, что элементы файла должны быть одного типа и что файл отличается от массива только тем, что размер (количество элементов) файла произволен, а размер массива фиксирован?

9. Можно ли, считав из файла пятый элемент, затем сразу же считать второй? Если нет, то какой можно?

10. Верно ли, считав из файла пятый элемент, затем уже никогда нельзя считать его второй элемент?

11. В какое место файла можно добавлять новые элементы: в начало, в середину, в конец, куда угодно, никуда?

12. Если не переписывать файл заново, то значения каких его элементов можно менять: только первого, только последнего, каких угодно, никаких? А какие элементы можно удалять?

13. Верно ли, что в одно и то же время нельзя считывать из файла и записывать в него? верно ли, что, начав считывать из файла, затем уже никогда нельзя записывать в него? А наоборот?

14. Можно ли сравнивать файлы или присваивать один файл другому?

Примеры решения задач.

1. Создать файл,содержащий информацию о работниках:табельный номер,фамилия,оклад. Создать другой файл,в котором содержится информация о работнике,имеющем максимальный оклад.

Program TipFile1;

{Задача.Создать файл,содержащий информацию о

работниках:табельный номер,фамилия,оклад.

Создать другой файл,в котором содержится

информация о работнике,имеющем максимальный

оклад.

Решение.Арсланов Ильдар,

ЦНИТ "Северная Звезда"

03.04.2000.}

Uses

Crt;

Type

Dann=Record

number:byte;

Surname:string;

oklad:integer;

End;

Var

Zarpl,Tf:file of Dann;

word:Dann;

i,count:Integer;

namef:string[12];

Procedure VZapZarpl;

Begin

Writeln('Ввод записи ј ',FilePos(Zarpl)+1);

With word do

Begin

Writeln('Работник ',i,'-ый');

Writeln('Табельный номер:');

Readln(number);

Writeln('Фамилия:');

Readln(surname);

Writeln('Оклад');

Readln(oklad);

Write(Zarpl,word);

End;

End;

Procedure File1Vvod;

Begin

Writeln('Введите имя файла:');

Readln(namef);

Assign(Zarpl,namef);

Rewrite(Zarpl);

Writeln('Введите кол-во записей:');

Readln(count);

For i:=1 to count do

VZapZarpl;

Writeln('Ввод информации о рабочих завершен');

Close(Zarpl);

Readln;

End;

Procedure File2Make;

Var

namef1:string[12];

n,max:integer;

surn1:string;

Begin

Max:=0;

Writeln('Введите имя другого файла:');

Readln(namef1);

Assign(Tf,namef1);

Rewrite(Tf);

Assign(Zarpl,namef);

Reset(Zarpl);

While not Eof(Zarpl) do

begin

Read(Zarpl,Word);

For i:=1 to count do

With Word do

If oklad>max

Then

begin

Max:=oklad;

n:=number;

surn1:=surname;

end;

end;

Write(Tf,word);

Close(Zarpl);

Close(Tf);

Reset(Tf);

Seek(Tf,0);

Writeln;

Writeln('Вывод информации из нового файла,содержащего');

Writeln('информацию о работнике,имеющем наибольший оклад');

Writeln;

While not Eof(tf) do

begin

Read(Tf,word);

With Word do

begin

Writeln('Табельный номер ',n);

Writeln('Фамилия ',surn1);

Writeln('Оклад ',max);

end;

end;

Close(Tf);

Read;

End;

Begin

ClrScr;

File1Vvod;

File2Make;

ReadLn;

End.

2. Создать файл,содержащий информацию о работниках института.Найти средний стаж работы в институте.

Program TipFile2;

{Задача.Создать файл,содержащий информацию о

работниках института.Найти средний стаж

работы в институте.

Решение.Арсланов Ильдар,

ЦНИТ "Северная Звезда"

03.04.2000.}

Uses

Crt;

Type

Dann=Record

stag:byte;

Surname,workname:string;

oklad,year:integer;

End;

Var

Zarpl:file of Dann;

word:Dann;

i,count,max:Integer;

name:string[12];

Procedure VVodZap;

Begin

With word do

Begin

Writeln('Работник ',i,'-ый');

Writeln('Фамилия:');

Readln(surname);

Writeln('Год рождения:');

Readln(year);

Writeln('Стаж работы:');

Readln(stag);

Writeln('Должность:');

Readln(workname);

Writeln('Оклад');

Readln(oklad);

Write(Zarpl,word);

End;

End;

Procedure FileVvod;

Begin

Writeln('Введите имя файла:');

Readln(name);

Assign(Zarpl,name);

Rewrite(Zarpl);

Writeln('Введите кол-во работников:');

Readln(count);

For i:=1 to count do

VVodZap;

Writeln('Ввод информации о работниках завершен');

Close(Zarpl);

Readln;

End;

Procedure FileOpen;

Var

sr:real;

Begin

sr:=0;

Assign(Zarpl,name);

Reset(Zarpl);

While not Eof(Zarpl) do

begin

Read(Zarpl,Word);

With Word do

sr:=max+stag;

end;

Sr:=(sr/count);

Writeln('Средний стаж работы равен:',Sr:1:1,' лет');

Close(Zarpl);

Read;

End;

Begin

ClrScr;

FileVvod;

FileOpen;

ReadLn;

End.

3. Создать файл телефонного справочника. По желанию пользователя можно создать,просмотреть, дополнить файл справочника,найти номер телефона по фамилии абонента,удалить компоненты файла-справочника.

Program TipFile3;

{Задача.Создать файл телефонного справочника.

По желанию пользователя можно создать,просмотреть,

дополнить файл справочника,найти номер телефона по

фамилии абонента,удалить компоненты файла-справочника.

Решение.Арсланов Ильдар,

ЦНИТ "Северная Звезда"

3.04.2000.}

Uses

Crt;

Type

sfio=string[20];

Sphone=string[10];

Rbook=record

Fio:sfio;

Phone:sphone;

end;

Var

BFile:File of Rbook;

Work:RBook;

vid:byte;

name:string[12];

Procedure Name_File;

Begin

Write('Введите имя файла:');

Readln(name);

End;

Procedure VvodRec;

Begin

Writeln('Ввод записи ј ',FilePos(bFile)+1);

With Work do

Begin

Write('Введите фамилию:');

Readln(Fio);

Write('Введите номер телефона:');

Readln(phone);

Write(BFile,Work);

End;

End;

Procedure CrBPhone;

Var

i,count:integer;

Begin

Name_File;

Assign(BFile,Name);

Rewrite(BFile);

Writeln('Введите число записей в справочнике ');

Readln(count);

For I:=1 to count do

Vvodrec;

Writeln('Создание справочника завершено');

Close(BFile);

End;

Procedure ProsRec;

Begin

Read(BFile,Work);

With Work do

begin

Writeln('Запись ј ',FilePos(bFile));

Writeln('Фио: ',Fio,' телефон: ',Phone);

end;

End;

Procedure ProsAllRec;

Begin

Name_File;

Assign(BFile,name);

Reset(BFile);

Seek(BFile,0);

Writeln('*******Вывод телефонного справочника**********');

While not Eof(BFile) do

ProsRec;

Writeln;

End;

Procedure IzmRec;

Var

NumRec:longint;

Begin

Name_File;

Assign(BFile,name);

Reset(BFile);

Write('Укажите номер изменяемой записи:');

Readln(NumRec);

Seek(BFile,NumRec-1);

Writeln('Старое значение записи:');

ProsRec;

Seek(BFile,NumRec-1);

Writeln('Новое значение записи:');

VvodRec;

Close(BFile);

End;

Procedure DopolRec;

Var

count,i:integer;

Begin

Name_File;

Assign(BFile,name);

Reset(BFile);

Seek(BFile,FileSize(BFile));

Writeln('Введите число дополнительных записей ');

Readln(count);

For I:=1 to count do

VvodRec;

Writeln('Измененный файл содержит ',FileSize(BFile),' записи');

Close(BFile);

End;

Procedure FindFio;

Var

Maska:sfio;

Flag:boolean;

Begin

Name_File;

Assign(BFile,name);

Reset(BFile);

Writeln('Введите фамилию для поиска: ');

Readln(Maska);

Flag:=False;

While not Eof(BFile) do

begin

Read(BFile,work);

With work do

If Pos(Maska,Fio)<>0

Then

begin

Flag:=True;

Writeln('Фамилия: ',Fio,' телефон: ',phone);

end;

end;

IfnotFlag

Then

Writeln('В справочнике нет абонентов с фамилией ',Maska);

Close(BFile);

End;

Procedure DeleteFile;

Begin

Name_File;

Assign(BFile,name);

Reset(BFile);

Truncate(BFile);

Writeln('Компоненты файла были успешно удалены');

End;

Begin

ClrScr;

Repeat

Writeln('ТЕЛЕФОННЫЙ СПРАВОЧНИК');

Writeln('Выберите вид работы:');

Writeln('1-Создание нового файла');

Writeln('2-Просмотр списка справочника');

Writeln('3-Изменение записи');

Writeln('4-Дополнение справочника');

Writeln('5-Поиск абонента');

Writeln('6-Удаление всех компонентов справочника');

Writeln('0-Выход');

Readln(vid);

Case Vid of

1:CrBPhone;

2:ProsAllRec;

3:IzmRec;

4:DopolRec;

5:FindFio;

6:DeleteFile;

0:Exit;

end;

Writeln;

Until Vid=0;

Read;

End.

Текстовые файлы

Особое место в языке Паскаль занимают текстовые файлы, компоненты которых имеют символьный тип. Для описания текстовых файлов в языке определен стандартный типТext:

var TF1, TF2: Text;

Текстовые файлы представляют собой последовательность строк, а строки – последовательность символов. Строки имеют переменную длину, каждая строка завершается признаком конца строки.

С признаком конца строки связана функция EOLn(var T:Text):Boolean, где Т – имя текстового файла. Эта функция принимает значение TRUE, если достигнут конец строки, и значение FALSE, если конец строки не достигнут.

Для операций над текстовыми файлами, кроме перечисленных, определены также операторы обращения к процедурам:

ReadLn (T)– пропускает строку до начала следующей;

WriteLn (T)– завершает строку файла, в которую производится запись, признаком конца строки и переходит к началу следующей.

Для работы с текстовыми файлами введена расширенная форма операторов ввода и вывода. Оператор

Read(T,X1,X2,...XK)

эквивалентен группе операторов

begin
Read(T,X1);
Read(T,X2);
Read(T,XK)
end;

Здесь Т – текстовый файл, а переменные Х1, Х2,...ХК могут быть либо переменными целого, действительного или символьного типа, либо строкой. При чтении значений переменных из файла они преобразуются из текстового представления в машинное.

Оператор

Write(T,X1,X2,...XK);

эквивалентен группе операторов

begin
Write(T,X1);
Write(T,X2);
Write(T,XK)
end;

Здесь Т – также текстовый файл, но переменные Х1, Х2, ..., ХК могут быть целого, действительного, символьного, логического типа или строкой. При записи значений переменных в файл они преобразуются из внутреннего представления в текстовый.

К текстовым файлам относятся стандартные файлы INPUT, OUTPUT.

Рассмотренные ранее операторы ввода – вывода являются частным случаем операторов обмена с текстовыми файлами, когда используются стандартные файлы ввода-вывода INPUT, OUTPUT.

Работа с этими файлами имеет особенности:

– имена этих файлов в списках ввода-вывода не указываются; – применение процедур Reset, Rewrite и Close к стандартным файлам ввода-вывода запрещено; – для работы с файлами INPUT, OUTPUT введена разновидность функции EOLn без параметров. – Турбо Паскаль вводит дополнительные процедуры и функции, применимые только к текстовым файлам, это SetTextBuf, Append, Flush, SeekEOLn, SeekEOF.

Процедура SetTextBuf (var f: Text; var Buf; BufSize: Word) служит для увеличения или уменьшения буфера ввода-вывода текстового файла f. Значение размера буфера для текстовых файлов по умолчанию равно 128 байтам. Увеличение размера буфера сокращает количество обращений к диску. Рекомендуется изменять размер буфера до открытия файла. Буфер файла начнется с первого байта переменной Buf. Размер буфера задается в необязательном параметре BufSize, а если этот параметр отсутствует, размер буфера определяется длиной переменной Buf.

Процедура Append (var f: Text) служит для специального открытия выходных файлов. Она применима к уже существующим физическим файлам и открывает их для дозаписи в конец файла.

Процедура Flush (var f: Text) применяется к открытым выходным файлам. Она принудительно записывает данные из буфера в файл независимо от степени его заполнения.

Функция SeekEOLn (var f: Text): Boolean возвращает значение True, если до конца строки остались только пробелы.

Компонентные файлы

Компонентный или типизированный файл – это файл с объявленным типом его компонент. Компонентные файлы состоят из машинных представлений значений переменных, они хранят данные в том же виде, что и память ЭВМ.

Описание величин файлового типа имеет вид:

type M= File Of T;

где М – имя файлового типа; Т – тип компоненты. Например:

type
FIO= String[20];
SPISOK=File of FIO;
var
STUD, PREP: SPISOK;

Здесь STUD, PREP – имена файлов, компонентами которых являются строки.

Описание файлов можно задавать в разделе описания переменных:

var
fsimv: File of Char;
fr: File of Real;

Компонентами файла могут быть все скалярные типы, а из структурированных – массивы, множества, записи. Практически во всех конкретных реализациях языка Паскаль конструкция "файл файлов" недопустима.

Все операции над компонентными файлами производятся с помощью стандартных процедур:

Reset, Rewrite, Read, Write, Close.

Для ввода-вывода используются процедуры:

Read(f,X);
Write(f,X);

где f – имя логического файла; Х – либо переменная, либо массив, либо строка, либо множество, либо запись с таким же описанием, какое имеет компонента файла.

Выполнение процедуры Read (f,X) состоит в чтении с внешнего устройства одной компоненты файла и запись ее в X. Повторное применение процедуры Read (f,X) обеспечит чтение следующей компоненты файла и запись ее в X.

Выполнение процедуры Write (f,X)состоит в записи X на внешнее устройство как одной компоненты. Повторное применение этой процедуры обеспечит запись X как следующей компоненты файла.

Для работы с компонентными файлами введена расширенная форма операторов ввода и вывода:

Read(f,X1,X2,...XK)
Write(f,X1,X2,...XK)

Здесь f – компонентный файл, а переменные Х1, Х2,..., ХК должны иметь тот же тип, что и объявленный тип компонент файла f.

Бестиповые файлы

Бестиповые файлы позволяют записывать на диск произвольные участки памяти ЭВМ и считывать их с диска в память. Операции обмена с бестиповыми файлами осуществляются с помощью процедурBlokRead иBlockWrite. Кроме того, вводится расширенная форма процедур Reset и Rewrite. В остальном принципы работы остаются такими же, как и с компонентными файлами.

Перед использованием логический файл

var f: File;

должен быть связан с физическим с помощью процедуры Assign. Далее файл должен быть открыт для чтения или для записи процедурой Reset или Rewrite, а после окончания работы закрыт процедурой Close.

При открытии файла длина буфера устанавливается по умолчанию в 128 байт. Турбо Паскаль позволяет изменить размер буфера ввода-вывода, для чего следует открывать файл расширенной записью процедур

Reset(var f: File; BufSize: Word);

или

Rewrite(var f: File; BufSize: Word);

Параметр BufSize задает число байтов, считываемых из файла или записываемых в него за одно обращение. Минимальное значение BufSize – 1 байт, максимальное – 64 Кбайта.

Чтение данных из бестипового файла осуществляется процедурой

BlockRead( var f: File; var X; Count: Word;
var QuantBlock: Word);

Эта процедура осуществляет за одно обращение чтение в переменную X количества блоков, заданное параметром Count, при этом длина блока равна длине буфера. Значение Count не может быть меньше 1. За одно обращение нельзя прочесть больше, чем 64 Кбайтов.

Необязательный параметр QuantBlock возвращает число блоков (буферов), прочитанных текущей операцией BlockRead. В случае успешного завершения операции чтения QuantBlock = Count, в случае аварийной ситуации параметр QuantBlock будет содержать число удачно прочитанных блоков. Отсюда следует, что с помощью параметра QuantBlock можно контролировать правильность выполнения операции чтения.

Запись данных в бестиповой файл выполняется процедурой

BlockWrite( var f: File; var X; Count: Word;
var QuantBlock: Word);

которая осуществляет за одно обращение запись из переменной X количества блоков, заданное параметром Count, при этом длина блока равна длине буфера.

Необязательный параметр QuantBlock возвращает число блоков (буферов), записанных успешно текущей операцией BlockWrite.

Последовательный и прямой доступ

Смысл последовательного доступа заключается в том, что в каждый момент времени доступна лишь одна компонента из всей последовательности. Для того, чтобы обратиться (получить доступ) к компоненте с номером К, необходимо просмотреть от начала файла К-1 предшествующую компоненту. После обращения к компоненте с номером К можно обращаться к компоненте с номером К+1. Отсюда следует, что процессы формирования (записи) компонент файла и просмотра (чтения) не могут произвольно чередоваться. Таким образом, файл вначале строится при помощи последовательного добавления компонент в конец, а затем может последовательно просматриваться от начала до конца.

Рассмотренные ранее средства работы с файлами обеспечивают последовательный доступ.

Турбо Паскаль позволяет применять к компонентным и бестиповым файлам, записанным на диск, способ прямого доступа. Прямой доступ означает возможность заранее определить в файле блок, к которому будет применена операция ввода-вывода. В случае бестиповых файлов блок равен размеру буфера, для компонентных файлов блок – это одна компонента файла.

Прямой доступ предполагает, что файл представляет собой линейную последовательность блоков. Если файл содержит n блоков, то они нумеруются от 1 через 1 до n. Кроме того, вводится понятие условной границы между блоками, при этом условная граница с номером 0 расположена перед блоком с номером 1, граница с номером 1 расположена перед блоком с номером 2 и, наконец, условная граница с номером n находится после блока с номером n.

Реализация прямого доступа осуществляется с помощью функций и процедур FileSize, FilePos, Seek и Truncate.

Функция FileSize (var f): Longint возвращает количество блоков в открытом файле f.

Функция FilePos (var f): Longint возвращает текущую позицию в файле f. Позиция в файле – это номер условной границы. Для только что открытого файла текущей позицией будет граница с номером 0. Это значит, что можно записать или прочесть блок с номером 1. После чтения или записи первого блока текущая позиция переместится на границу с номером 1, и можно будет обращаться к блоку с номером 2. После прочтения последней записи значение FilePos равно значению FileSize.

Процедура Seek (var f; N: Longint) обеспечивает назначение текущей позиции в файле (позиционирование). В параметре N должен быть задан номер условной границы, предшествующей блоку, к которому будет производиться последующее обращение. Например, чтобы работать с блоком 4, необходимо задать значение N, равное 3. Процедура Seek работает с открытыми файлами.

Процедура Truncate (var f) устанавливает в текущей позиции признак конца файла и удаляет (стирает) все последующие блоки.

Пример. Пусть на НМД имеется текстовый файл ID.DAT, который содержит числовые значения действительного типа по два числа в каждой строке – значения аргумента и функции соответственно. Количество пар чисел не более 200. Составить программу, которая читает файл, значения аргумента и функции записывает в одномерные массивы, подсчитывает их количество, выводит на экран дисплея и записывает в файл компонентного типа RD.DAT.

Program F;
Var rArg, rF: Array[1..200] of Real;
inf: Text;
outf: File of Real;
n, l: Integer;
Begin
Assign(inf,'ID.DAT');
Assign(outf,'RD.DAT');
Reset(inf);
Rewrite(outf);
n:=0;
while not EOF(inf) do begin
n:=n+1;
ReadLn(inf,rArg[n],rF[n])
end;
for l:=1 to n do begin
WriteLn(l:2,rArg[l]:8:2,rF[l]:8:2);
Write(outf,rArg[l], rF[l]);
end;
close(outf)
End.