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


Решение задач на тему "Текстовые файлы" с использованием среды
программирования Turbo Pascal
Цель урока: обобщение и систематизация знаний по теме: “Текстовые
файлы” с помощью решения задач
Задачи урока:
Образовательная повторить и обобщить знания по данной теме с
помощью решения задач используя язык программирования Turbo Pascal.
Воспитательная содействовать в ходе урока формированию
внимательности, самостоятельности.
Развивающая развитие логического мышления учащихся, умения решать
задачи по данной теме.
Тип урока: урок решения задач
Структура урока.
1. Организационный этап (5 мин)
2. Вводно-мотивационный этап (15 мин)
3. Операционно-содержательный этап (45 мин)
4. Рефлексивно-оценочный этап (10 мин)
5. Домашнее задание (5 мин)
Оборудование: ПК, программное обеспечение
Ход работы
1. Организационный этап.
Здравствуйте, ребята, садитесь. Сегодня на уроке мы с вами будем решать
задачи на тему “Текстовые файлы” используя язык программирования Turbo
Pascal.
2. Вводно-мотивационный этап (актуализация опорных знаний).
Опрос на тему: “Текстовые файлы”.
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.