Чтение файлов

Под чтением файла понимается ввод данных из внешнего файла в оперативную память ПЭВМ. Этот файл называют входным файлом. Для чтения файла необходимо выполнить следующие действия:

1. Описать файловую переменную и строковое выражение, введя его имя.

2. Записать процедуру Assign.

3. Открыть файл для чтения (Reset).

4. Считать данные из файла (Read).

5. Закрыть файл (Close).

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

ПРИМЕР 2.Составить Паскаль-программу вычисления значений функции

y_i= x_i +3; i=1,n; n£3.

Затем предусмотреть вычисление :

x_si=x_ki +x _k-1i;

y_si=y_ki+ y _k-1i

для Кнаборов данных x_ki в пределах каждого шага цикла. Обозначения в этих выражениях надо понимать так:

x_ki, y_ki- текущие значения, т.е. значения, соответствующие К-мунабору x_ik ;

x_k-1i, y_k-1i -значения, соответствующие предыдущему набору. Например, если К=2(второй набор), то x_k-1i, y_k-1iотносятся к первому набору. Полученные результаты для каждого набора данных сначала сохранить во вновь создаваемом файле f1,а затем использовать их при вычислении x_siи y_si.

Для тестирования программы использовать следующие исходные данные:

1. Алгоритм представлен в постановке задачи.

2. Схема машинного алгоритма должна содержать блоки организации циклов и проверок ( здесь она опущена ).

3. Таблица идентификаторов:

4. Составляется текст Паскаль-программы с учётом алгоритма и таблицы идентификаторов:

Program WrRead;

Uses CRT,Printer;

Type (*раздел описания типа *)

m=Array[1..50] of real;

(*раздел описания переменных*)

Var

n,i,k:integer;(*К-№ набора исх.данных)

yt,xt,xs,ys:m; (* массивы *)

f1:text; (* файловая переменная *)

sv:string; (* строковое выражение *)

Begin (* раздел операторов *)

ClrScr;

write(' Ввести имя SV=');

read(sv);

assign(f1,sv); {присвоение файлу f1 имени строк.выр.SV}

Writeln(' Ввести n,k');

read(n,k);

for i:=1 to n do

begin

write(' Ввести xt[',i,']=');

read(xt[i]);

xs[i]:=0; (*подготовка к суммированию *)

ys[i]:=0 (* при к=1 *)

end;

if k>1 then

begin

reset(f1); (*открытие файла для чтения*)

writeln('чтение данных из файла f1:');(*Это заголовок*)

writeln('К i xs',' ':4,'ys'); (* таблицы*)

for i:=1 to n do

begin

read(f1,к,i,xs[i],ys[i]); (*чтение из файла*)

writeln(к,i:2,xs[i]:6:2,ys[i]:6:2);(*контроль чтения*)

к:=к+1; (* наращив. № набора исх.данных *)

end

end; (* конец проверки к>1 *)

rewrite(f1); (*открытие для записи в файл f1*)

writeln(' ':13,'РЕЗУЛЬТАТЫ:'); (*Это заголовок*)

writeln('к i',' ':5,' xt',' ':5,' yt',' ':5,' xs',' ':5,' ys');

For i:=1 to n Do (*таблицы*)

Begin

yt[i]:=xt[i]+3;

xs[i]:=xs[i]+xt[i];

ys[i]:=ys[i]+yt[i];

writeln(к,i:2,xt[i]:9:2,yt[i]:8:2,xs[i]:8:2,ys[i]:8:2); writeln(f1,к,i:2,xs[i]:8:2,ys[i]:8:2);{вывод результата в файл}

end;

close(f1) (*закрытие файла*)

end.

5. Тестирование программы выполнено для каждого набора данных и ниже приведены полученные результаты.