Реферат: Файлы

Assign(CHF, ‘A:\File1.Dat’);

Reset(CHF);

Readln(CHF, I,J,C,ST); {I:=36; J:=25; C:=’+’; ST:=’PASCAL’}

Read ( CHF , S ); ( S :=16.5}

11 Запись в текстовый файл

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

Запись осуществляется с помощью процедур:

Write ( CHF , <список переменных (функций, выражений)>);

или

Writeln ( CHF , <список переменных (функций, выражений)>);

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

Каждый элемент списка переменных (функций, выражений) может снабжаться характеристикой длины, то есть элементы списка, X , могут быть представлены в одном из трех видов:

XX : wX : w : d

где w -общая длина поля записи;

d -количество цифр в дробной части для элементоввещественного типа.

Пример:

Путь к файлу с результатами: A :\ File 2. Dat

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

результатов в файле: I = 36 J = 25

ST= PASCAL

Var CHF : Text;

I,J : integer;

ST : string;

...

I:=36; J:=25; ST:=’PASCAL’;

Assign(CHF,’A:\File2.Dat’);

Rewrite(CHF);

Writeln(CHF,’ Файл с результатами ’);

Writeln(CHF,’ I=’, I:3, ‘ J=’, J:3);

Writeln(CHF,‘ ST= ’, ST);