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

EOF (var f): Boolean;

Логическая функция возвращает значение TRUE, когда при чтении достигнет конца файла. Это означает, что уже прочитан последний элемент в файле или файл после открытия оказался пуст.

Rename (var f; NewName: String);

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

Erase(var f);

Процедура уничтожает физический файл на диске, который был связан с файловой переменной f. Файл к моменту вызова процедуры Erase должен быть закрыт.

IOResult: Integer;

Функция возвращает целое число, соответствующее коду последней ошибки ввода-вывода. При нормальном завершении операции функция вернет значение 0. Значение функции IOResult необходимо присваивать какой-либо переменной, т. к. при каждом вызове функция обнуляет свое значение. Функция IOResult работает только при выключенном режиме проверок ошибок ввода-вывода или с ключом компиляции {$I-}.

Для операций ввода-вывода используют стандартные процедуры Read и Write, в которых первым параметром в списке стоит файловая переменная, указывающая, скакимфайломтребуетсяпровестиоперацию.

Read(T,a,b,c);

– вводит значения переменных a,b,c из файла T.

Write(T,x,y);

– выводит значения переменных x,y в файл T.

7.1. Особенности работы с текстовыми файлами.

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

58

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

При вводе и выводе в текстовый файл происходит автоматическое преобразование типов переменных. Значение каждой переменной при вводе преобразовывается из текста в тип соответствующей переменной и присваивается ей. При выводе переменной её значение переводится в текст в соответствии с заданным форматом вывода.

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

Readln(T,a,b,c);

– вводит значения переменных a,b,c из файла T и затем переводит указатель файла на новую строку.

Writeln(T,x,y);

– выводит значения переменных x,y в файл T в одну строчку и затем переводит указатель файла на новую строку.

Readln(T);

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

Writeln(T);

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

7.1.1. Общий алгоритм ввода из файла данных

Общий алгоритм ввода из файла данных выглядит следующим образом:

1.Описываем файловую переменную в разделе описаний.

2.В основной части связываем файловую переменную с именем файла на диске. Процедура assign.

3.Открываем файл для чтения. Процедура reset.

4.Вводим значения переменных. Процедуры read и readln.

5.Закрываем файл. Процедура close.

Пример 7.1. Ввести из текстового файла данных с именем dat.pas два массива x[0..7] и y[0..7], состоящих из вещественных чисел.

Создадим на диске текстовый файл с именем dat.pas и запишем в него следующие две строчки:

59

Сохраним этот файл и перейдём в файл основной программы.

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

var x,y:array [0..7] of real; fl:text;

Кусочек программы, который будет осуществлять ввод, может выглядеть так:

Пример 7.2. Сделать то же самое другим способом.

Создадим на диске текстовый файл с именем dat.pas и запишем в него следующие два столбца:

X Y

0.10.1

0.2-0.1

0.30.5

0.41.1

0.52.1

0.63

0.74

0.810

Сохраним этот файл и перейдём в файл основной программы.

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

Кусочек программы, который будет осуществлять ввод, может выглядеть так:

assign(fl,'dat.pas'); {имя файла данных на диске}

readln(fl,x[i],y[i]); close(fl); {закрыть файл}

Этот вариант короче. Здесь одним оператором ввода считываются очередные значения массивов x и y, и указатель переводится на новую строку.

60

7.1.2. Общий алгоритм вывода в файл результатов

Общий алгоритм вывода в файл результатов выглядит следующим образом:

1.Описываем файловую переменную в разделе описаний.

2.В основной части связываем файловую переменную с именем файла на диске (процедура assign).

3.Открываемфайлдлязаписи(процедураrewrite или append).

4.Осуществляем вывод в файл результатов (процедуры write и

writeln).

5. Закрываем файл (процедура close).

Пример 7.3. Вывести матрицу a[1..5,1..5], состоящую из вещественных чисел, в файл результатов с именем rezultat.pas.

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

var a:array [1..5,1..5] of real; fr:text;

Кусочек программы, который будет осуществлять вывод, может выглядеть так:

assign(fr,'rezultat.pas');

rewrite(fr); {открыть файл для ввода} writeln(fr,‘Матрица А’); {вывод поясняющей строки}

write(fr,a[i,j]:8:2); {вывод строки}

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

61