Файловый тип

- для чтения данных с клавиатуры,
OUTPUT- для вывода на экран.
Program Name (input, output);
Связывание выполняется стандартной процедурой ASSIGN:
ASSIGN (<файловая_переменная>, <имя_файла_или_л.у.>);
<файловая_переменная> - правильный идентификатор, объявленный как переменная файлового типа;
<имя_файла_или_л.у.> - текстовое выражение, содержащее имя файла или логического устройства (заключается в апострофы).
Пример.
VAR f, f1, f2: text; {объявление файловых переменных f, f1, f2}
Begin
ASSIGN(f, 'nameF.txt'); {связывание с файлом ‘nameF.txt’}
ASSIGN(f1, 'PRN'); {связывание с принтером}
ASSIGN(f2, ' '); {связывание со стандартным файлом (в\в)}
переменная связывается со стандартным файлом INPUT или OUTPUT.
____

определения имен в MS DOS:
- содержит до 8 разрешенных символов: прописные и строчные латинские буквы, цифры и следующие символы ! @ # $ % ^ & ( ) ' ~ - _
- начинается с любого разрешенного символа,
- за именем может следовать расширение - последовательность до трех разрешенных символов.
Например: Lab11.pas
date.txt
Нельзя вставлять символы шаблонов '*' и '?' в имя файла
Перед именем путь к файлу или имя диска е:\
Максимальная длина имени вместе с путем - 79 символов
VAR
F1: text;
F2: file of string;
Const name= ‘d: \IVT- 134\ lr11.pas’ ;
...
Assign(f1, 'date.txt'); {текущий каталог}
Assign(f2, name); {имя переменной, заданное в разделе CONST}
___

‘CON‘);
CON - (консоль) клавиатура (для чтения) или экран дисплея (для записи);
PRN - логическое имя принтера; LPT1 (синоним PRN), LPT2, LPT3;
AUX - логическое имя коммуникационного канала, два канала COM1 (AUX) и COM2;
NUL - логическое имя пустого устройства, используется в отладочном режиме и трактуется как устройство-приемник информации неограниченной емкости. При обращении к NUL как к источнику информации выдается признак конца файла (EOF);
Модуль Printer
объявляет имя файлов переменной LST и связывает с LPT1
Uses Printer;
Begin
Writeln (LST, ‘печатаемый текст’);
…
End.
_____

f, Name:String); Cвязывание ф.п. f с файлом Name
RESET(Var f); Открыть файл с логическим именем f для чтения
REWRITE(Var f) ; Открыть файл с логическим именем f для записи
CLOSE(f); Закрыть файл с логическим именем f
Erase(Var f); Удаление файла (стирание) с диска
ReName(f, NewName:String); Переименование физического файла в файл с именем NewName.
EOF(f): boolean Функция тестирования конца файла
FLUSH(<ф.п.>); Очищает внутренний буфер файла.
(Игнорируется, если файл инициирован процедурой
RESET)
____

после открытия файла становится возможным чтение и запись
повторное обращение в REWRITE сотрет текущее содержимое файла
Закрытие файлов CLOSE(<ф.п.>); Пр. CLOSE(f);
Переименование файлов
RENAME (<Ф.п.>, <новое имя>);
Пример. RENAME ( f, NewName);
Уничтожение файла
ERASE(<ф.п.>);
Функция тестирования конца файла
EOF(<ф.п.>)
Если достигнут признак конца файла – признак TRUE, иначе FALSE
___

LiNe - конец строки)
(код 13)+(код 10) – Enter {13(ВК)+10(ПС)}
В конце файла - EOF (End Of File - конец файла) c кодом 26 (Ctrl+Z)
Доступ к записям текстового файла
READ, READLN, WRITE, WRITELN
ASSIGN
Процедура READ обеспечивает ввод чисел, символов, одной строки
READ (<ф.п.>,<список_ввода>);
или READ (<список_ввода>);
где <список_ввода> - последовательность из одной или более переменных, типа CHAR, STRING или любого целого или вещественного типов,
например:
READ (Х); READ (f,x1,x2,x3); READ (f,x);
CHAR чтение одного символа
CR (13) EOF (код 26)
_____

числовых данных выделяется подстрока.
Пример: _ _ _ 2.42_ _ _
Процедура READLN
READLN ([f], x1[, x2, … xN]); обеспечивает ввод чисел, символов, строк
READLN (f, x); READLN (f, x1,x2,...,xN); READLN (f); READLN;
READ
Процедура WRITE
WRITE (<ф.п.>,<список_вывода>]); WRITE (<список_вывода>]);
WRITE ([f], x1[, x2, … xN]);
Пример: WRITE(f,x); WRITE(f,x1,x2,xN); WRITE(x1,x2,xN);
TEXT ASSIGN OUTPUT
Элемент списка вывода - X[:w[:d]]
X - имя переменной или выражение;
w, d - выражения целого типа WORD (0..65535);
w - если параметр w присутствует, указывает минимальную ширину поля
(по умолчанию w=23);
______

