3. Работа с текстовыми файлами

Текстовыми файлами [Л1, стр. 70-74] называются файлы, состоящие из строк символов ASCII. Строки отделяются друг от друга символами “конец строки”, т.е. при вводе данных в файл с клавиатуры нужно нажимать клавишу “ENTER” для ввода каждой компоненты данных. В программе текстовый файл может быть описан в разделе переменных, например, так:

var f: text;

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

Чтобы связать имя файловой переменной и соответствующее ему имя файла на магнитном диске нужно записать в программе оператор:

assign(f, ‘ff.dat’);

где f - имя файловой переменной в Pascal-программе, а ff.dat - соответствующее ему имя файла на магнитном диске.

В отличие от массива, количество компонент в файле не фиксировано, место компоненты не определяется индексами.

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

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

reset(f); – открыть файл для чтения

rewrite(f); - открыть файл для записи

где f - имя файловой переменной в Pascal-программе.

Для чтения (ввода данных) из файла и записи (вывода данных) в файл используются следующие процедуры:

readln(f); – прочитать данные из файла с именем f;

writeln(f); – записать данные в файл с именем f.

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

close(f);

Пример 21. Вычислить таблицу значений функции:

y_i=x_i² , если x_i ≤ a

y_i=x_i+1, если x_i > a ( i=1, 2, …, n) (n≤10)

Пусть исходные данные (выбранные произвольно) размещаются в файле с именем fread.dat и пусть они принимают следующие значения:

n =5; a =2.5; x={0.5, 1.2, 2.5, 3.2, 3.5},

где n – количество элементов массива, x – массив, состоящий из n элементов, т.е. x={x₁,x₂,…,x_n}.

Результаты вычислений поместим в файл с именем fwrite.dat

Программа

program prim21; {заголовок программы}

var f1, f2 : text; {описание файловых переменных f1 и f2}

x, y : array[1..10] of real; {описание массивов}

i, n : integer; {описание переменных}

a : real;

begin

assign(f1,'fread.dat'); {связать f1 с именем файла на диске}

reset(f1); {открыть файл f1 для ввода данных}

read(f1,n); {ввод из файла f1 значения n}

read(f1,a); {ввод из файла f1 значения a}

for i:=1 to n do

read(f1,x[i]); {ввод из файла f1 массива x}

close(f1); {закрыть файл f1}

assign(f2,'fwrite.dat'); {связать f2 с именем файла на диске}

rewrite(f2); {открыть файл f2 для записи результатов}

for i:=1 to n do

if x[i]<=a then y[i]:=x[i]*x[i] else y[i]:=x[i]+1;

writeln(f2,'Таблица y(x)');

writeln(f2,' x y ');

for i:=1 to n do

writeln(f2,x[i]:6:3,' ',y[i]:6:3); {вывод результатов в файл f2}

close(f2); {закрыть файл f2}

end.

Файл, содержащий Файл, содержащий

исходные данные (fread.dat): результаты вычислений(fwrite.dat):

5 n Таблица y(x)

2.5 a x y

0.5 x₁ 0.500 0.250

1.2 x₂ 1.200 1.440

2.5 x₃ 2.500 6.250

3.2 x₄ 3.200 4.200

3.5 x₅ 3.500 4.500