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

В программе необходимо выполнить следующие действия для чтения файла: открыть файл для чтения (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 7.7

Необходимо эти данные сделать доступными программе и вычислить их сумму.

Program A21(INPUT, OUTPUT);

VAR