sotrud.ru 1

Тема: Текстовые файлы.

Цель: Дать определение файла. Показать классификацию файлов в среде TP, познакомить с форматом описания файлов в программе; познакомить с процедурами и функциями, предназначенными для работы с текстовыми файлами; учить программировать с использованием файлов; развивать логическое мышление; воспитывать культуру информационного общения.

Оборудование: ПЭВМ

Ход урока


  1. Организационное начало

Приветствие. Работа с дежурными.

  1. Повторительно-обучающая работа.

Самостоятельная работа:

Вариант 1.

  1. Что такое строковый тип данных?

  2. Какая команда позволяет скопировать фрагмент строки? Как она записывается в программе?

  3. Определите, что будет напечатано, после выполнения фрагмента программы:

Program stroke;

Var s, s1, s2, s3:string;

Begin

S:=’корова’;

S1:=copy(s, 1, 3);

S2:=copy(s,4,3);

S3:=s2+s1;

Writeln(s3);

End.

Вариант 2

  1. Как описать величину строкового типа в программе?

  2. Какая команда позволяет удалить фрагмент строки? Как она записывается в программе?

  3. Определите, что будет записано, после выполнения программы:

Program stroke;

Var s1:string;

n :integer;

Begin

S1:=’корова’;

n:=length(s1);

if n mod 2 = 0 then Writeln(‘четное количество букв’) else Writeln(‘нечетное количество букв’);

End.

Подведение итогов этапа.

  1. Работа по осмыслению и усвоению нового материала.

а) объявление темы и цели урока

Тема нашего урока «Файлы. Процедуры и функции для работы с файлами». Сегодня мы дадим определение файла, познакомимся с видами файлов, поговорим о процедурах и функциях для работы с файлами, будем учиться программировать с использованием типизированных и текстовых файлов.


б) изложение нового материала

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

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

Файл, не содержащий ни одного элемента, называется пустым. В конце файла ставится признак конца файла (eof).

Классификацию файлов::


Текстовые файлы предназначены для хранения текстовой информации. Текстовый файл трактуется в Турбо Паскале как совокупность строк переменной длины. Доступ к каждой строке возможен лишь последовательно, начиная с первой.

Описание текстового файла в программе:

Var

<имя файловой переменной>: Text;

Например:

Var

F :text;

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

Действия с файлами производятся поэлементно, причем в них участвует тот элемент, на который «смотрит» текущий указатель, перемещающийся в результате выполнения действия на следующий элемент

Процедуры и функции для работы с текстовыми файлами

1. Процедура
ASSIGN. Для установления связи между файловой переменной и именем файла в компьютере.

Формат вызова процедуры в программе:

Assign (<имя файловой переменной>, '<имя внешнего файла>');

Например: Assign (а, '1.txt');

2. Процедура RESET. Данная процедура открывает существующий файл, который был связан с файловой переменной.

Формат вызова процедуры в программе:


reset (<имя файловой переменной>);

Например: reset (f);

3. Процедура REWRITE. Создает новый файл, имя которого связано с файловой переменной. Если такой файл уже существует, то он удаляется, и на его месте создается новый пустой файл.

Формат вызова процедуры в программе:

Rewrite (<имя файловой переменной >);

Например: Rewrite (f);

4. Процедура CLOSE. После завершения работы с файлом положено осуществлять закрытие файла. Формат вызова процедуры в программе:

Close (<имя файловой переменной>);

Например: Close (f);

5. Для считывания информации из файла используется процедура:

Readln (<имя файловой переменной>, <имя элемента считываемого>).

Например: Readln (f, a).

6. Для записи элемента или набора элементов в файл используется процедура:

Writeln(<имя файловой переменной>, <имя элемента записываемого>).

Например: Writeln(f,a)


  1. Работа по выработке практических навыков и умений.

Фронтальный разбор задания у доски:

1). Создать текстовый файл и записать в него слово «Привет».

program nnn;

var

f: text;

a: string;

begin

readln(a);

assign(f, ‘lkl.doc’);

rewrite(f);

write(f, a);

close(f);

reset(f);

read(f, a);

writeln(a);

close(f);

end.

2). Создать текстовый файл и записать в него пять одинаковых предложений. Записываемая строка вводится с клавиатуры.

Program bbb;

f:text;

i: integer;

a:string;

begin

assign(f,’sss.txt’); rewrite(f);

for i:=1 to 5 do begin


readln(a); writeln(f,a);

end; close (f);

end.


  1. Итог урока

Фронтальный опрос:

- Что такое файл?

- Какие виды файлов Вам известны?

- Какой файл называют текстовым?

- Как описать файл в программе?

6. Задавание на дом

Повторить:

- Одномерные массивы.

- Двумерные массивы.

- Строковый тип данных.

- Просмотреть все решенные ранее задачи.

Вариант 1.

  1. Что такое строковый тип данных?

  2. Какая команда позволяет скопировать фрагмент строки? Как она записывается в программе?

  3. Определите, что будет напечатано, после выполнения фрагмента программы:

Program stroke;

Var s, s1, s2, s3:string;

Begin

S:=’корова’;

S1:=copy(s, 1, 3);

S2:=copy(s,4,3);

S3:=s2+s1;

Writeln(s3);

End.


Вариант 2

  1. Как описать величину строкового типа в программе?

  2. Какая команда позволяет удалить фрагмент строки? Как она записывается в программе?

  3. Определите, что будет записано, после выполнения программы:

Program stroke;

Var s1:string;

n :integer;

Begin

S1:=’корова’;

n:=length(s1);

if n mod 2 = 0 then Writeln(‘четное количество букв’) else Writeln(‘нечетное количество букв’);

End.


Вариант 1.

  1. Что такое строковый тип данных?

  2. Какая команда позволяет скопировать фрагмент строки? Как она записывается в программе?

  3. Определите, что будет напечатано, после выполнения фрагмента программы:

Program stroke;

Var s, s1, s2, s3:string;


Begin

S:=’корова’;

S1:=copy(s, 1, 3);

S2:=copy(s,4,3);

S3:=s2+s1;

Writeln(s3);

End.


Вариант 2


  1. Как описать величину строкового типа в программе?

  2. Какая команда позволяет удалить фрагмент строки? Как она записывается в программе?

  3. Определите, что будет записано, после выполнения программы:

Program stroke;

Var s1:string;

n :integer;

Begin

S1:=’корова’;

n:=length(s1);

if n mod 2 = 0 then Writeln(‘четное количество букв’) else Writeln(‘нечетное количество букв’);

End.