Использование модулей

Чтобы использовать объекты видимой части модулей (глобальные объекты) следует указать предложение использования uses и перечислить список модулей

uses < список модулей >;

в основной программе перед разделом описаний; в модуле после служебного слова interface.

Приложение Г

Подпрограммы для работы с типизированными файлами Процедуры

assign(f, name);

Связывает файловую переменную f с внешним файлом с именем name типа string.

reset(f);

Открывает существующий файл (указатель файла настраивается на начало файла).

rewrite(f);

Открывает новый файл (ему присваивается имя, заданное процедурой assign ; если такой файл существует, он уничтожается).

close(f);

Закрывает открытый файл.

read(f, < список ввода>);

Чтение из файла. Список ввода содержит одну или более переменных типа компонент файла.

Если файл исчерпан, обращение вызовет ошибку ввода / вывода.

write(f, < список вывода>);

Запись в файл. Список вывода содержит одну или более переменных типа компонент файла.

seek(f, num);

Смещает указатель файла к компоненте с номером num.

truncate(f);

Удаляет все элементы типизированного файла с текущей позиции файлового указателя до конца файла

rename(f, newname);

Переименовывает закрытый файл, связанный с файловой переменной f, давая ему имя newname.

erase(f);

Удаляет закрытый внешний файл, связанный с файловой переменной f.

Функции

eof(f)

Проверяет конец файла: возвращает true , если указатель файла стоит в конце файла (находится за последней компонентой) или false – если нет.

filesize(f)

Возвращает текущий размер файла (количество компонент).

filepos(f)

Возвращает позицию файлового указателя – номер текущей компоненты (нумерация элементов в типизированном файле начинается с нуля).

При работе с файлами автоматически проверяются ошибки ввода / вывода. По умолчанию проверка включена и при ошибке выполнение программы завершается.

В PascalABC для проверки наличия файла на диске используется функция

fileexists(name)

Возвращает true, если на диске имеется файл с именем name типа string, в противном случае возвращает false

В Turbo Pascal [2] проверку можно отключить с помощью директивы компилятора (ключа) {$I-} и проверить результат ввода / вывода с помощью функции IOResult. Проверка включается директивой компилятора {$I+}.

Функция IOResult – возвращает результат последней операции ввода / вывода: 0, если завершилась успешно, другое число (код ошибки), если нет.

ЛИТЕРАТУРА

1 Методы программирования. Учебное пособие / Н.И. Минакова, Е.С. Невская, Г.А. Угольницкий, А.А. Чекулаева, М.И. Чердынцева. – М.: Вузовская книга, 1999. – 280 с.

2 Фаронов В.В. Турбо Паскаль 7.0. Начальный курс: учебное пособие. – М.: КНОРУС, 2006. – 576 с.

3 Задачник – практикум по основам программирования: Учебное пособие по курсу «Информатика» / Н.И. Амелина, Е.С. Невская, Я.М. Русанова, А.А. Чекулаева, М.И. Чердынцева. – Ростов-на-Дону, Изд-во ЮФУ, 2010.

4 Чекулаева А.А., Дубров Д.В. Работа с типизированными файлами в языке Паскаль. Методические указания к решению задач по курсу Информатика для студентов 1 курса дневного и вечернего отделений факультета математики, механики и компьютерных наук. – Ростов-на-Дону, ЮФУ, 2009.

32