Разработка урока по информатике в 10 классе «Текстовые файлы. Процедуры чтения и записи»

Конспект урока по информатике в 11 классе ТЕКСТОВЫЕ ФАЙЛЫ. ПРОЦЕДУРЫ ЧТЕНИЯ И ЗАПИСИ Учебник: Информатика и ИКТ 11 класс И.Г. Семакин и др., 2012 г.  Тема урока: «Текстовые файлы. Процедуры чтения и записи» Тип урока: урок закрепления материала Цели урока:  Образовательные:   повторить   особенности   текстовых   файлов   и процедуры работы с текстовыми файлами; поупражняться в решении задач   в   среде  Pascal  ABC,   для   решения   которых   применяются процедуры   чтения   данных   из   текстового   файла   и   записи   данных   в текстовый файл.  Развивающие: обеспечить условия для овладения учащимися навыком работы с текстовыми файлами в среде Pascal ABC.  Воспитательные:   способствовать   формированию   научного мировоззрения на примере изучения текстовых файлов. Оборудование: ММК, презентация, 4 карточки с заданиями. Распределение урока во времени: Содержание 1. Организационный момент. 2. Закрепление теоретического материала 3. Решение задач 4. Задание на дом 5.  Итог, выставление оценок Время 2 мин. 15 мин. 25 мин. 1 мин. 2 мин. Ход урока Деятельность учителя Деятельность учащихся 1. Организационный момент. 2. Закрепление материала На   прошлых   занятиях   мы   с   вами познакомились   с   текстовыми   файлами, выяснили, какие существуют процедуры при с       файлами, работе поупражнялись   в   решении   задач   с текстовыми текстовыми   файлами.   Сейчас   в   качестве   как   вы   усвоили   материал, проверки, некоторые из вас получать получат карточки с   заданиями,   с   остальными   ребятами   мы поработаем устно. Карточки с заданиями: 1. Установите   соответствие   между процедурами   и   выполняемыми   ими операциями над файлами: Процедуры 1. Close (<Имя ФП>)  2. Append (<Имя ФП>)   3. ReWrite (<Имя ФП>)  4. Assign (<Имя ФП>, 'Путь и имя  файла') 5. ReSet (<Имя ФП>)  6. Read (F, N)  и    ReadLn (F, N)                7. Write (F, N)  и   WriteLn (F, N)               Операции над файлами a) Создать или перезаписать b) Считать из файла c) Cохранить и закрыть файл d) Записать в файл e) Создать (открыть) и дописать в конец  файла f) Установить связь между ФП и файлом g) Открыть для чтения 2. Дана   программа,  которая   выводит на   экран   текст,   содержащийся   в   файле dan.txt.   Строки   кода   перепутаны. Восстановите   исходный   порядок   кода.   В ответе   запишите   только   номера   строк восстановленной   программы,   например: 1. Ответ: 1­c, 2­e, 3­a, 4­f,5­g, 6­b,7­d 2. Ответ: 4,10,1,6,11,9,5,8.3,7,2,12 нетипизированные,   1. Текстовые, типизированные. 2. Текстовый   файл   представляет 4,1,9… Программа:  1. Begin 2. Close (F);  3. WriteLn (S); 4. Var  F: Text; 5. Begin 6. Assign (F, 'С:\PABCWork\dan.txt'); 7. End;  8. ReadLn (F, S);  9. While not EОF (F) do  10. S: String; 11. Reset (F);  12. End.  Устный опрос: (слайд 2) собой   последовательность   символов, разделенных на строки 3. Текстовые   файлы   имеют   признак конца строки 4. Файлы последовательного доступа   5. ФП   является   посредником   между программой и файлом  6. Столько,   файлов сколько     одновременно использовать в программе  7.  Assign предполагается 1. Какие виды файлов вы знаете? 8. Reset ­ открывает файл для чтения 2. Какие файлы называется текстовыми? 3.   В   чем   особенность   текстовых   видов файлов? 4.   Какими   текстовые   файлы   являются   по методу доступа?  5. Для чего предназначена ФП?  6. Сколько   ФП   следует   объявлять   в программе? 7. Какая процедура устанавливает связь ФП с файлом?   8.   Какие   существуют   процедуры   для файла? открытия текстового     с   его   начала,   Rewrite   ­   открывает файл   для   записи,   Append   ­   создает или открывает и дописывает  в конец файла. 9.  Read и ReadLn 10. Read(<элемент>)   ­ ввод элемента с   клавиатуры; элемент>)   ­  Read(<имя     ФП,  чтение   элемента   из файла; ReadLn(<имя  ФП, элемент>) ­ чтение элемента из файла + переход на следующую строку 11.  Write и WriteLn 12. Write(<элемент>)         ­  вывод элемента на экран;  Write(<имя   ФП, элемент>) ­ запись элемента в файл;  WriteLn(<имя  ФП, элемент>) ­ запись элемента   в   файл   +   переход   на Охарактеризуйте каждую из них. следующую строку  13.  определение   конца файла,  EOLN   ­  определение   конца EOF   ­ строки 14. часть информации,   которая   не   успела потерять можно     записаться на жесткий диск Отвечают устно 1. Записывает   10   чисел   в   файл, числа вводятся с клавиатуры  2. Находит   сумму   элементов   в файле 9.   С   помощью   каких   процедур осуществляется чтение данных из файла?  10 . Объясните разницу между следующими процедурами:   Read(<элемент>)       и         Read(<имя   ФП, элемент>);   Read(<имя  ФП, элемент>) и ReadLn(<имя ФП, элемент>) 11.   С   помощью   каких   процедур осуществляется   запись   данных   в   файл?  (слайд 3) 12.   Объясните   разницу   между   следующими процедурами:   Write(<элемент>)    и     Write(<имя  ФП, элемент>);   Write(<имя   WriteLn(<имя  ФП, элемент>)    элемент>)     ФП,   и 13. Какая функция служит для определения конца файла, конца строки? 14. Что может произойти, если  после работы с файлом, его не закрыть? Задание:  Рассказать,   что   делает   и   как работают программы 1. Program I;    (слайд 4) Var A, I: Integer;            F:  Text;     Begin Assign (F, 'data.txt'); ReWrite(F);         For I:=1 to 10 Do Begin                                      Read(A);                                      Write(F, A)                                      End; Close(F); End.  2. Program II;    (слайд 5) Var A, S, I: Integer;               F:  Text; Begin Assign(F, 'primer.txt '); Reset(F);    S:=0;      While not Eof(F) Do Begin                                        Read (F, A);                                        S:=S+A;                                        End; Close(F); WriteLn('Cумма= ', S); End. var f,f1,f2:text;             s:integer; begin assign(f,'input.txt'); assign(f1,'output1.txt'); assign(f2,'output2.txt'); reset(f);    rewrite(f1); rewrite(f2); while  Not Eof(f) do   begin Read(f,s); if s mod 2=0 then write(f1,s) else write(f2,s) 3. Решение задач 1. Написать программы: (слайд 6) 1.   Дан   файл   f,   компонентами   которого являются целые числа (создать при помощи текстового   редактора).   Переписать   все чётные числа в файл f1, нечётные в файл f2. 2.   Имеются   два   файла   с   числами   (создать при   помощи   текстового   редактора). Поменять   местами   их   содержимое (использовать вспомогательный файл). end; close(f); close(f1); close(f2); readln; end. 2. var f1,f2,f3:text;                s:integer; begin assign(f1,'A.txt'); assign(f2, 'B.txt'); assign(f3, 'C.txt'); reset(f1);    rewrite(f3); while  Not Eof(f1) do  begin readln(f1,s); writeln(f3,s)   end; close(f1); close(f3); rewrite(f1); reset(f2); while  Not Eof(f2) do  begin                            read(f2,s);                            write(f1,s)                            end; close(f1); close(f2); rewrite(f2); reset(f3); while  Not Eof(f3) do  begin                             readln(f3,s); writeln(f2,s);                             end; close(f2); close(f3); readln; end. 4. Задание на дом Повторить записи в тетради 5. Итог, выставление оценок