Обработка последовательных файлов в программе
Кузнецова В. С., преподаватель информатики,
МОУ межшкольный учебный комбинат №2, г. Хабаровск
Одним из трудных для учащихся и преподавателей разделов программирования является программирование обработки файлов. В Хабаровском межшкольном учебном комбинате №2 накоплен определенный опыт по обучению школьников приемам программирования, в том числе, при работе с файлами. Предлагаем вниманию читателей материал на эту тему, подготовленный В.С. Кузнецовой.
В разделе алгоритмизация и программирование мы работаем в основном с простыми типами данных и только одним из сложных (структурных) типов данных – массивами, при этом опускается работа с файлами данных. Это связано с тем, что в учебном плане мало учебных часов отводится на данный раздел. Несмотря на нехватку времени, желательно в конце раздела рассмотреть тему "Обработка последовательных файлов в программе". Учащиеся уже должны знать, что такое файл. Поэтому занятие необходимо начать с восстановления опорных знаний:
Что такое файл?
Какими способами можно создать файл?
Каким способом вводили данные в программу?
Каким способом выводили данные из программы?
Какие операторы при этом использовали?
К данным, записанным на диске можно обратиться прямым методом доступа или последовательным методом доступа. При последовательном доступе данные должны читаться из файла в том порядке, в каком они были записаны. Прямой доступ к файлу позволяет читать и обновлять записи независимо от их положения в файле, без перебора.
Последовательные файлы следует рассматривать как альтернативу экрана и клавиатуры. Все, что выводилось на экран, в таком виде и по таким же правилам выводится в последовательный файл, а все, что вводилось с клавиатуры, вводится из последовательного файла.
Пусть данные записаны на диске в файле File1.dat. Как к ним обратиться из программы? Для этого необходимо в программе предусмотреть:
Связь имени файла с каналом ввода – вывода и объявить его открытым.
Объявить способ доступа к файлу (последовательный или прямой).
Переслать данные.
Закрыть канал ввода – вывода, связанный с файлом.
Рассмотрим операторы, с помощью которых осуществляется эта работа на языках программирования Бейсик и Паскаль.
На языке программирования Бейсик.
Оператор OPEN "открывает" файл, т.е. делает файл на диске известным программе, связывает имя файла на диске с номером канала ввода – вывода в программе и указывает режим работы с файлом.
Формат:
Open "имя файла" [for режим] as # номер канала [len=размер записи]
Режимы для последовательных файлов:
INPUT - для чтения
OUTPUT - для записи
APPEND - для добавления данных в файл.
Пример:
Open "File1.dat" for input as #1
Оператор PRINT # предназначен для вывода данных в файл.
Формат: PRINT #номер канала, имя переменной
Пример:
Print #1, fam$(i), sum(i)
Оператор INPUT # предназначен для ввода переменных из файла (так же как это делает оператор INPUT при их вводе с клавиатуры).
Формат: INPUT #номер канала, список переменных
Пример:
Input #1, fam$(i), kol(i)
Функция EOF позволяет определить конец файла.
Формат: EOF(номер канала)
Оператор CLOSE # "закрывает" файл, т.е. отсоединяет его от программы и освобождает в ней канал ввода - вывода.
Формат: CLOSE #номер канала
Задача: Рассчитать зарплату на каждого члена бригады и записать в файл File2.dat данные фамилию члена бригады и его зарплату с учетом подоходного налога. Данные по каждому члену бригады (фамилия и количество сделанных изделий) содержатся в файле File1.dat. Примечание: количество членов бригады, стоимость изделия и процент на зарплату от прибыли ввести с клавиатуры.
Input " количество членов бригады ";n
Input " стоимость изделия";r
Input " процент на зарплату от прибыли ";p
p = p/100
Dim fam(n), kol(n), sum(n)
Open "File1.dat" for input as #1
for i = 1 to n
Input #1, fam$(i), kol(i)
sum(i) = kol(i)*r*p*0.13
next i
Close #1
Open "File2.dat" for output as #1
for i = 1 to n
Print #1, fam$(i), sum(i)
next i :Close #1
На языке программирования Паскаль.
В Турбо Паскале различают текстовые файлы, типизированные файлы и нетипизированные файлы. При работе с файлами ключевым понятием является понятие переменной файлового типа или файловой переменной и описывается она в разделе переменных в зависимости от класса файла. Для текстовых файлов файловая переменная принадлежит стандартному типу Text. Файловая переменная (ф.п.) связывается с именем файла с помощью оператора ASSIGN.
Формат:
Assign (<ф.п.>,'<путь к файлу> <имя файла>');
Он должен быть первым среди операторов, работающих с файлом. Прежде, чем начать работать с файлом его нужно "открыть". Оператор RESET открывает уже существующий файл, а оператор REWRITE открывает
Форматы:
Reset (<ф.п.>);
Rewrite (< ф.п.>);
Для чтения данных из файла используются процедуры READLN, READ, BLOCKREAD.
Формат:
Readln (< ф.п.>, <переменная>);
Для записи данных в файл используются процедуры WRITELN, WRITE, BLOCKWRITE.
Формат:
Writeln (< ф.п.>, <переменная>);
После завершения работы с файлом , его необходимо "закрыть" оператором Close.
Формат: Close (< ф.п.>);
Уничтожить ненужный файл оператором Erase (< ф.п.>), а переименовать файл – оператором Rename (< ф.п.>,<строка>), где строка представляет новое имя файла.
Текстовый файл трактуется в Турбо Паскале как совокупность строк переменной длины. Доступ к каждой строке последовательный, начиная с первой. В конце каждой строки ставится маркер EOLN (End Of Line - конец строки) , а в конце всего файла маркер EOF (End Of File – конец файла).
Рассмотрим работу с файлами на примерах.
Пример 1.
На диске а: записан файл posl.txt, в каждой строке которого записана пословица. Определить сколько букв в каждой пословице и вывести результат вычисления на экран.
program texst;
var f: text; {* файловая переменная *}
s: integer; {* число букв *}
sim: char; {* символ *}
begin
Assign (f, 'a:posl.txt');
reset (f); {* открытие файла *}
while not eof (f) do {* проверка конца файла *}
begin
s:=0;
while not eoln (f) do {* проверка конца строки *}
begin
read(f, sim);
if (sim<>' ') or (sim<>',') then s:=s+1;
end;
writeln('число букв в пословице ',s);
readln(f); {* переход на новую строку *}
end;
Close(f) {**}
end.
Пример 2.
В существующем файле dan1.dat записана матрица из целых чисел. В новый файл dan2.dat переписать данную матрицу и добавить в каждую строку слово "сумма=" и результат вычисления суммы чисел в данной строке.
Program matrica;
var f1,f2: text;
x, s: integer;
begin
Assign (f1, 'dan1.dat');
Reset (f1); {* открытие файла для чтения *}
Assign (f2, 'dan2.dat');
Rewrite (f2); {* открытие файла для записи *}
While not eof (f1) do
begin
s:=0;
While not eoln (f1) do
begin
Read(f1,x);
Write(f2,x);
s:= s + x;
end;
Writeln (f2,' ',' сумма=',s);
Readln(f1);
end;
close(f1); close(f2);
Writeln ('Работа завершена, файл создан на диске');
end.
При выполнении операций ввода-вывода данных по умолчанию автоматически производится проверка на возникновение ошибки. При обнаружении ошибки выполнение программы прекращается. Но в программе можно предусмотреть собственную реакцию на ошибочные ситуации. Для этого в начале "опасного" фрагмента отключается автоматическая проверка {$I-}. При возникновении ошибки формируется код, который обрабатывается функцией IOResult. Функция IOResult возвращает в программу код ошибки, обнуляет этот код, поэтому последующие обращения к этой функции будут давать нулевой результат, пока какая-либо операция не закончится аварийно.
Пример:
Assign (f, 'file1.dat');
{$I-} {* отключаем автоматическую проверку *}
Reset (f);
code:= IOResult; {* получили код результата *}
if code <> 0 then
begin {* возникла ошибка *}
write (' Ошибка при открытии файла ');
case code of
1: write('файл не найден');
3: write('маршрут не найден');
4: write('слишком много открытых файлов');
5: write('запрет доступа к файлу');
12: write('некорректный код доступа к файлам');
else
……..
end
end;
{$I-} {* включаем автоматическую проверку *}
…………………….
После рассмотренных примеров можно предложить задачи для самостоятельной работы.
Задача 1. Данные об абитуриентах (фамилия, имя, отчество, средний балл аттестата) содержатся в файле F1.txt. Напишите программу, которая запрашивала бы отметки всех сданных экзамен каждого абитуриента и формировала новый файл F2,.txt в который вошли бы следующие сведения об абитуриентах: фамилия, имя, отчество, средний балл аттестата, отметка1, отметка2, отметка3.
Задача 2. Данные о налогоплательщиках (фамилия, имя, отчество, адрес) находятся в файле F1.txt. Написать программу, которая выводила эти сведения в таблицу:
| Фамилия, имя, отчество |
адрес |
доход |
налог |
Доход ввести с клавиатуры. Налог рассчитать 15% от дохода. Доход и налог вывести в таблицу.
Задача 3. Составить программу обработки психологического теста. Вопросы, ответы и баллы за каждый вопрос содержатся в последовательном файле.