ТЕМА №8: ФАЙЛЫ. ТИПИЗИРОВАННЫЕ ФАЙЛЫ. ТЕКСТОВЫЕ ФАЙЛЫ

ТЕМА №8: ФАЙЛЫ. ТИПИЗИРОВАННЫЕ ФАЙЛЫ. ТЕКСТОВЫЕ ФАЙЛЫ.

ПРОГРАММНО - ДИДАКТИЧЕСКОЕ ОБЕСПЕЧЕНИЕ: ЭВМ типа IBM. ТР5.

ЦЕЛИ И ЗАДАЧИ: Дать представление о файлах и средствах их обработки с помощью ТР5. Приобретение навыков составления программ с использованием файлов различного типа

ТРЕБОВАНИЯ К ЗНАНИЯМ И УМЕНИЯМ:

• 
  Что такое файл;
  
• 
  Какие бывают файлы;
  
• 
  Что такое файловая переменная;
  
• 
  Как описываются типизированные файлы;
  
• 
  Процедуры и функции работы с файлами;
  
• 
  Процедуры и функции работы с типизированными и текстовыми файлами;
  
• 
  Как описываются текстовые файлы.
  

• 
  Правильно описывать типизированные и текстовые файлы;
  
• 
  Правильно пользоваться файловой переменной;
  
• 
  Составлять программы с использованием типизированных и текстовых файлов;
  
• 
  Составлять простейшие программы с использованием процедур и функций работы с типизированными и текстовыми файлами.
  

ПЛАН-СОДЕРЖАНИЕ УРОКА

Мы все время рассматривали задачи, в которых данные поступают с клавиатуры, а результаты выводятся на экран. Ни исходные данные, ни результаты не сохраняются. А если данных слишком много? Как записать их на диск? Для этого необходимо исходные данные и результаты оформить в виде файлов, которые хранятся на диске.

Файл может быть компонентом другой структуры, но не должен входить в другой файл.

Отличие файла от массива: размещение на внешнем носителе, длина файла не задается, место элемента не определяется индексом.

Файлы бывают:

• 
  типизированные
  
• 
  нетипизированные
  
• 
  текстовые
  

Например:

Var F1: file of integer; F2: file of char; F3: text; F4: file;

Типизированными файлами называются файлы, в описании которых присутствует указание типа. Типизированные файлы – это файлы с прямым доступом к компонентам (записям).

Нетипизированный файл – это просто последовательность байтов, без конкретизации структуры.

Файл, компонентами которого являются данные символьного типа, называется текстовым. Отличие текстовых файлов от типизированных - наличие строковой структуры. В текстовые файлы можно записывать любую информацию, в том числе числа. При этом они (числа) автоматически преобразуются в строковые величины, а при считывании из файла – обратное преобразование в числа.

Тип файла	Описание файла
Типизированный	Var F1: file of integer; F2: file of char;
Нетипизированный	Var F3: file;
Текстовый	Var F: text;

Файл на техническом носителе определяется полным именем (<путь>\<собственно имя>.<расширение>). Для обозначения файла и работе с ним в программе используется файловая переменная.

1. 
   Ей нельзя присваивать какие-либо значения
   
2. 
   Она не может участвовать в логических операциях
   
3. 
   Она не может входить в математические выражения
   

При работе с файловыми переменными, используются специальные процедуры и функции:

• 
  Пример записи типизированных файлов:
  

assign(f, ‘file’); … rewrite(f); …write(f, v1,v2,…, vn); clos(f);

• 
  Пример считывания типизированных файлов:
  

assign(f, ‘file’); … reset(f); … read(f, v1,v2,…, vn); clos(f);

• Пример записи в текстовый файл:

var f:text; r,i:integer; rr:string;

begin

clrscr;

assign(f,'dddddd');

rewrite(f);

writeln(f,rr);

for i:=1 to 20 do begin

r:=random(10);

writeln(f,r); end;

close(f);

end._

• 
  Считывание из текстового файла (см программу выше):
  

var f:text; r,i:integer; rr:string;

begin

clrscr;

reset(f);

readln(f,rr);

writeln(rr);

for i:=1 to 20 do begin

readln(f,r);

writeln(r); end;

close(f);

end._

• 
  Написать программу, вычисляющую корни квадратного уравнения и вывести результаты в файл.
  

Var a,b,c,x1,x2, d: real; f:text;

Begin

Assign(f,’result.txt);

Readln(a,b,c);

D:=b*b-4*a*c;

If d>=0 then

Begin

X1:=-b+sqrt(d)/(2*a);

End;

Writeln(f,'a=',a:6:3,'b=', b:6:3,'c=',c:6:3);

If d<0 then writeln(f,’у урав-я нет корней’) else writeln(f, ‘корни: x1=’, x1:6:3,’x2=’, x2:6:3);

Close(f);

Writeln(‘рез-ты работы программы в файле result.txt’);

Repeat until keypressed; end.

• 
  На диске имеется файл с именем Karl.txt, в котором записана скороговорка:
  

Требуется подсчитать кол-во букв «К»

Uses crt;

Var f:text; s:integer; a:char;

Begin

Assign(f,’Karl.txt’); Reset(f);

While not eof(f) do Begin

While not eoln(f) do Begin

Read(f,a); If a=’k’ then s:=s+1;

End;

Readln(f);

Close(f); Writeln(s);

Repeat until keypressed; end.

• 
  Ввести текст в текстовый файл f1. Переписать файл f1 в f2 – первую половину файла в прямом, а вторую – в обратном порядке следования символов.
  

Var f1,f2:text; s,s1,sa,sb:string; a:char; n,y,i:integer;

Begin

Clrscr;

Rewrite(f1);

Readln(s); Writeln(f1,s); Close(f1);

Reset(f1); Rewrite(f2); Read(f1,s1);

N:=lenght(s1); Y:=n div 2; Writeln(y);

Sa:=’’; sb:=’’;

For i:=n downto y+1 do Sa:=sa+s1[i];

Writeln(sa);

For i:=1 to y do Sb:=sb+s1[i];

Writeln(sb);

S1:=sb+sa;

Writeln(s1); Write(f2,s1);