- количество десятичных знаков в дробной части.
Если d=0, выводится только целая часть числа
При выводе логических выражений
TRUE и FALSE
Ввод логических констант не предусмотрен.
Процедура WRITELN
WRITELN([f], x1[, x2, … xN]);
Пример: WRITELN (f, x); WRITELN(f,x1,x2,x3);
WRITELN (f); WRITELN;
________

чисел с клавиатуры}
REWRITE (Ft); {открыть файл для записи}
y:=x1+x2+x3;
WRITELN (Ft,'x1=',x1,' x2=',x2,' x3=',x3); {вывод в файл x1,x2,x3}
WRITELN (Ft,'сумма =',y); {вывод в файл суммы}
CLOSE (Ft); {закрыть файл}
END.
1 2 3 - вводим с клавиатуры
Результат:
X1=1 X2=2 X3 =3
Сумма=6
Пример2. Разработать программу, считывающую числовые данные из исходного файла и записывающего четные числа в один файл, нечетные – в другой. _____

f2, f3: text; {например, в другом окне }
a: array[1..10] of byte;
i: byte;
BEGIN clrscr;
ASSIGN(f1, 'date.txt');
ASSIGN(f2, 'res1.txt');
ASSIGN(f3, 'res2.txt');
RESET(f1);
for i:=1 to 10 do READ(f1, a[i]);
close(f1);
Rewrite(f3); writeln (f3, 'нечетные');
Rewrite(f2); writeln (f2, 'четные');
for i:=1 to 10 do
if ODD(a[i]) then write (f3, a[i]:4) {нечетные}
else write (f2, a[i]:4); {четные}
close(f2);
close(f3);
writeln('Просмотри файлы RES1.txt, RES2.txt ');
READKEY
END.

открывает уже существующий файл f для до записи в его конец (для расширения);
пр. Append(f) ;
EOLN(<ф.п.>) Функция возвращает значение TRUE, если во входном файле f достигнуты маркеры конца строки EOLN или конца файла EOF, и FALSE – в противном случае; пр.if EOLN(f)
SeekEOLN(<ф.п.>) Функция пропускает все пробелы и знаки табуляции до первого признака EOLN или первого значащего символа. Возвращает значение TRUE, если обнаружен маркер конца файла или конца строки. Если <ф.п.> опущена, функция проверяет стандартный файл INPUT;
пр. If SeekEOLN(f)
SeekEOF(<ф.п.>) Функция пропускает все пробелы, знаки табуляции и маркеры конца строк до маркера конца файла или первого значащего символа. Если маркер обнаружен, возвращает значение TRUE.
пр. If SeekEOF(f)
______

функции для работы с типизированными файлами
Процедуры и функции Выполняемые действия
READ(<ф.п.>, <список ввода>); Процедура обеспечивает чтение очередных компонентов файла;
WRITE(<ф.п.>,<список вывода>); Процедура используется для записи новых компонентов в файл, в качестве элементов вывода может быть выражение;
SEEK(<ф.п.>, <номер_компоненты>); Процедура смещает указатель файла к компоненте с указанным номером; <номер_компоненты> - выражение типа LONGINT. (К текстовым файлам применять нельзя);
FILESIZE(<ф.п.>); Функция возвращает количество компонент, содержащихся в файле. (Типа LongInt);
FILEPOS(<ф.п.>); Функция возвращает порядковый номер компоненты файла, доступной для чтения или записи;
CLOSE(<ф.п.>); Функция закрытия файла.
<ф.п.> - файловая переменная д.б. объявленная предложением FILE OF связана с именем файла процедурой ASSIGN
Открыть процедурой RESET для чтения, REWRITE для записи.
Переместить указатель в конец файла
Пр.: Seek (f, FileSize(f)); где f – файловая переменная
Пример. Сформировать файл (Files.dat) из символов. Вывести текст на экран
по 20 символов в строке (каждое предложение - с новой строки) ____

Begin
Assign(fs,'Files.dat');
writeln('Введи 0 для записи текста; 1 - для чтения'); READ(k);
IF k=0 then Begin
Rewrite(fs); {нельзя другим способом создать типизированный файл}
writeln('Введи текст');
While not EOF do {CTRL+Z}
Begin
READ(s); write (fs, s);
end;
close(fs); end
else Begin Reset(fs);
Repeat
READ(fs, s); write(s);
{if s='.' then write(#10#13) для предложения }
if FILePOS(fs) mod 20 =1 then write(#10#13); {по 20 симв }
Until EOF(fs);
close(fs); end
END. _