Практикум по решению задач на ЭВМ. Тарова И.Н - 11 стр.

                     Практикум по решению задач на ЭВМ


маркер конца файла. Если в файле f до этого была информация, то она
уничтожается.
   В открытом для чтения командой reset(f) файле текущий маркер уста-
навливается на нулевое состояние, однако содержимое файла не утрачива-
ется.
   Команда закрытия файла close (f) обязательна, поскольку эта команда
формирует маркер конца файла, что в большинстве случаев является необ-
ходимым (например, для работы с функцией eof(r)).
   В системе Турбо-Паскаль предусмотрены встроенные функции по рабо-
те с файлами:
filesize(f)- текущее количество компонент открытого файла;
filepos (f) – номер текущей позиции маркера;
rename(f,имя) – переименование файла;
erase(f) – уничтожение файла;
execute(f) – выполнение COM-файла;
chain(f) – выполнение CHN-файла;
aeek(f,N) –устанавливает маркер на позицию N;
eof(f) – возвращает TRUE, если найден конец файла;
ealn(f) – возвращает TRUE, если найден конец строки.
   На практике широко используются текстовые файлы, которые состоят из
литерных (логических) строк. Поэтому в языке Паскаль предусмотрен стан-
дарта файловый тип TEXT (он не является file of char, скорее всего, это - file
of string[n]). Логические строки бывают разной длины, в том числе и нуле-
вой. В конец каждой строки помещается специальный символ «конец
строки» (coin - «end of line»). В качестве печатного символа конца строки
используют литеру #. Текстовый файл (text) является строго последователь-
ным, к нему не применимы некоторые встроенные функции, в частности,
seek. В отличие от типизированных файлов, с текстов файлом нельзя одно-
временно проводить операции чтения (read) и записи (write). Однако, допус-
тимы операторы writeln и readln. Числовые данные, целые и вещественные, в
текстовом файле должны записываться через пробел.
Пример 1. Вывод данных на печатающее устройство - принтер (1st:).
       Программа
        program print;
        var
        fal: text; x: real; name:string[25];
     begin
      assign (fal, '1st:'); rewrite (fal); x:=2.5; name:'Слава';
        writeln(fal,x:8:2);
           writeln(fal,'Привет, ',name); close(fal)
             end.
{Здесь файловая переменная fal связывается с принтером 1st:, и запись в файл
fal практически означает вывод на печать)


                                     11