Статья

Статья Обработка последовательных файлов в программе

Работа добавлена на сайт bukvasha.net: 2015-10-29

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 22.11.2024





Обработка последовательных файлов в программе


Кузнецова В. С., преподаватель информатики, МОУ межшкольный учебный комбинат №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. Составить программу обработки психологического теста. Вопросы, ответы и баллы за каждый вопрос содержатся в последовательном файле.

Список литературы

Для подготовки данной работы были использованы материалы с сайта http://www.khspu.ru



1. Курсовая на тему Анализ финансово хозяйственной деятельности на основе баланса пред
2. Курсовая Сбытовая политика предприятия
3. Курсовая Небанковские кредитно-финансовые институты
4. Изложение на тему Повести БелкинаБарышня-крестьянка
5. Реферат Перестройка и распад СССР в период 1985-1991 гг.
6. Доклад на тему Из истории вычислительной техники
7. Реферат Ростовцев, Михаил Иванович историк
8. Реферат на тему Us Imperialism Essay Research Paper Under the
9. Биография Ромм, Шарль-Жильбер
10. Реферат Организация и проведение спортивных соревнований в школе