Коллеги - педагогический журнал Казахстана
Наша библиотека
| Главная » Файлы » В помощь учителю » Информатика |
Файлы
| [ Скачать с сервера (51.0 Kb) ] | 2012-02-24, 1:50 PM |
| Тема урока: «Файлы» Цели урока: 1. Познавательная – познакомить учеников с понятием файлов данных, способами создания текстовых файлов, чтения из файла, использованием файлов. 2. Развивающая – учить анализировать и сравнивать, задавать вопросы. 3. Воспитательная – воспитывать аккуратность, внимательность, вежливость и дисциплинированность, бережное отношение к вычислительной технике. План урока 1. Актуализация опорных знаний · Что такое типы данных? · Какие типы данных вы знаете? · Для чего используются массивы? · Сохраняется ли информация в массиве после того, как программа завершила свою работу? · Как можно хранить информацию на дисках компьютера? 2. Изложение нового материала. · Что такое файл. Физический и логический файл. Физический Файл – это поименованная область на диске, содержащая какую-либо информацию. Логический файл – это одна из структур данных, используемых в программировании. · Описание текстовых файлов. РАБОТА С ТЕКСТОВЫМИ ФАЙЛАМИ var список имен файлов : text;Текстовый файл может состоять из любых символов (в том числе и цифр) Для работы с каким-либо физическим файлом (тем, который существует на диске) его необходимо связать с файловой переменной Assign (имя файла, ‘путь к файлу’); Например на диске есть файл D:\MyFile.dat . . . Var f : text; . . . Begin . . . Assign (f; ‘D:\MyFile.dat’ ); Или Var f : text; Name: string; . . . Begin . . . Name : = ‘D:\MyFile.dat ‘ ; Assign ( f, name); · Открытие файла для записи, чтения и дополнения информации. 1.Открытие 2.Чтение из файла или запись в файл 3.Закрытие RESET (название файла) – открытие файла для чтения из него информации в ОП REWRITE (название файла) – открытие файла для записи данных в файл APPEND (название файла) – открытие с целью дополнения данных CLOSE (название файла) – закрытие файла 3. Физкультминутка. 4. Примеры задач: Задача № 1 Пусть на диске (в текущем каталоге) есть файл myfile.dat, который состоит из некоторого числа целых чисел, разделенных пробелами. Написать программу, вычисляющую сумму этих элементов. Задача № 2 Написать программу, в которой в текстовый файл записываются данные про 10 учеников: имя, вес и рост. Перед созданием файла программа должна проверять наличие файла с таким именем на диске и спрашивать, что ей делать в случае обнаружения такого файла – прекратить работу или перезаписать файл. Program Zapfile; Uses Crt; var f : text; name : string [ 10 ] ; ves : real; ROST : real; Otvet : char; Begin Clrscr; Assign ( f, ‘ deti . txt ‘ ) ; { $ | - } { проверяем, существует ли такой файл } Reset ( f ) ; If IOResult = 0 then Begin writeln ( ‘ файл deti. txt существует. Заменить его? ( y /n ) ‘ ) ; Readln ( otvet ) ; if otvet = ‘ n ‘ then halt ; End; Else begin Close ( f ) ; Rewrite ( f ) ; For i : = 1 to 10 do Begin Writeln ( ‘ введите имя, вес и рост ‘ ); Readln ( name, ves, rost ); Writeln ( f, name : 10, ves : 4, rost : 5:2 ); End; End; Close ( f ); End. Задача № 3 Написать программу, которая считывает слова из одного текстового файла и записывает их в столбик в другой текстовый файл. Пояснение: слова разделяются символом пробел. Поэтому мы будем считывать символы из первого файла и «складывать» их в слово до тех пор, пока не встретиться пробел. Потом это слово запишем во второй файл и опять начнем формировать следующее слово. И так до тех пор, пока не достигнем конца первого файла. Program slovo; {Запись слов из файла f в столбик в файл h} uses Crt; var f,h:text; bukva:char; clovo:string; begin clrscr; assign(f,'f.pas'); assign(h,'h.pas'); reset(f); rewrite(h); clovo:=' '; while not eof(f) do begin read(f, bukva); if bukva<>' ' then begin clovo:=clovo+bukva; end else begin writeln(h,clovo); writeln(clovo); clovo:=' '; End ; end; readln; Close (f); Close (h); end. 5. Итоги урока. 6. Домашнее задание: Выучить конспект | |
| Просмотров: 1731 | Загрузок: 250 | | |
Суббота, 2025-07-26, 7:39 AM
Приветствую Вас Гость
Приветствую Вас Гость
Форма входа |
|---|
Категории раздела | |||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
Социальные закладк |
|---|
Поиск |
|---|
Друзья сайта |
|---|
Теги |
|---|
Статистика |
|---|