Запись в файл

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

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

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

3. Открыть файл для записи (Rewrite).

4. Вывести данные из программы в файл (Write).

5. Закрыть файл для записи (Close).

Технологию работы с записью файлов рассмотрим на примере.

ПРИМЕР 1.Вывести в файл результаты решения следующей задачи:

y_i=Sinx_i+lnz_i ; i=1,n; n£4

Паскаль-программа с соответствующими комментариями:

Program FileWr;

Uses CRT,Printer;

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

m=Array[1..50] of real; (* массивы *)

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

Var

n,i:integer;

y,x,z:m;

F:text; (* описание файловой переменной *)

Str:string; (* имя строкового выражения *)

Begin (* операторная часть программы *)

ClrScr; (* очистка экрана *)

Write('Ввести имя Str=');

Readln(Str);

Assign(F,Str); {присвоение переменной F }

{имени строк.выражения Str }

Rewrite(F);

Write('Ввести n=');

read(n);

For i:=1 to n Do (* цикл *)

Begin

writeln('Ввести x[',i,']',' z[',i,']:');

readln(x[i],z[I]);

y[i]:=sin(x[i])+ln(z[i]);

writeln(' y[',i,']=',y[i]:6:2);

(* вывод в файл результатов *)

writeln(F,' y[',i,']=',y[i]:6:2);

end;

Close (F)

end.

Ввод исходных данных начинается с ввода имени строкового выражения str. Ниже показана вся цепочка ввода:

Диск:\каталог\подкаталог\имя файла

Можно указать просто имя файла, например:

FileWr.rez

Тогда он будет помещён в текущий диск и текущий каталог.