В программе на Турбо Паскале текстовый файл представлен файловой переменной типа Text: Var : Text; var f:text; a:string; b:char; Связь файловой переменной с дисковым именем файла осуществляется с помощью процедуры : Assign(, ) assign(f,'input.txt'); Открытие файла выполняется процедурами : Для чтения : Reset( ), Для записи : ReWrite( ), Для дозаписи : Append( ). reset(f); rewrite(f1); append(f2);

Окончание работы с файлом фиксируется с помощью процедуры Close( ), close(f); Файл должен заканчиваться признаком конца файла, для этого в Турбо Паскале есть специальная функция : Eof( ), которая возвращает значение True, если достигнут конец файла и False в противном случае. while Not Eof(f) do begin

Дан файл f, компонентами которого являются целые числа. Переписать все чётные числа в файл f1, нечётные в файл f2. program fall; var f,f1,f2:text;s:integer; begin assign(f,'input.txt'); assign(f1,'output.txt'); assign(f2,'tput.txt'); reset(f); rewrite(f1); rewrite(f2); while Not Eof(f) do begin readln(f,s); if s mod 2=0 then writeln(f1,s) else writeln(f2,s) end; close(f); close(f1); close(f2); end.

Даны два текстовых файла. Переписать информацию из первого во второй. program fall; var f,f1:text;s:char; begin assign(f,'input.txt'); assign(f1,'output.txt'); reset(f); { файл открывается для чтения } rewrite(f1); { файл открывается для записи } while Not Eof(f) do begin read(f,s); write(f1,s); end; close(f); close(f1); readln end.