Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

Лабораторная работа №6 Структурные типы данных. Файлы.

Введение

В данной лабораторной работе рассмотрены основные типы файлов Object Pascal: текстовые файлы, типизированные файлы и нетипизированные файлы. Рассмотрены основные приемы обработки ошибок ввода-вывода.

Файлы

В Object Pascal реализована достаточно высоко уровневая поддержка файлов. Object Pascal поддерживает наиболее часто применяемые разновидности файлов. Всего в Object Pascal введено три вида файлов:

−текстовые файлы;

−типизированные файлы;

−нетипизированные файлы.

Работа с файлами в Object Pascal едина для трех основных типов файлов и очень простая. Ведется она через файловую переменную, одного из трех типов, к которой применяются функции и процедуры. Типовая последовательность следующая:

−Объявляется файловая переменная нужного типа;

−С этой файловой переменной связывается файл, функцией AssignFile;

−Затем файл открывается Reset/Rewrite/Append;

−Производятся операции чтения или записи, разновидности Read/Write;

−Файл закрывается с помощью функции CloseFile.

Основные функции для работы с файлами приведены в таблице 1.

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

Обработка ошибок ввода-вывода

В Object Pascal существует два способа обработок ввода-вывода. Первый способ обработки существует еще со времен Turbo Pascal и будет рассматривается ниже. Второй способ основан на механизме обработки исключительных ситуаций и появился в Object Pascal. Этот способ считается более прогрессивным и будет рассмотрен позднее.

Object Pascal автоматически вставляет в программу код контроля ошибок. При возникновении любой ошибки при работе с функциями ввода-вывода происходит вывод сообщения об ошибке и аварийное завершение программы. Для управления ошибками ввода-вывода сначала необходимо отключить автоматический контроль ошибок. Это делается с помощью директивы компилятора {$I-}. Включить автоматический контроль ошибок можно с помощью директивы компилятора {$I+}. После выполнения очередной функции ввода-вывода необходимо вызвать функцию IOResult которая возвращает код ошибки при выполнении последней функции ввода-вывода. Если ошибки не было, то функция возвращает нулевой результат. Некоторые коды ошибок ввода-вывода приведены в таблице 2.

Таблица 2 – Коды ошибок ввода-вывода

Код ошибки Описание ошибки

100Ошибка чтения с диска

101Ошибка записи на диск

102Имя файла не сопоставлено файловой переменной

103Файл не открыт

104Файл не открыт для чтения

105Файл не открыт для записи

106Ошибка конвертации при чтении из файла

Ниже приведен пример программы реализующей обработку ошибок ввода-вывода при открытии файла или создании файла.

program InOutTemplate;

{$APPTYPE CONSOLE}

var F:TextFile; error:integer;

begin

{сопоставляем имя файла файловой переменной} AssignFile(F, 'test.txt');

{$I-} //отключает контроль ошибок ввода-вывода Reset(F); //открываем файл, здесь может произойти ошибка

{сохраняем значение возвращенное функцией

IOResult в переменной error для последующего анализа ошибки} error:=IOResult;

//проверяем код последней ошибки

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

if error<>0 then //если произошла ошибка begin

{здесь может анализироваться причина ошибки и выводится сообщение об ошибке} Halt(1);//досрочное завершение программы end

else //если ошибки не было begin

{$I+} //включение контроля ошибок ввода-вывода

{здесь осуществляется работа с файлом чтение/запись}

end;

CloseFile(F); //закрываем файл end.

Текстовые файлы

Текстовые файлы являются подмножеством двоичных файлов, но в отличие от двоичных не могут содержать весь набор символов. Вся информация в файле разбивается на строки, ограниченные символам возврат каретки (CR) и перевод строки (LF). Допустимые символы это символы с кодами от 32 до 255, символы с кодами ниже 32 являются управляющими и допустимы только следующие коды:

Таблица 3 – Управляющие символы

код символа наименование производимое действие символа

Object Pascal поддерживает работу с такими файлами, через файловую переменную типа TextFile, где основной единицей является строка, состоящая из основных базовых типов (в текстовом виде, разделенных пробелом), наиболее часто это просто строка, как набор символов. Основные функции применяемые для работы с текстовыми файлами приведены в таблице 4.

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

Для примера рассмотрим программу которая осуществляет запись данных нескольких различных типов в текстовый файл.

Листинг 1

program TextInOut;

{$APPTYPE CONSOLE}

var F:TextFile; //файловая переменная i:integer;

r:real;

error:Integer; begin

i:=2;

r:=10.56;

{$I-}

AssignFile(F, 'test.txt');

Rewrite(F);

error:=IOResult; //проверяем код последней ошибки if error<>0 then //если произошла ошибка

begin

Halt(1);//досрочное завершение программы end

else //если ошибки не было

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

begin

{$I+} //включение контроля ошибок ввода-вывода

writeln(F, 'Текстовый файл'); writeln(F, i);

writeln(F, r:6:2); end;

CloseFile(F);

end.

Откройте созданный файл test.txt в любом текстовом редакторе и убедитесь что данные в него записаны.

Программа приведенная на листинге 2 осуществляет вывод содержимого текстового файла на экран.

Листинг 2

program TextOut;

{$APPTYPE CONSOLE}

var F:TextFile; //файловая переменная error:Integer;

FileName, S:String; begin

writeln('Vvedite imia faila'); readln(FileName);

{$I-}

AssignFile(F, FileName);

Reset(F);

error:=IOResult; //проверяем код последней ошибки if error<>0 then //если произошла ошибка

begin

writeln('File not exist'); writeln('Press Enter to exit'); readln;

Halt(1);//досрочное завершение программы end

else //если ошибки не было begin

{$I+} //включение контроля ошибок ввода-вывода while not EOF(F) do

begin readln(F, S); writeln(S);

end;

end;

CloseFile(F);

readln;

end.