Reset(Note);

Begin

End.

Close(Note)

End;

Begin

While Not Eof (Note) Do

K:=0;

Reset(Note);

END.

CLOSE(F2);

CLOSE(F1);

END;

WRITELN(F2,POLE)

END;

BEGIN

READLN(F1,POLE);

BEGIN

WHILE NOT EOF(F1) DO

RESET(F1); REWRITE(F2);

ASSIGN(F2,NAME);

READLN(NAME);

ASSIGN(F1,NAME);

READLN(NAME);

BEGIN

WRITE(‘ВВОД ИМЕНИ ВХОДНОГО ФАЙЛА:’);

WRITE(‘ВВОД ИМЕНИ ВЫХОДНОГО ФАЙЛА:’);

WHILE POS(‘DC-101’, POLE) <> 0 DO

PZ:= POS(‘DC-101’, POLE);

DELETE(POLE,PZ+3,1);

INSERT(‘2’,POLE,PZ+3);

Здесь читаются последовательно строки из входного файла и в каждой строке в номере группы заменяется символ 1 на 2. Скорректированные строки выводятся в новый файл.

Пример 5. Пусть файл с именем Note. txt содержит некоторый текст. Требуется подсчитать количество строк в этом тексте.

Var Note: Text; К: Integer;

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

ReadLn(Note); K:=K+1

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

Используемый здесь оператор ReadLn (Note) «пролистывает» строки из текстового файла Note, не занося их в какую-либо переменную.

Пример 6. В текстовом файле Note. txt определить длину самой большой строки.

Var Note: Text;

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

Assign(Note,'Note.txt');

Max:=0;

Дата добавления: 2013-12-13