Program rrr;

varf : text;

x, k: integer;

Begin

Assign(f,’int1.dat’);

Reset(f);

While Not Eof(f) do {пока не достигнут конец файла}

Begin

k:=0;

While Not Eoln(f) do {пока не достигнут конец строки}

Begin

read(f,x); {считываем очередное число}

write(x,’ ‘); {выводим его на экран}

Inc(k); {увеличиваем счетчик}

End;

writeln(‘в строке’, k, ‘ элементов’);

Readln(f) {переходим к следующей строке файла}

End;

Close(f);

End.

Пример.Записать двумерный массив вещественных чисел 5х4 в тестовый файл.

Program mas;

constm=5; n=4;

Varfil : text;

a: real;

s: char;

i,j : integer;

Begin

Assign(fil,’massiv.txt’);

Rewrite(fil);

for i:=1 to m do

begin

for j:=1 to n do

begin

a:=random(100);

write(fil,a:5:3,’ ‘); {число записывается в файл в указанном формате, за ним пробел}

end;

writeln(fil); {переход в файле на новую строку}

end;

Close(fil);

{Чтение файла и вывод матрицы на экран по строкам}

Reset(fil); {открытие уже имеющегося файла}

while not Eof(fil) do

begin

while not Eoln(fil) do

begin

read(fil,a); {чтение числа}

write(a:5:3);

read(fil,s); { чтение пробела после числа}

write(s);

end;

writeln;

readln(fil);

end;

Close(fil);

End.

Пример.Дан текстовый файл f. Переписать в файл g все компоненты исходного файла f в обратном порядке.

Program tofile;

varf, g : text;

n, i, j : integer;

s : string;

x : array [1..32000] of char;

Begin

assign(f,’f.txt’); assign(g,’g.txt’);

rewrite(g); rewrite(f);

writeln(‘Введите число строк в создаваемом вами файле ‘);

readln(n);

writeln(‘вводите строки, после введения каждой нажмите Enter’);

for i:=1 to n do begin readln(s); write(f,s); end;

reset(f);

i:=0;

writeln(‘Исходный файл :’);

while(not eof(f)) and (i<32000) do

begin i:=i+1; read(f,x[i]); write(x[i]); end;

writeln;

writeln(‘Измененный файл :’);

for j:=i downto 1 do

begin write(g,x[j]); write(x[j]); end;

writeln;

close(f); close(g);

End.

Задача. Дан текстовый файл. Вставить в начало каждой строки ее номер и записать преобразованные строки в новый файл.

Задача. Даны два текстовых файла. Записать в третий файл только те строки, которые есть и в первом, и во втором файлах.