Процедуры и функции обработки файловых переменных

Assign (< имя файловой переменной >,’< путь и имя файла на диске >’) – связь переменной файлового типа с конкретным внешним файлом.

Reset (f) – процедура открытия существующего файла и подготовка к чтению файла. Указатель текущей позиции файла устанавливается в его начало.

Rewrite (f) – процедура создания нового физического файла и подготовка к записи файла. Если такой файл существует, то он удаляется, и на этом месте создается новый пустой файл. Указатель текущей позиции файла устанавливается в его начало.

Get (f) - присваивание значения компоненты буферной переменной;

Put (f) - создание в файле новой компоненты;

Readln (f) - пропуск строки файла до начала следующей;

Writeln (f) - запись признака конца строки и переход на следующую;

Read (f, x) – процедура чтения компоненты файла. Данные выводятся из файла.

Write (f, x) – процедура записи значения переменной в файл, который хранится на диске. Указатель перемещается на следующий элемент. Если указатель текущей позиции файла находится за последним элементом, т.е. в конце файла, то файл расширяется.

Eof - признак конца файла- логическая функция для определения, достигнут ли конец файла.

Close (f) - процедура закрытия файла.

 

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

1. Прочитать из текстового файла А все записанные в него целые числа, преобразовать их в вещественные и вывести в текстовый файл В по 4 числа в строку.

Program File1;

Var F1,F2: text;

   X: real;

   I :integer;

Begin

Assign ( F1,’A’ )

Reset( F1 );

Assign (F2, ‘B’);

Rewrite (F2);

Repeat

   For I:=1 to 4 do

                          If not seekeof (F1 ) then

                                      Begin

                                                  Read (F1,x);

                                                  Write (F2,x:18)

                                      End;

              Writeln (F2);

Until seekeof (F1);

Close (F1);

Close (F2);

End

End.

Список задач

1. Дан файл f, компоненты которого являются действительными числами. Найти:

а) сумму компонент файла;

б) произведение компонент файла;

в) сумму квадратов компонент файла;

г) модуль суммы и квадрат произведения компонент файла;

д) последнюю компоненту файла;

2. Дан файл f, компоненты которого являются действительными числами. Найти:

а) из значений компонент;

б) наименьшее из значений компонент с чётными номерами;

в) наибольшее из значений модулей компонент с нечётными номерами;

г) сумму наибольшего и наименьшего из значений компонент;

д) разность первой и последней компонент файла.

3. Дан файл f, компоненты которого являются целыми числами. Найти:

а) количество чётных чисел среди компонент;

б) количество удвоенных нечётных чисел среди компонент;

в) количество квадратов нечётных чисел среди компонент;

4. Дан символьный файл f. Получить копию файла в файле g.

5. Даны символьные файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в файл f2. Использовать вспомогательный файл h.

6. Дан символьный файл f. В файле не менее двух компонент. Определить являются ли два первых символа файла цифрами. Если да, то установить, является ли число, образованное этими цифрами чётными.

7. Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f:

а) являющиеся чётными числами;

б) делящиеся на 3 и не делящиеся на 7;

в) являющиеся точными квадратами;

8. Записать в файл g все чётные числа файла f, а в файл h = все нечётные. Порядок следования чисел сохраняется.

9. Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке.

10. Дан файл, содержащий различные даты. Каждая дата - это число, месяц и год. Найти:

а) год с наименьшим номером;

б) все весенние даты;

в) самую позднюю дату;

11. Даны символьные файлы f и g. Записать в файл h сначала компоненты файла f, затем компоненты файла g с сохранением порядка.

12. Дан файл f, компоненты которого являются целыми числами. Никакая из компонент файла не равна нулю. Файл f содержит столько же отрицательных чисел, сколько и положительных. Используя вспомогательный файл h, переписать компоненты файла f в файл g так, чтобы в файле g:

а) не было двух соседних чисел с одним знаком;

б) сначала шли положительные, потом отрицательные числа.

в) числа шли в следующем порядке: два положительных два отрицательных, два положительных, два отрицательных и т. д. (предполагается, что число компонент в файле f делится на 4).

 

Литература

1) Абрамов С.А.; Зима Е.В. Начала информатики. – М: Наука, 1989 – 256 с. (Б-чка программиста).

2) Дагене В.А. и др. Сто задач по программированию: кн. для уч-ся. / Пер. с лит. А.Д. Шмелева, В.А. Дагине, Г.К Григас, К.Ф. Аугутис. – М.: Просвещение, 1993 – 255 с.

3) Кушнеренко А.Г. и др. Основы информатики и вычислительной техники: Пробный учебник для средних учебных заведений./ А.Г. Кушниренко, Г.В. Лебедев, Р.А. Сворень, - 3 изд. – М.: Просвещение, 1993, 223 с.

4) Поляков Д.Б., Круглов И.Ю. Программирование в среде ТурбоПаскаль.

5) Фаронов В.В. Программирование на персональных ЭВМ в среде Турбо-Паскаль. – М.: Изд-во МГТУ, 1990. – 580 с.

6) Фролов Г.Д., Кузнецов Э.И. Элементы информатики: [Учеб. пособие для пед. ин-тов]. – М.: Выс. шк., 1989. – 303 с.