Организация внешних файлов и работа с ними

Всякий раз при выполнении одной и той же программы (особенно при ее отладке) приходится заново вводить исходные данные.

Создание внешних файлов данных для постоянного хранения на МД и возможность обрабатывать эти файлы в программе является эффективным средством программирования. В PASKALe файл представляет собой последовательность элементов одного типа (простого или сложного). В отличие от массива длина файла, т.е. количество элементов, не задается, место элемента не определяется индексом и каждый элемент становится доступным только после перебора всех предыдущих элементов. Такие файлы называются последовательными.

Необходимо заметить, что создание и обработка внешних файлов зависят как от конкретной реализации микроЭВМ, так и от версии PASKAL . Во многих версиях PASKAL для микроЭВМ допускается хранение файлов на диске как символьных данных. При считывании файла в оперативную память машины символы файла преобразуются в тот тип данных, который объявлен в программе. Если программа взаимодействует с внешними файлами, то файлы должны быть описаны в программе либо явно в разделе переменных VAR, либо с использованием раздела типов TYPE . Объявление файлов в разделе переменной имеет вид: VAR имя файла: FILE OF базовый тип; *** VAR FT:FILE OF CHAR; (*файл символьных данных*) FINP:FILE OF REAL; (*файл действительных данных*) M:FILE OF INTEGER; (*файл целых данных*) Файлы символьных данных называют текстовыми файлами.

Описание текстового файла FILE OF CHAR Эквивалентно описанию TEXT . Поэтому в предыдущем примере текстовый файл FT можно объявить в виде : VAR FT:TEXT; Как было отмечено ранее, определение данных с исключением раздела описания типов TYPE делает программу более универсальной и упрощает отладку программы.

Объявление файлов в этом случае имеет вид: TYPE имя типа = FILE OF базовый тип; VAR имя файла: имя типа; *** Для текстового файла FT описание имеет вид: TYPE T=FILE OF CHAR; VAR FT:T; Здесь Т - введенный тип данных.

Рассмотрим основные 3 вида взаимодействия программы с внешними файлами: чтение файла, запись файла, чтение и запись.

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

Данные внешнего файла становятся доступными программе. В программе необходимо выполнить следующие действия для чтения файла: открыть файл для чтения (RESET) , ввести данные файла в программу (`READ) , закрыть файл для чтения (CLOSE) . Внешний файл, из которого читаются данные, часто называют входным файлом. Общая форма чтения файла имеет вид: RESET (имя 1); . . . READ (имя 1,параметры); . . . CLOSE ( имя 1); Многоточием отмечено наличие каких-либо операторов программы. В некоторых версиях PASCAL (в ДВК) оператор RESET может иметь несколько аргументов: RESET (имя 1; имя 2; имя 3; имя 4). Здесь имя 1 - файловая переменная, которая в программе описана как файл. Она устанавливает связь с физическим именем файла; имя 2 - физическое(конкретное) имя файла, который хранится на диске; имя 3 - расширение физического имени файла. Можно указывать любые 3 символа, однако рекомендуется указывать DAT (данные). Аргумент можно не указывать, тогда по умолчанию будет DAT ; имя 4 - переменная, которая автоматически получает значение, равное числу блоков, занимаемых внешним файлом на диске.

Аргумент можно не указывать, но если он указан, то нужно объявить переменную как целого типа.

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

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

Стандартная встроенная функция EOF (имя файла) исполняется для определения, достигнут ли конец файла, и ложное - в противном случае.

Функцию EOF можно использовать в логическом выражении в частности, в операции цикла, например: WHILE NOT EOF (F1) DO BEGIN . . . END Пока не достигнут конец файла F1 , повторяется циклическая часть программы, заключенная в операторные скобки begin-end . Элементы в файле хранятся по строкам. Для определения конца строки файла используется оператор цикла: WHILE NOT EOLN (имя 1) DO , а для перехода на новую строку файла - оператор READLN (имя 1). *** 1.1. Пусть на диске имеется файл с именем D1.DAT , в котором записана последовательность действительных чисел в нескольких строках: 0.54 1.7 4.56 0.2 1.32 1.524 18 0.92 56 Необходимо эти данные сделать доступными программе и вычислить их сумму. Program A21(INPUT, OUTPUT); VAR F1:TEXT; (*файловая переменная*) L1:Integer; (*длина файла*) X; Real; (*число*) SUM: Real; (*сумма*) Begin SUM: = 0; RESET (F1; D1; DAT; L1) WHILE NOT EOF (F1) DO Begin WHILE NOT EOLN (F1) DO Begin READ (F1, X); SUM: = SUM + X end; Readln (F1) end; WRITE (' сумма= ; SUM:8:3); CLOSE (F1) end. Сумма = 42.124 В программе 1.1: F1 - файловая переменная, с помощью которой устанавливается связь с файлом D1.DAT. Физическое имя файла указывается только при открытии файла в операторе RESET. В остальных операторах при необходимости работы с файлом указывается файловая переменная F1. Оператор READ (F1,X) применяется для считывания данных (по одному) из внешних файлов в переменной Х. После оператора CLOSE (F1) данные файла становятся недоступными программе.

Значение вычисленной суммы выводится на экран дисплея.

Запись файла. Под записью файла понимается запись результатов программы из оперативной памяти ЭВМ на диск, т.е. создание нового файла на внешнем устройстве. В программе необходимо выполнить следующие действия для записи файла: открыть файл для записи (REWRITE); вывести данные (WRITE); закрыть файл для записи (CLOSE). Внешний файл, в котором записываются данные из программы, часто называют входными. Общая форма записи файла: REWRITE (имя 1); . . . WRITE (имя 1, параметры); . . . CLOSE (имя 1); Оператор вывода для записи данных обладает всеми свойствами обычного оператора WRITE . Если оператор вывода имеет вид : WRITE ( параметры) То данные выводятся на экран дисплея, а если WRITE (имя 1, параметры) То данные записываются в файл, хранящиеся на диске. *** 1.2. Пусть в программе переменные А и В получают следующие значения: А=510, В=16.2. требуется записать в файл с именем D2.DAN строку в виде А=510 В=16.2. program A21A (INPUT, OUTPUT); VAR F2 : text; (*файловая переменная*) L2 : Integer; (*длина выходного файла*) A : Integer; (* целое данное*) B : Real; (* действительное данное*) Begin L2 : =1; A : = 510; B : = 16.2; REWRITE (F2, 'D2', 'DAN', L2); WRITE (F2, 'A=', A:3,' ':5, 'B=', B:4:1); CLOSE (F2) end. Все значения переменных указаны в комментариях программы . REWRITE открывает файл для записи в него данных.

Полное имя файла - D2.DAN . WRITE выводит строку символов в соответствии с форматом. CLOSE закрывает файл для записи.

Поскольку для записи одной строки вполне достаточен 1 блок, то переменной L2 присваиваем значение 1. Чтение и запись файла.