Процедуры и функции для работы с файлами и каталогами

ЗАДАЧА №1

СТРУКТУРИРОВАННЫЕ ТИПЫ ДАННЫХ. ФАЙЛЫ. РАБОТА С ТИПИЗИРОВАННЫМИ ФАЙЛАМИ

СТРУКТУРИРОВАННЫЙ ТИП ДАННЫХ - ФАЙЛОВЫЙ

ФАЙЛ

- именованная область внешней памяти или логическое устройство – потенциальный источник или приемник информации (с точки зрения программы).

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

ВИДЫ ФАЙЛОВЫХ ПЕРЕМЕННЫХ И ИХ ОПИСАНИЕ:

Ø ТИПИЗИРОВАННЫЕ ФАЙЛЫ

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

VAR <ИМЯ1>: FILE OF <ТИП>;

Где <ТИП> - любой тип – тип элементов файла.

Ø ТЕКСТОВЫЕ ФАЙЛЫ

- компоненты – строки переменной длины, доступ только последовательный. Описание:

VAR <ИМЯ2>: TEXT;

Ø НЕТИПИЗИРОВАННЫЕ ФАЙЛЫ

- компоненты – двоичные блоки фиксированной емкости, информация из которых не интерпретируется, возможен прямой доступ. Описание:

VAR <ИМЯ3>: FILE;

ПРИМЕРЫ ОПИСАНИЙ ФАЙЛОВЫХ ТИПОВ И ПЕРЕМЕННЫХ

TYPE F1=TEXT; F2=FILE OF INTEGER; {файловый тип данных, состоящий из целочисленных элементов типа INTEGER} F3=FILE; VAR A0:F1; A1: TEXT; {два текстовых файла} A2:F2; {файл из целых чисел типа INTEGER} A3:F3; {двоичный файл}

ЭТАПЫ РАБОТЫ С ТИПИЗИРОВАННЫМИ ФАЙЛАМИ

Ø Описание файловой переменной

Ø Связь переменной с физическим файлом

Ø Инициализация (открытие) файла

Ø Ввод/вывод в файл

Ø Закрытие файла

Описание файловой переменной

При описании переменной для типизированного файла обязательно указывается тип элементов.

TYPE FINT=FILE OF INTEGER; {файловый тип данных, состоящий из целочисленных элементов типа INTEGER } VAR F1: FILE OF REAL; {файл из вещественных чисел типа REAL} F2:FINT; {файл из целых чисел типа INTEGER}

Связь переменной с физическим файлом

Ø ASSIGN (<ПЕРЕМЕННАЯ>,<ФАЙЛ>)

- связывает файловую переменную <ПЕРЕМЕННАЯ> с файлом, имя которого находится в строковой переменной или константе <ФАЙЛ>. Связь сохраняется до следующего оператора assign для данной переменной или до конца программной единицы, в которой определена указанная переменная.

ПРИМЕРЫ

ASSIGN(F1,’FFF.DAT’); ASSIGN(F2,’INT.DAT’);

Открытие файла

REWRITE(<ФП>)

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

RESET(<ФП>)

-открытие файла на чтение/запись, причем указатель помещается в начало файла (на нулевой элемент). Если файл не существует, генерируется ошибка ввода/вывода.

КОРРЕКТНОЕ ОТКРЫТИЕ ФАЙЛА

{$I-}{отключить контроль ошибок ввода/вывода – директива компилятора} RESET(A2); {открыть файл на чтение} {$I+}{включить контроль ошибок ввода/вывода – директива компилятора} IF IORESULT<>0 THEN {проверить функцию ошибки} … {действия в случае ошибки – отсутствия файла на диске} ELSE … {действия в случае успешного открытия файла}

2.1.4 Ввод/вывод в типизированный файл

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

Ø READ(<ФП>,<СП.ВВОДА>)

– чтение из файла <ФП> компонентов <СП. ВВОДА>- переменных типа элементов типизированного файла.

Ø WRITE(<ФП>,<СП.ВЫВОДА>)

– запись в файл <ФП> компонентов из <СП. ВЫВОДА> - переменных и/или констант типа элементов типизированного файла

Закрытие файла

Ø CLOSE(<ФП>)

- закрытие файла.

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

ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ С ФАЙЛАМИ И КАТАЛОГАМИ

ПОСЛЕ ЗАКРЫТИЯ ФАЙЛ МОЖНО:

