Решение задач на тему "Текстовые файлы" с использованием среды программирования Turbo Pascal

Цель урока: обобщение и систематизация знаний по теме: “Текстовые файлы” с помощью решения задач

Образовательная – повторить и обобщить знания по данной теме с помощью решения задач используя язык программирования Turbo Pascal.

Воспитательная – содействовать в ходе урока формированию внимательности, самостоятельности.

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

Тип урока: урок решения задач

1. Организационный этап (5 мин)
2. Вводно-мотивационный этап (15 мин)
3. Операционно-содержательный этап (45 мин)
4. Рефлексивно-оценочный этап (10 мин)
5. Домашнее задание (5 мин)

Оборудование: ПК, программное обеспечение

Здравствуйте, ребята, садитесь. Сегодня на уроке мы с вами будем решать задачи на тему “Текстовые файлы” используя язык программирования Turbo Pascal.

Опрос на тему: “Текстовые файлы”.

1. Что такое файл?
2. Для каких целей используются файлы?
3. Каковы требования к именам файлов?
4. Назовите основные процедуры текстовых файлов.

3. Операционно-содержательный этап

Начинаем решение задач.

(Все программы перед компиляцией следует сохранять!!!!!!)

1. Написать программу, которая создает текстовый фай, содержащий сведения о вашем друге (подруге): фамилия, имя, дата рождения.

Program primer;
Var f:text;
Fam,name,date:string;
Begin
Assign(f,’drug.txt’);
Rewrite(f);
Writeln(‘Введите фамилию’);
Readln(fam);
Writeln(f,fam);
Writeln(‘Введите имя’);
Readln(name);
Writeln(f,name);
Writeln(‘Введите дату рождения’);
Readln(date);
Writeln(f,date);
Close(f);
End.

2. (Предлагается решить самостоятельно. Решение аналогично) Написать программу, которая создает текстовый фай, содержащий информацию о книге: автор, название, год издания.

Program biblioteka;
Var f:text;
Avtor,nazvanie:string;
God:integer;
Begin
Assign(f,’biblioteka.txt’);
Rewrite(f);
Writeln(‘Введите автора книги’);
Readln(avtor);
Writeln(f,avtor);
Writeln(‘Введите название книги’);
Readln(nazvanie);
Writeln(f,nazvanie);
Writeln(‘Введите год издания’);
Readln(god);
Writeln(f,god);
Close(f);
End.

3. Открыть существующий файл drug.txt и дополнить его информацией о хобби своего друга (подруги).

Program primer2;
Var f:text;
Hob:srting;
Begin
Assign(f,’drug.txt’);
Append(f);
Writeln(‘Введите хобби’);
Readln(hob);
Writeln(f,hob);
Close(f);
End.

4. (Предлагается решить самостоятельно. Решение аналогично). Открыть существующий файл biblioteka.txt и дополнить его информацией о количестве страниц в книге.

Program Biblioteka2;
Var f:text;
str:srting;
Begin
Assign(f,’biblioteka.txt’);
Append(f);
Writeln(‘Введите количество страниц в книге’);
Readln(str);
Writeln(f,str);
Close(f);
End.

5. Создать текстовый файл chisla.dat, содержащий все четные двузначные числа.

Program primer3;
Var f:text;
I:integer;
Begin
Assign(f,’chisla.dat);
Rewrite(f);
For i:=10 to 99 do
If i mod 2=0 then writeln(f,i);
Close(f);
End.

6. (Предлагается решить самостоятельно. Решение аналогично). Создать текстовый файл proba.dat, содержащий все трехзначные числа, кратные 125.

Program probnik;
Var f:text;
I:integer;
Begin
Assign(f,’proba.dat);
Rewrite(f);
For i:=100 to 999 do
If i mod 125=0 then writeln(f,i);
Close(f);
End.

Рефлексивно-оценочный этап (10 мин). Проверка программ, выставление оценок за урок

Домашнее задание. Попов. Turbo Pascal для школьников. Стр 314 №11, №15.