Тема «Файловый тип данных» (урок 9 класс, информатика)

11.10.16 Глава «Алгоритмизация и моделирование» Тема урока: «Файловый тип данных»

Физический  файл  Логический файл  Байт Байт Байт . . . Байт Байт Байт File of integer   Целое со знаком Целое со знаком . . . Целое со знаком EOF

1) text означает текстовый файл.    Пример:   var tekst: text;    2) под file of тип подразумевается типизированный  файл,    Пример:   var fail: file of char;    3) file означает нетипизированный файл. Пример:    var failik: file;

VAR < имя > = File of < тип (INTEGER, REAL) >;  { типизированный файл } < имя > = File of < тип (TEXT) >;  { текстовый файл }. var f1, f2; file of integer;  ­Типизированный var f1, f2; Text;  ­Текстовый

Общий вид: Assign(<имя переменной­файла>,‘<полное  имя внешнего файла>’); Например, Assign(f1, ‘a:input.txt’)

Процедура RESET(f) открывает существующий  физический файл, который был связан с  файловой переменной f Процедура REWRITE(f) создает новый  физический файл, имя которого связано с  файловой переменной f. Есть возможность и  дописать в конец этого файла, если внешний  файл с данным именем не существует, то  происходит ошибка ввода/вывода Закрытие – процедурой CLOSE(f) Пока файл не закрыт, данные в нем не сохраняются!

Чтение из файла выполняется  READ(<имя переменной­файла>,<элемент>).  А запись процедурой  WRITE(<имя переменной­ файла>,<элемент>).

Общая схема чтения из файла: reset (f1);  ...  read (f1, <имя переменной>); ...  close (f1);  Общая схема записи в файл: rewrite (f2);  ...  write (f2, <имя переменной>); ...  close (f2);

Program in_out; {Для ввода и вывода данных из файлов введены  переменные file_in и file_out типа text} var file_in, file_out: text; yl,y2,y,file1, file2: string; xl,x2,x3: integer; d:real; begin file1:= 'input.txt'; file2:= 'output.txt’; {Файловым переменным file_in и file_out ставятся в  соответствие обозначения входного и выходного файлов из  переменных file1 и file2} assign(file_in, file1); assign(file_out, file2);

{Существующий входной файл открывается. Указатель  строк ставится на первую строку} reset(file_in); {Ввод текстовых строк из входного файла file__in} readln(file_in,xl,x2,x3); readln(file_in,yl); readln(file_in,y2); {Входной файл закрывается} close(file_in); {Открывается файл, соответствующий переменной file_out  типа text} rewrite(file_out); d:=(xl+x2+x3)/3; y:=yl+y2; {запись значений переменных d,y в файл file_out} Writeln(file_out, d); writeln(file_out, y);

{Закрытие выходного файла} close(file_out); end.