Ø ERASE(<ФП>)

– удалить файл.

Ø RENAME(<ФП>,<НОВОЕ ИМЯ>)

– переименовать файл.

ПОЛЕЗНЫЕ ПОДПРОГРАММЫ ДЛЯ ОБРАБОТКИ ФАЙЛОВ

Ø IORESULT

– функция типа WORD; возвращает условный признак последней операции ввода-вывода, если успешно, то 0.

Ø EOF(<ФП>)

– функция типа BOOLEAN; возвращает true, если указатель файла находится в его конце, иначе – false.

Ø FLUSH(<ФП>)

– очищает буфер, связанный с файлом, гарантируя сохранность всех последних изменений

ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ С КАТАЛОГАМИ

Ø CHDIR(<ПУТЬ>)

– сменить текущий каталог

Ø MKDIR(<ПУТЬ>)

– создать новый каталог

Ø RMDIR(<ПУТЬ>)

– удалить пустой каталог

Ø GETDIR(<УСТРОЙСТВО>,<ПУТЬ>)

– получить имя текущего каталога и номер устройства, на котором он находится

Библиотека DOS.TPU содержит еще ряд полезных процедур и функций работы с дисками, логическими устройствами, файлами и т.п.

ПОЛЕЗНЫЕ ФУНКЦИИ ДЛЯ ОРГАНИЗАЦИИ ПРЯМОГО ДОСТУПА К КОМПОНЕНТАМ ТИПИЗИРОВАННОГО ФАЙЛА

Так как длина каждого компонента типизированного файла фиксирована, то можно осуществить прямой доступ к нему, указав порядковый номер (нумерация компонентов начинается с 0)

Ø SEEK (<ФП>,<N>)

– процедура устанавливает указатель файла на компонент с номером N.

Ø FILEPOS(<ФП>)

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

Ø FILESIZE(<ФП>)

– функция типа longint; возвращает количество записей в файле.

Ø TRUNCATE(<ФП>)

– процедура «усекает» длину файла до текущей записи (положения указателя).

ПРОЦЕДУРА СОЗДАНИЯ ФАЙЛА ИЗ ЦЕЛЫХ ЧИСЕЛ

PROCEDURE CREATE(NAME:STRING); VAR F:FILE OF INTEGER; {файловая переменная} X:INTEGER; BEGIN ASSIGN (F,NAME); {файловая переменная связана с файлом с именем NAME} {$I-} REWRITE(F); {открыть файл на запись (перезапись)} {$I+} IF IORESULT=0 THEN {если файл открыт} BEGIN WRITELN(‘VVEDITE CHISLA (OSTANOVKA 0):’); READ(X); WHILE X<>0 DO{вводим числа в цикле до нулевого значения и записываем их в файл} BEGIN WRITE (F,X); READ(X); END; CLOSE(F); {закрыть файл} END; END;

ПРОЦЕДУРА РАСПЕЧАТКИ СОДЕРЖИМОГО ФАЙЛА ИЗ ЦЕЛЫХ ЧИСЕЛ

PROCEDURE PRINT(NAME:STRING); VAR F:FILE OF INTEGER; {файловая переменная} X:INTEGER; BEGIN ASSIGN (F,NAME); {файловая переменная связана с файлом с именем NAME} {$I-} RESET(F); {открыть файл на чтение} {$I+} IF IORESULT=0 THEN {если файл открыт} BEGIN WHILE NOT(EOF(F)) DO {пока не достигнут конец файла } BEGIN{читаем элемент из файла и выводим ее на консоль} READ(F,X); WRITE(X:6); END; WRITELN; CLOSE(F); {закрыть файл} END; END;

ПРОЦЕДУРА УДАЛЕНИЯ ИЗ ФАЙЛА ВСЕХ ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ

PROCEDURE SGAT(NAME:STRING); VAR F:FILE OF INTEGER; {файловая переменная} X,K,S:INTEGER; BEGIN S:=0; {обнуляем счетчик отрицательных чисел} ASSIGN (F,NAME);{файловая переменная связана с файлом с именем NAME} {$I-} RESET(F); {открыть файл на чтение/запись} {$I+} IF IORESULT=0 THEN {если файл открыт} BEGIN WHILE NOT(EOF(F)) DO {пока не достигнут конец файла} BEGIN READ(F,X); {читаем целое число из файла} IF X=0 THEN {если прочитанный элемент – отрицательный считаем его} S:=S+1 ELSE BEGIN K:=FILEPOS(F); {иначе запоминаем в k позицию, следующую за прочитанным положительным элементом} SEEK(F,K-1-S); {смещаем указатель на позицию за последней положительной записью} WRITE(F,X); {записываем считанный элемент} SEEK(F,K); { и переходим к еще непрочитанной позиции} END; END; SEEK(F,FILEPOS(F)-S); {смещаем указатель на длину файла — количество удаленных элементов} TRUNCATE(F); { и «обрезаем» лишнее} CLOSE(F); {закрываем файл, чтобы сохранить изменения в файле} END; END;

ПРИМЕР ПРОГРАММЫ, ИСПОЛЬЗУЮЩЕЙ ПРИВЕДЕННЫЕ ВЫШЕ ПОДПРОГРАММЫ

BEGIN CREATE(‘FILE1.TXT’); {создать файл} PRINT(‘FILE1.TXT’); {распечатать файл} SGAT(‘FILE1.TXT’); {сжать файл} PRINT('FILE1.TXT'); {распечатать измененный файл} READLN; END.

ЗАДАНИЯ

Программа должна быть разбита на несколько подпрограмм-процедур и подпрограмм-функций и обязательно содержать:

1. Процедуру формирования исходного файла;

2. Процедуру вывода результата работы программы;

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

Все подпрограммы-процедуры и подпрограммы-функции должны содержать список параметров, причем файл должен передаваться как параметр процедуры (функции). Основная программа должна содержать только операторы вызова подпрограмм.

ВАРИАНТЫ

  Постановка задачи  
Дан файл f, компоненты которого являются действительными числами. Найти: Сумму компонент файла f. Записать эту сумму в конец файла. Отсортировать файл по возрастанию значений компонент.
Дан файл f, компоненты которого являются действительными числами. Найти: Произведение компонент файла f. Записать это произведение после компоненты с номером N. Отсортировать файл, начиная с компоненты с номером N по убыванию.
Дан файл f, компоненты которого являются действительными числами. Найти: Сумму квадратов компонент файла f. Записать эту сумму в конец файла. Отсортировать файл по возрастанию.
Дан файл f, компоненты которого являются действительными числами (положительные и отрицательные). Найти: Модуль суммы и квадрат произведения компонент файла f. Записать эти значения в конец файла. Отсортировать файл по возрастанию.
Дан файл f, компоненты которого являются действительными числами X1,X2,…Xn, образованными по закону: Xi=(i-0.1)/(sqr(i)*i+abs(tg2*i)) (i=1,2,…N). Дано действительное число e>0. Записать в файл h те элементы файла f, для которых выполняется условие: abs(Xi)<e
  Дан файл f, компоненты которого являются действительными числами. Найти: Наибольшее из значений компонент файла. Записать это значение N раз после наименьшего значения компоненты файла (Можно использовать вспомогательный файл).
Дан файл f, компоненты которого являются действительными числами. Найти: Наименьшее из значений компонент файла с четными номерами. Записать это значение N раз в конец файла
Дан файл f, компоненты которого являются действительными числами (положительные и отрицательные). Найти: Наибольшее из значений модулей компонент файла с нечетными номерами. Записать это значение после компоненты файла с номером N
Дан файл f, компоненты которого являются действительными числами. Найти: Сумму наибольшего и наименьшего из значений компонент. Создать новый файл g, в котором эта сумма является первой компонентой, остальные компоненты переписать из файла f Упорядочить компоненты файла g по убыванию
Дан файл f, компоненты которого являются действительными числами. Создать файл g по следующему правилу: каждая компонента файла g равна разности между наибольшей компонентой файла f и компонентой файла f с номером i (i=1,2,…). Упорядочить компоненты файла g по возрастанию  
Дан файл f, компоненты которого являются целыми числами. Найти: количество четных чисел среди компонент с нечетными номерами. Добавить это значение в конец файла.
Дан файл f, компоненты которого являются целыми числами. Найти: Количество удвоенных нечетных чисел среди компонент файла. Записать это значение в начало файла.
Дан файл f, компоненты которого являются целыми числами. Найти количество квадратов нечетных чисел среди компонент файла. Записать это значение в начало нового файла g. Остальные значения переписать из исходного файла f.

Наши рекомендации