19 Вариант.

ASSIGN (<имя файла>,<имя файла на носителе>); – процедура устанавливает связь между именем файловой переменной и именем файла на носителе. Здесь <имя файла> – это файловая переменная, т.е. правильный идентификатор, объявленный в программе как переменная файлового типа. <Имя файла на носителе> – текстовое выражение, содержащее имя файла или имя логического устройства. Перед именем файла на носителе может ставиться путь к файлу – имя диска и (или) имя текущего каталога и имена каталогов вышестоящих уровней.

APPEND (<имя файла>); – процедура открывает существующий текстовый файл для добавления записей.

Var Note: Text;

Мах,К: Integer; С: Char;

Begin

Assign(Note,'Note.txt');

Reset(Note);

Max:=0;

While Not Eof(Note) Do

Begin

K:=0;

While Not Eoln(Note) Do

Begin

Read(Note,С); K:=K+1

End;

If K>Max Then Max:=K;

ReadLn(Note)

End;

WriteLn('Наибольшая строка имеет', Max,'знаков');

Close(Note)

End.

Процедура READ считывает строку из файла без перехода на следующую строку в переменную, а READLN – с переводом строки.

(< имя >, <пер1>[,<пер2>,.., <перN>]);

READLN (< имя >, <пер1>[,<пер2>,.., <перN >]);

EOLN(<имя файла>):Boolean; - функция обнаружения конца строки.

20 Вариант.

RESET(<имя файла>); – процедура открытия существующего файла для чтения при последовательном доступе и для чтения и записи при прямом доступе. Указатель файла при этом устанавливается на первую запись (с 0 номером).

REWRITE(<имя файла>); – процедура открытия создаваемого файла для записи. Если файл с таким именем уже существовал, то он стирается. Указатель файла устанавливается на первую запись.

строк в этом тексте.

Var Note: Text; к: Integer;

Begin Assign(Note,'Note.txt') ;

Reset(Note);

K:=0;

While Not Eof (Note) Do

Begin

ReadLn(Note); K:=K+1

End;

WriteLn('Количество строк равно',К);

Close(Note)

End.

EOF(<имя файла>):Boolean; – функция определения признака конца файла. Получает значение TRUE при чтении последней записи файла.

CLOSE(<имя файла>); – процедура закрытия файла. Обязательно должна использоваться после создания файла, иначе может произойти потеря данных.

21 Вариант.

SEEK(<имя файла>, <номер компоненты>); – процедура установки текущего указателя для чтения или записи требуемой компоненты файла. Используется для организации прямого доступа к записям файла.

Уничтожение части файла от текущего положения до конца производится процедурой TRUNCATE(МуFilе);

type R = record

A: Byte;

C: Array[1..6] of Char; end;

Var f: File; I: Byte; Rec: r; Result: Word;

begin

Assign(F, '1.txt'); { связываем файл с переменной}

{$I-}

Reset(F, 1);

{$I+}

if IOResult<>0 then Halt;

BlockRead(F, I, Sizeof(I), Result);

BlockRead(F, Rec, Sizeof(Rec), Result); Writeln(I);

Writeln('Rec values: '); Writeln('A: ', Rec.A); Writeln('S: ', Rec.C);

Readln; Close(F);

end.

BLOCKREAD(<имя файла>,<переменная>,<число компонент> [,<факт.число>]); – для чтения блока из файла.

BLOCKWRITE(<имя файла>,<переменная>,<число компонент> [,<факт.число>]); – для записи блока в файл.