Физический и логический файлы

Файлы

While not eof(f) do

//Пока не достигнут конец файла

begin

//Выполнять, любые действия,

//например, читать из файла

end;

Для дописывания данных в уже имеющейся текстовый файл его нужно открыть с помощью процедуры Append:

Append (файловая_переменная);

После вызова этой процедуры файл становится доступным только для записи, а файловый указатель устанавливается в конец файла. Все строки сохраняются, а новые будут дописываться после имеющегося текста.

Чтобы закрыть файл используют процедуру close.

Пример. Создайте текстовы файл f1.txt, содержайий набор строк.

В файле f1.txt заменить все точки тремя точками. Измененные строки записать в файл g1.txt

1 program stroka_file;

2 {$APPTYPE CONSOLE}

3 uses SysUtils;

4 var s:shortstring;

5 f,g:text;

6 i,k:integer;

7 begin

8 assign(f,'f1.txt');

9 reset(f);

10 assign(g,'g1.txt');

11 rewrite(g);

12 while not eof(f) do

13 begin

14 readln(f,s);

15 For i:=1 to length(s) do

16 if s[i]='.' then s[i]:=#0;

17 while pos(#0,s)<>0 do

18 begin

19 k:= pos(#0,s);

20 delete(s,k,1);

21 insert('...',S,k)

22 end;

23 writeln(g,s);

24 end;

25 close(f);

26 close(g);

27 writeln('End ');

28 readln

29 end.

Пример 2. Дан текстовый файл tablica.txt, в котором находятся xn=-5, xk=5, dx=0.5

Протабулировать фукцию y:= exp(x)/x

program Project1;

{$APPTYPE CONSOLE}

Uses SysUtils;

var xn,xk,dx,x,y:real;

f:text;

begin

{Связывание логического файла f с физическим 'tablica.txt'}

assign(f, 'tablica.txt');

//Открытие файла для чтения

reset(f);

//Чтение строки из файла

readln(f, xn, xk, dx);

{Вывод прочитанных переменных на консоль}

writeln('xn=', xn:4:1, ' xk=', xk:4:1, ' dx=', dx:4:1);

//Открытие текстового файла для дозаписи

//Указатель файла установлен на конец

append(f);

x:=xn;

repeat

if x<>0 then

begin

y:= exp(x)/x;

//вывод сроки в файл

writeln(f, x:4:1, y:8:1);

//Вывод сроки на консоль

writeln(x:4:1, y:8:1);

end

else

begin

//вывод строки на консоль

writeln('Vtochke x=', x:4:1, ' net resheniya');

//вывод строки в файл

writeln(f, 'Vtochke x=', x:4:1, ' net resheniya');

end;

x:=x+dx

until x>xk;

//Закрытие файла

close(f);

writeln('Press Enter');

readln; end.

Файловая система, реализованная в ОР состоит из двух уровней: логических файлов и физических файлов.

Файл – это поименованная область памяти на диске или другом внешнем носителе информации, содержащая произвольные данные. Файл в таком понимании называют физическим.

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

Буфером называется область памяти, предназначенная для временного храннения данных во время их передачи от источника информации к приемнику информации.

При записи в файл вся информация сначала направляется в буфер и там накапливается до тех пор, пока весь объем буфера не будет заполнен. Только после этого или после специальной команды сбрасывания буфера происходит передача данных по назначению: на диск, в порт. При чтении из файла считывается столько информации, сколько поместится в буфер.

Определяется физический файл строкой с его названием (именем). Имя файла на диске может иметь адресную часть, оформленную соответственно правилам операционной системы.

Структура физического файла представляет собой простую последовательность байт памяти носителя информации.

Файл – это одна из многих структур данных, которая используется в программировании. Файл в таком понимании называют логическим файлом.

Структура логического файла – это способ восприятия файла в памяти, т.е. это «шаблон», сквозь который мы смотрим на физическую структуру файла.

Файл как логический объект является последовательностью значений определенного типа.

Файл – это структурированный тип данных.