Работа с файлами

Предмет: Информатика

Урок: 13

Класс: 9 б

Тема: работа с файлами

Цель урока: научиться решать задачи на файлы

Образовательные: Обучить основным приемам решении задач

Развивающие: развитие логического мышления, расширение кругозора

Воспитательные: развитие познавательного интереса, логического мышления

Оборудование : доска, компьютер,тетрадь.

План урока:

1. Организационный момент(1 мин)

2. Проверка и актуализация знаний(5мин)

3. Теоретическая часть (25мин)

4. Д\з (2 мин)

5. Вопросы учеников(5 мин)

6. Итог урока (2 мин)

Ход урока:

1. Орг. Момент.

Приветствие ,проверка присутствующих. Объяснение хода урока.

2. Проверка и актуализация знаний.

Вопросы: Ребята давайте вспомним: что такое структурное, модульное, объектно - ориентированное программирование, облачные технологии ? расскажите историю развития программирования

3. Теоретическая часть

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

assign(var F; name: string); - устанавливает соответствие между файлом и файловой переменной, открывает все другие процедуры работы с файлами. F - переменная любого файлового типа, name - полное имя файла.
close(var F); - окончание процедур работы с файлами (закрытие файла).
rewrite(var F: file); - создаёт и открывает новый файл.
reset(var F: file); - открывает существующий файл.
append(var F: text); - открывает существующий текстовый файл и позиционирует указатель обработки на конец файла.

После этого можно дополнять текстовый файл информацией, начиная с конца строки.

erase(var F); - удаляет неоткрытый внешний файл любого типа, задаваемый переменной F.
rename(var F: newname: string); - переименовывает неоткрытый файл F любого типа. Новое имя задаётся строкой newname.

Текстовый файл можно рассматривать как последовательность символов, разбитую на строки длиной от 0 до 256 символов. Для описания используется стандартный тип text: var F: text; (F - файловая переменная).
Стандартные типы данных не требуют описания в разделе type в отличие от типов, образованных пользователем. Формат раздела:

type <имя типа> = <значение типа>;
Имя и значение типа даёт пользователь.

Пример: type fil=text;

Рассмотрим работу с файлами в TP на примерах.

Пример 1. Запись текстового файла на диск и ввод в него текста.

program wtf;
type fil=text;
var f1:fil; name:string[35]; txt:string;
begin
write('Введите имя файла для записи текста>');
readln(name);
writeln;
assign(f1,name);
rewrite(f1);
writeln('Введите текст для записи (для окончания-Enter):');
writeln;
repeat
write(':>');
readln(txt);
writeln(f1,txt);
until txt='';
close(f1);
writeln;
writeln('Ввод окончен, нажмите Enter.');
readln;
end.

Пример 2. Запись результата вычисления в текстовый файл.

program wtf1;
uses crt;
type fil=text;
var f1:fil; name:string[35]; txt:string;
var i,n:real;s,q:real;
begin
clrscr;
writeln('Для вычисления суммы ряда S=1+1/4+1/9+...+1/n2,');
write('введите n=1,2,3...: n=');
read(n);
i:=1;
S:=1;
while i<>n do
begin
i:=i+1;
s:=s+1/(i*i);
end;
writeln('Сумма членов ряда равна S=',s);
name:='rezult.txt';
txt:='Сумма ряда S=1+1/4+1/9+...+1/n2 равна: S=';
writeln;
assign(f1,name);
rewrite(f1);
writeln(f1,txt,s,' при n=',n:9:0);
close(f1);
writeln('Ваш результат будет записан в файл rezult.txt');
writeln('Для выхода из программы нажмите Enter.');
readkey;
end.

Пример 3. Чтение последовательности длиной до 35 символов из текстового файла example.txt (его содержимое, например, "23456 Всем привет!"

Функция Eoln(var F: text) возвращает булевское значение True, если текущая файловая позиция находится на маркере конца строки или вызов Eof(F) возвратил значение True. Во всех других случаях значение функции будет False.

Функция Eof(var F: text) возвращает булевское значение True, если указатель конца файла находится сразу за последним компонентом. В противном случае - False.

program wtf2;
var F: text; St: string[35];
begin
assign(F, 'example.txt'); {Файл example.txt должен существовать!}
reset(F);
while not Eoln(F) do

begin {Проверка конца строки}
read(F,St);
writeln('St = ',St); {Вывод на экран}
end;
readln(F); {Переход к следующей строке}
close(F);
writeln('Вывод символов из файла окончен. Для выхода - Enter.');
readln;
end.

4.Домашнее задание: Учить по конспекту.

5.Вопросы учеников: ответы на вопросы учащихся.

6. Итог урока: подведение итога урока. Выставление оценок

\